VB写得一个记事本
今天用编程语言Visual Basic（VB）写出自己的记事本！记得自从上次的一个VB打造简单计算器后就再也没有写一些小程序了！今天呢，写一个简单的记事本程序吧！
工具：一台计算机（电脑）。（配置不做什么要求，现在的机器应该没有配置很低的吧！只要能运行Visual Basic 6.0就行！）
VB开发平台：Microsoft Visual Basic 6.0
首先，打开Microsoft Visual Basic 6.0 建一个标准的EXE工程！在这个记事本编写过程中需要主要的5个控件，它们分别是：RichTextBox、 CommonDialog、Toolbar、 StatusBar、 Timer、 ImageList 。 在程序没有开始编写之前把这些控件，由部件中加出来！
好了，现在开始了！我们首先，先把菜单建立好，便于以后写代码！工具——菜单编辑器 。建立一下菜单选项；顶层菜单：文件（F，名称：munfile）、编辑（E，名称：munedit）、格式（O，名称：munmat）、查看（V，名称：munlook）、颜色（B，名称：muncolor）、系统选项(名称:munsystem)、帮助（H，名称：munhelp）。然后建立子菜单：
文件（F，名称：munfile）的子菜单有：新建（CTRL+N，名称：munnew）、打开（CTRL+O，名称：munopen）、保存（CTRL+S，名称：mun）、另存为（CTRL+L，名称：munlingc）、退出（CTRL+E，名称：munexit）
编辑（E，名称：munedit）的子菜单有：剪切（CTRL+X，名称：munjianq）、复制（CTRL+C，名称：muncopy）、粘贴（CTRL+V，名称：numzhant）、删除（del，名称：mundelete）、全选（CTRL+A，名称：munxall）、日期（CTRL+P，名称：munnows）、查找（CTRL+F，名称：munfound）、查找下一个(，名称：munfindnext)
格式（O，名称：munmat）的子菜单有：字体（CTRL+I,名称：munfont）
查看（V，名称：munlook）的子菜单有：文本长度（CTRL+G名称：munlenzhb)、状态栏（名称：munzhuangt）
颜色（B，名称：muncolor）的子菜单有：字体颜色（CTRL+Q，名称：munfontcolor）、背景颜色（CTRL+D，名称：munblackcolor）
系统选项(名称：munsystem)的子菜单有：注销(名称：munlog)、重启(名称：munreboot)、关机(名称：munshut)、取消关机指令（名称：muncancelshut）
相关文档：
可以筛选数据，但不能是标准的SQL语句：
Me.DsUserManager1.Tables(0).Select("id > 5 and id <20")
---------------------------------------------------------------
1.筛选：
dataset.tables("tabname").select("id=1")'相当于SQL中WHERE后的条件内容
2.保存到哪？这倒是不知 ......
'* ************************************************************** *
'* 程序名称：Button.ctl
'* 程序功能：透明浮动按扭
'* 作者：lyserver，最后修改日期：2009年11月
'* 联系方式：http://blog.csdn.net/lyserver
'* ************************************************************ ......
郁闷，我使用的这个空间的IDC商竟然每隔一段时间就要检测绑定的域名是否再未提交备案列表中，如果是就删除，但是却不检测我是否提交了备案，按照他们说法删除域名一天后才能再次绑定，否则这一天内绑定了到下次检测就会再删除。这样我就不停的在后台看，看是否被删除，如果被删除，就再把域名绑定上去，;(很受伤！
于是用V ......
调用方法很简单，在Form中如下书写代码：
Private Sub Form_Load()
SetHotkey 1, "Ctrl,112", "Add" '按 Ctrl+F1 激活指定程序，F1的Ascii码为112
SetHotkey 2, 113, "Add" '按 F2 激活指定程序，F2的Ascii码为113
SetHotkey 3, "Ctrl+Alt,113", "Add" '按 Ctrl+Alt+F2 激活指定程序，F2的Ascii码为113
End Sub
Priva ......
添加
两个TEXT(multiline=true)
一个按钮
Private Function isChinese(ByVal asciiv) As Boolean
a = AscW(asciiv)
If Len(Hex$(a)) > 2 Then
isChinese = True
Else
isChinese = False
End If
End Function
Private Sub Command1_Click()
text2.text="" '先清空text2
For i = 1 To Len(Text1.Text)
DoEve ......
