给你一个可以
获取的(花RMB的)地址
***
--搜索你所需要的, 里面还是花钱的,没有付出,是不行的,呵呵
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会员还是比较不错了 至于楼下骂人的那几位我想说的是 哪个网站都有学员说好的 也有说不好的 这个跟学员自身的素质还有水平都是有关系的 毕竟是 *** 上的学习 没有门槛的 什么人都可以学习 自然有学的好的 也有学的差的咯 你说对不对
我相信楼主会有一个明智的选择的 祝你学习愉快
电脑浏览器哪个好用平稳速度更快!?一款功能强大的电脑浏览器不但能够迅速打开网站,另外髙速网上也可以为大家产生愉快的情绪,而不大好用的电脑浏览器则使我们恨不能把电脑上砸了,那2019电脑浏览器哪个好用呢...
乳胶漆品牌排名(国内乳胶漆品牌排行榜)新房装修,目前市面上80%业主室内墙面与顶面的装饰材料选用涂刷乳胶漆,因乳胶漆容易涂刷,干燥迅速,漆膜耐水,成本低,污染小等优点,深受人们的认可并且作为墙面装饰材...
本文首发于合天“合天智汇”公众号 作者:SkYe在某些堆的题目当中,由于限制只能使用 house of spirit 等方法劫持 malloc_hook ,这种情况一般是往 malloc_hook 写...
做公众号这么久了,能让我喜欢的公号并不多,野生观算是一个很特别的存在,虽然以前给你推荐过很多公号,但今天这个才是我最想推荐的。 号主野生君是一个96年的刚毕业大学生,在大学,身边同学都在迷茫打游戏煲...
本文导读目录: 1、辐射4代码改回人物等级 2、辐射4控制台升级技不能用怎么办 3、辐射4技能升级点PERK点代码是什么? 4、辐射4 控制台代码大全 辐射4 控制台代码怎么用 5、辐...
我应付的费用是多少,是怎么样计算的,同志们教教我,谢了, 我国的证券投资者在委托买卖证券时应支付怎么样各种费用和税收,这些费用按收取机构可分为证券商费用、交易场所费用和国家税收。目前,投资者在我国券商...