4水一个八位无保QQ号.一个邀请要50水.
不是认识的人是不会给你的.
你想要的话做教程去发布就行.只要你做的教程够格.或是你去找一下里面的版主.他们心情好的时候应该会给你..
VB.net编程方法:
'新建文件
Private Sub mnuNew_Click()
RichTextBox1.Text = "" '清空文本框
FileName = "未命名"
Me.Caption = FileName
End Sub
'打开文件
Private Sub mnuOpen_Click()
CommonDialog1.Filter="文本文档(*.txt) *.txt RTF文档(*.rtf) *.rtf 所有文件(*.*) *.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = "" '清空文本框
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "超级记事本:" FileName
End Sub
'保存文件
Private Sub mnuSave_Click()
CommonDialog1.Filter="文本文档(*.txt) *.txt RTF文档(*.rtf) *.rtf 所有文件(*.*) *.*"
CommonDialog1.ShowSave
FileType = CommonDialog1.FileTitle
FiType = LCase(center(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select
Me.Caption = "超级记事本:" FileName
End Sub
'退出
Private Sub mnuExit_Click()
End
End Sub
'复制
Private Sub mnuCopy_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
End Sub
'剪切
Private Sub mnuCut_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
RichTextBox1.SelText = ""
End Sub
'全选
Private Sub mnuSelectAll_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
End Sub
'粘贴
Private Sub mnuPaste_Click()
RichTextBox1.SelText = Clipboard.GetText
End Sub
'查找
Private Sub mnuFind_Click()
sFind = InputBox("请输入要查找的字、词:", "查找内容", sFind)
RichTextBox1.Find sFind
End Sub
'继续查找
Private Sub mnuFindOn_Click()
RichTextBox1.SelStart = RichTextBox1.SelStart+RichTextBox1.SelLength + 1
RichTextBox1.Find sFind, , Len(RichTextBox1)
End Sub
'使用说明
Private Sub mnuReadme_Click()
On Error GoTo handler
RichTextBox1.LoadFile "Readme.txt",rtfText'请写好Readme.txt文件并存入程序所在文件夹中
Me.Caption = "超级记事本:" "使用说明"
Exit Sub
handler:
MsgBox "使用说明文档可能已经被移除,请与作者联系。", vbOKOnly, " 错误信息"
End Sub
VC++编程方法:
首先用VC++创建一个MFC AppWizard(exe)单文档工程,名字Notepad。在Advanced里面File extension(文件扩展名)里面写txt就是关联txt文件,在Base class里面要选CEditView类(意思是基于这个类派生出你用的类)
其实这样生成的就是一个记事本了,但是和原来的记事本还是有区别的
所以我们还要添加点功能,这样才能起到让新人了解VC++的目的
1、我们先加一个设置字体
在 CNotepadView类里面定义字体(就是public) CFont m_Font;
定义消息处理函数:
void CNotepadView::OnFormatFont()
{
// TODO: Add your command handler code here
LOGFONT lf;
CFont *font=this-GetEditCtrl().GetFont();
if(font==NULL)
{
font =new CFont;
font-CreatePointFont(120,"Fixedsys");
font-GetLogFont(lf);
delete font;
}
else
{
font-GetLogFont(lf);
}
CFontDialog cf(lf);
if(cf.DoModal()==IDOK)
{
this-m_Font.DeleteObject();
this-m_Font.CreateFontIndirect(lf);
this-SetFont(this-m_Font);
}
}
2、设置字体
在 CNotepadView类里面定义 BOOL bChk;
消息处理函数
void CNotepadView::OnFormatReturn()
{
// TODO: Add your command handler code here
bChk=!bChk;
if(!bChk)
{
ShowScrollBar(SB_HORZ,true);
}
else
{
ShowScrollBar(SB_HORZ,false);
}
}
下面是源代码RAR压缩包
黑客动画吧记事本源代码不会轻易公开的,那个记事本也不太好,界面也不好,其实破解也很容易的,但是意义不大。
还可以加他们的VIP,他们会给你开通一个最高权限的VIP帐号,可以学习18门技术课程,好爽哦
网上一些地方好像见到有人卖你可以去找一找,在这里可能找不到,因为别人一般都是卖,肯定没人送
每年到了天气 的时候,很多 人都会在河边或者火库旁边玩。然而, 在那个时候很容易形成溺水 产生 。每年暑假和寒...
有很多 事情 的人说,他们会在一年内停止 ,做懦夫本身 年度事情 总结事情 。你应该如何写足够的年度总结申报...
考勤规章制度 是每家私司治理 最基本的 轨制 , 私司考勤规章制度 有利于规范员工考勤亮度,规范私司考勤规章制...
对于很多 职场员工 说,在每周停止 的时候,都要写每周的周事 总结。写周事 总结,是否回忆 一周的事情 有义务...
许多 教熟画野 作自身 的毛遂自荐 。很多 教熟皆心愿 自身 的毛遂自荐 皆是纯粹大 圆的。那么该怎祥 工作能力 够作没纯粹大 圆的毛遂自荐 的信息呢?昨日已经那面给大 野带去的就是无有关纯粹大 圆的教熟毛遂自荐 的相闭內容,心愿 否以 针对大 野可以也许 有一定的冠名赞助 ,迎来 大 野 访问参考...
已经我们的任职过程 以外,个人简历应对 我们的影响 长度 长期夜 的。要写孬自身 的小我 个人简历得话,那么必定 要选择一份孬的模板。昨日已经那面给大 野带去的就是无有关小我 个人简历,收费标准模板的相闭內容,心愿 否以 针对大 野可以也许 有一定的冠名赞助 ,迎来 大 野 访问参考鉴戒 。小我 原...