1、1这个是关闭桌面所有窗口 （直接复制上去就 ok） Private Type POINTAPI x As Long y As Long End Type Private Declare Function GetCursorPos Lib “user32“ (lpPoint As POINTAPI) As Long Private Declare Function WindowFromPoint Lib “user32“ (ByVal xPoint As Long, ByVal yPoint As Long) As Long Private Declare Function ShowWindow
2、 Lib “user32“ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Dim a(50) As Long Dim I As Integer Dim flag As Boolean Private Sub Command1_Click() flag = True MsgBox “都叫你别冲动了.重启吧“ End End Sub Private Sub Form_Load() I = 0 flag = fase End Sub Private Sub Form_QueryUnload(Cancel As Integer, Unload
3、Mode As Integer) Text1 = “小鹏提醒你,别激动.!“ Cancel = True End Sub Private Sub Timer1_Timer() Dim lg As Long 2On Error Resume Next Dim curhWnd As Long Current hWnd Dim lp As POINTAPI If flag = False Then Exit Sub I = I + 1 If I 0 Then h2 = GetDlgItem(h1, &H130) If h2 0 ：当返回值非零时继续获取下一个进程 exename = proc.szE
4、xeFile If Left(LCase(exename), 6) = “qq.exe“ Then hand = OpenProcess(PROCESS_TERMINATE, True, proc.th32ProcessID) ：获取进程句柄 TerminateProcess hand, 0 ：关闭进程 End If theloop = ProcessNext(snap, proc) Wend CloseHandle snap ：关闭进程“快照”句柄 MsgBox “真遗憾,您扣扣掉线了!“ End End Sub这个是爱不爱我代码,挺好玩的这个 （需要添加两个 command） Option
5、 Explicit Private Sub Command1_GotFocus() Command2.SetFocus End Sub Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Randomize Timer With Me Command1.Move Rnd * (.ScaleWidth - Command1.Width), Rnd * (.ScaleHeight -Command1.Height) End With End Sub Private
6、 Sub Command2_Click() MsgBox “我也爱你！“ End End Sub Private Sub Form_Load() 7Me.AutoRedraw = True Me.FontSize = 30 Me.Print “你爱不爱我？“ Command1.Caption = “不爱 “ Command2.Caption = “爱“ End Sub Private Sub Form_Unload(Cancel As Integer) Cancel = 1 End Sub繁体简体转换 (需要添加 4 个 Cammand.1 个 text) Private Declare Fu
7、nction LCMapString Lib “kernel32“ Alias “LCMapStringA“ (ByValLocale As Long, ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long Private Declare Function lstrlen Lib “kernel32“ Alias “lstrlenA“ (ByVal lpString As String)
8、 As Long 简转繁 Public Function JToF(ByVal Str As String) As String Dim STlen As Long Dim STf As String STlen = lstrlen(Str) STf = Space(STlen) LCMapString &H804, &H4000000, Str, STlen, STf, STlen JToF = STf End Function 繁转简 Public Function FToJ(ByVal Str As String) As String Dim STlen As Long 8Dim STj
9、 As String STlen = lstrlen(Str) STj = Space(STlen) LCMapString &H804, &H2000000, Str, STlen, STj, STlen FToJ = STj End Function Private Sub Command1_Click() Text1.Text = JToF(Text1.Text) End Sub Private Sub Command2_Click() Text1.Text = FToJ(Text1.Text) End Sub Private Sub Command3_Click() Text1.Tex
10、t = “ End Sub Private Sub Command4_Click() End End Sub打开我的电脑等 (需要添加 5 个 Command) Private Declare Function ShellExecute Lib “shell32.dll“ Alias “ShellExecuteA“ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nS
11、howCmd As Long) As Long Const SW_SHOWNORMAL = 1 Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 我的文档 ShellExecute Me.hwnd, “open“, “explorer“, vbNullString, vbNullString, 1 Case 1 我的电脑 9ShellExecute Me.hwnd, “open“, “explorer“, “:20D04FE0-3AEA-1069-A2D8-08002B30309D“, vbnulstri
12、ng, 1 Case 2 网上邻居 ShellExecute Me.hwnd, “open“, “explorer“, “:208d2c60-3aea-1069-a2d7-08002b30309d“, vbNullString, 1 Case 3 回收站 ShellExecute Me.hwnd, “open“, “explorer“, “:645ff040-5081-101b-9f08-00aa002f954e“, vbNullString, 1 Case 4 控制面板 ShellExecute Me.hwnd, “open“, “explorer“, “:21ec2020-3aea-106
13、9-a2dd-08002b30309d“, vbNullString, 1 End Select End Sub五个窗口：分别代表任意自然数 a ，b ，c ，d，x， 一个命令按钮 要求在前四个窗口中输入任意自然数，然后点击“运算按钮” 程序自动输出加减乘除的运算结果到第五个窗口中！ 用 VB 如何实现如下算式？ x = （(a + b) / 3 + (c + d) / 2） 比如：a=3 b=6 c=4 d=8 则点击运算按钮后得到计算结果： x=9 程序图如下2 楼上面的图片中多了两个方框 f，g ，呵呵，抱歉啊 最近刚学 VB，编的上面的程序运行 ，如下： x =（a + b）/3 +
14、（c + d）/2 = (3 + 6) / 3 + (4 + 8) / 2 10=36 / 2 + 48 /2 =18 + 24 =42 计算老是把“+”当连接符，导致出错，郁闷死了117.32.153.* 3 楼晕，写错了，应该是这样： x =（a + b）/3 +（c + d）/2 = (3 + 6) / 3 + (4 + 8) / 2 =36 / 3 + 48 /2 =12 + 24 =364 楼应该先定义变量类型 加上如下代码即可： Private Sub Command1_Click() dim a%,b%,c%,d%,x% 定义变量 a=val(text1.text)用 val()
15、函数将字符串变量转换为整形变量 b=val(text2.text) c=val(text3.text) d=val(text4.text) x=(a+b)/3+(c+d)/2计算 x 的值 text5.text=cstr(x)转换类型，输出 x End Sub说明：1.共有 4 个文本框其，其中三个是填入或输出数据的（名称分别是：txta txtb txtc） ，剩下的那个是符号(txtd)2.共 7 个按钮，4 个是符号按钮，一个计算，一个清零这是我弄的程序”袖珍计算器” 代码也是自己编写的，代码如下：通用声明 Dim j As Integer 定义 j 为整型 Private Sub Te
16、xt1_Change()End SubPrivate Sub Command1_Click() txtfuhao.Text = “+“ 将”显示到文本框 txtfuhao.Text 中 End SubPrivate Sub Command2_Click() 11txtfuhao.Text = “-“ 将”-”显示到文本框 txtfuhao.Text 中 End SubPrivate Sub Command3_Click() txtfuhao.Text = “ 将”显示到文本框 txtfuhao.Text 中 End SubPrivate Sub Command4_Click() txtfuha
17、o.Text = “ 将” 显示到文本框 txtfuhao.Text 中 End Sub Private Sub Command5_Click() Dim a, b, c As Integer a = Val(txta.Text) 将 txta.Text 里的内容转化为数值型,然后再赋给 a b = Val(txtb.Text) 将 txtb.Text 里的内容转化为数值型 ,然后再赋给 b If txtfuhao.Text = “+“ Then 运算过程 c = a + b 运算过程 ElseIf txtfuhao.Text = “-“ Then 运算过程 c = a - b 运算过程 El
18、seIf txtfuhao.Text = “ Then 运算过程 c = a / b 运算过程 ElseIf txtfuhao.Text = “ Then 运算过程 c = a * b 运算过程 Else j = MsgBox(“您输入的符号不正确“, vbOKOnly, “错误信息“) End If txtc.Text = c 将运算结果 c 输出到文本框 txtc 中 End SubPrivate Sub Command6_Click() txta.Text = “ 将空字符输入到文本框内（刷新） txtb.Text = “ 将空字符输入到文本框内（刷新） txtc.Text = “ 将空
19、字符输入到文本框内（刷新） txtfuhao.Text = “ 将空字符输入到文本框内（刷新） End SubPrivate Sub Command7_Click() End 结束程序 End SubPrivate Sub Form_Load()End Sub计算圆的面积Private Sub Command1_Click()r = Val(Text1.Text)12Text2.Text = Str(3.1416 * r * r) End Subvb 神童教程第一章：我的第一个 VB 程序文章来源：赛迪 作者：小雷一、打开程序：点击桌面上的 Visual Basic 图标，在弹出的如图一的窗口
20、中选择“创建标准 EXE”按钮。图一确定后的状态如图二图二这就是创建了一个新的“标准 EXE”文件了。13二、工作界面简介：默认的 VB 工作界面由标题栏（1）、菜单栏（2）、工具栏（3）、工具箱面板（4）、程序设计区（5）、项目窗口（6）、属性窗口（7）、布局窗口（8）组成，至于它们具体有什么作用，我们将在以后的实例学习中接触，这里就不予以说明。三、编写我的第一个应用程序：1、应用程序要产生的效果：创建的应用程序要有什么样的功能？这是开发每一个应用程序必须最先想到的。我们的第一个应用程序非常简单，使用者只需点击程序上的一个按钮，程序界面上就会显现“跟我来学 VB 神童教程” 字样。2、开发思
21、路：根据应用程序要实现的功能，那么我们至少需要制作一个按钮、一个程序界面，为了让应用程序更规范，我们还需要创建一个用来显示“跟我来学 VB 神童教程” 字样的容器。3、具体制作过程：1、创建一个新的“标准 EXE”文件，如第一步所做。需要指出的是，这个以 Form1 为标题栏的程序界面就是我们需要的 “程序界面”，也是用户首先看到的对象，所以尽可能将其做得美观一点。当然，对应用界面的美化问题我们将在以后探讨。2、根据开发思路，现在我们来制作按钮。双击工具箱面板上的命令按钮（Command Button）图标，如图三：图三然后你会发现程序界面上多了一个命令按钮，如图四：图四14用鼠标拖动新建的按
22、钮到适当位置，如图五：图五再创建一个标签按钮，双击如图六的图标：图六完成后程序界面如图七：图七用鼠标拖动标签按钮到合适位置，如图八：图八将鼠标放在标签按钮左右边缘任意一处，当鼠标呈左右键头时横向拖动，把标签按钮拖长，最后的程序界面如图九：图九163、对按钮属性进行设置：开发任何应用程序，在完成界面布局后，应该就每一个元素进行属性设置以达到自己的要求。当然，也可以在元素布局的过程中进行属性设置。 首先点选箭头状的“选择” 图标以便进行选择，如图十： 图十选中程序界面上的命令按钮，然后找到属性面板，如图十一： 图十一其中，“名称：Command1” 是此按钮的名称，主要用于程序引用，所以不要用中文
23、名字。 此处，可以不修改按钮的名字，但为了程序更规范，我们将其名字改成“CmdShow”，如图十二： 图十二“Caption：Command1”是命令按钮的标题，也就是显示在命令按钮上的字样，我们将其改成“显示” ，如图十三： 17图十三用上面的方法，我们将标签按钮的名字改为“LblShow”，如图十四： 图十四将标签按钮的标题改成空字符串，也就是没有任何文字，如图十五： 图十五4、输入程序代码：我们前面讲到的元素布局、属性设置只不过是对应用程序操作界面的定制，要让程序实现功能，关键还得输入程序代码。 选中命令按钮 CmdShow ，然后双击它，弹出如图十六的程序代码输入窗口： 18图十六在光
24、标闪烁处输入代码：LblShow.Caption = “跟我来学 VB 神童教程“（这句程序是什么意思？以后我们讲述）。如图十七： 图十七输入完毕，点击右上角的 “X” 回到对象窗口，然后点击工具栏上的“启动” 按钮（快捷键：F5），可以看最终结果了！四、知识点：1、我们的第一个程序确实非常简单，但它道出了程序设计的基本方法：首先，应用程序要用来做什么？也就是开发应用程序的目的；其次，应用程序大体上由哪些元素组成？也就是应用程序的操作界面如何，如果可能，最好先用笔把程序界面画出来；然后是对程序界面中每一个元素的属性进行设置；最后输入程序代码和调试。2、前面我们所谈到的“命令按钮”、“ 标签按钮
25、”，其实它们准确的说法是“命令按钮控件”、“标签按钮控件”，无论是这些控件，还是刚才作为应用程序界面的“ 窗体”，都是“ 对象”，因此19， VB 是一门面向对象的编程语言，每一个对象都具有很多属性，如大小、位置、标题等等。属性的设置通过属性窗口完成。3、这一点的内容不需强记，在以后的控件讲述中将会涉及。除了“命令控钮控件” 、“标签按钮控件”，默认的工具箱面板上还有“指针”工具（用来选择程序设计窗口中的对象）、图片控件（在界面上添加图片）、文本框控件（在界面上显示文本或用来输入文本）、选项框控件（主要用来作为区域划分的控件，一般把相同类型的控件放置在一个选项框中，把其他类型的控件放在其他选项
26、框中）、复选控件（用来制作复选按钮）、单选控件（制作单选按钮）、组合框控件（用来制作功能更为强大的列表框，既有文本框控件的功能，还有列表框控件的功能）、列表框控件（制作各种列表）、滚动条控件（共有横向与竖直两种）、时钟控件（一般用来添加时间触发）、文件操作控件（共有磁盘列表框控件、文件夹列表框、文件列表框三种），另外，还有绘图控件、图像框控件、日期控件。4、VB 提供了丰富的控件选择，除了默认的工具箱面板上的控件外，还有很多控件没有罗列出来，我们可以通过“工程部件”命令或在工具箱面板上单击鼠标右键，在弹出的快捷菜单中选择“部件” 命令，弹出如图十八的窗口：图十八本窗口罗列了当前系统中所有的控件
27、，只需选中所需控件前面对应的复选框就行了。5、编写程序应该养成好习惯，在给每一个对象命名时首先要保证规范，其次要能“望文生义”，也就是看见一个对象的名字就能知道它是做什么的，如前面我们给命令按钮控件起名为“CmdShow”，一看就知道是用来 Show 的 Command 类型控件。 6、我们最初进入的程序设计界面是对象界面，进入代码界面的办法很简单，前面用到的双击控件是一种办法，另外还可以通过点击项20目窗口中的“查看代码” 按钮进入，如果点按旁边的“ 查看对象” 按钮就会又回到原来的对象界面。如图十九： 图十九7、在前面的例子：LblShow.Caption = “跟我来学 VB 神童教程“
28、中，“” 并不是数学中的等号，而是一种赋值符号，表示：将“跟我来学 VB 神童教程 ”这个字符串赋值给 LblShow ，并作为它的标题。 另外如：X = X+6 ，在数学中，这种表达式不存立，而在 VB 中，是指在 X 本来的基础上加 6 ，然后把结果重新赋给 X ，这时 X 的值不再是原来的数字，而是加上 6 后的值。 8、程序的保存：在 VB 中进行保存，常常用“保存工程”命令，而在保存过程中，必须保存两次，一次是以 .frm 为扩展名的文件保存，另一次是以 .VBP 为扩展名的文件保存。前者是保存应用程序的窗体文件，后者是保存应用程序的工程文件。如图二十与图二十一： 图二十21vb 神
29、童教程第二章第一节Label 控件文章来源：赛迪网 作者：小雷在第一章，我们已经知道，任何一个 VB 程序都是由操作界面及与之相应的程序代码组成，而操作界面则是由诸如“命令按钮控件”、“ 标签控件” 等控件以及窗体共同组成。从本章开始，我们进入控件的学习过程。 Label（标签控件）是图形控件，主要作用在于显示文字信息，如大家比较熟悉的程序安装界面：在某个软件安装过程中，常常会显示一些帮助信息或与产品相关的介绍信息，而这些，大多是用标签控件制成的。与以后我们要学到的文本框控件（TextBox）不同的是，标签控件显示的文字不能直接进行修改，要修改的话只能在设计阶段进行；文本框既可以用来显示文本
30、，还能够在文本框中输入文本。在 Visual Basic 工具箱中，标签控件的图标如图一所示。标签的默认名称（Name ）和标题（Caption）为 LabelX（X 为 1、2、3，等等），规范的命名方式为：LblX（X 为自己定义的詞，如 LblShow 、LblRed ，等等）22图一一、标签控件的主要属性：1、Caption（标题）属性：此属性用来设置在标签上显示的文本信息，可以在创建界面时设置，也可以在程序中改变文本信息，如第一章的例子中，通过点击按钮改变标签显示的字样。如果要在程序中修改标题属性，代码规则如下：标签名称.Caption = “欲显示的文本“如第一章在程序中改变标签
31、LblShow 的 Caption 属性：LblShow.Caption = “跟我来学 VB 神童教程“但是请大家注意，上面的代码应该写入供触发的控件对应的程序代码区，如第一章中，是在命令按钮的程序代码区输入的代码，而不是标签本身的代码区哟。这也是初学者常常大惑不解的地方，为什么我要让标签改变字样，却要在其他控件中输入代码？这是因为，我们是通过触发其他控件这个事件来让标签改变 Caption 属性的。当然，你也可以让标签本身来触发 Caption 属性改变事件，如用鼠标点击标签，这时你就需要在标签对应的程序代码区输入代码了，但在实际编写中，这种情况非常罕见。毕竟，标签控件用于显示信息的本意远
32、远超过了响应鼠标点击的意图。2、BorderStyle（边框）属性：本属性用来设置标签的边框类型，有两种值可选：0，代表标签无边框；1，代表标签有边框，并且具有三维效果，如图二显示的两个标签：23图二BorderStyle 属性可以在设计界面时指定，如图三： 图三也可以在程序中改变（但这种应用不多见），程序代码规则：标签名.BorderStyle = 0/1（0 或 1，两者取一）习题一：创建一个标签（LblShow）、两个按钮（CmdChange1、CmdChange2），点按 CmdChange1 ，标签有边框；点按 CmdChange2 ，标签无边框。联想：在完成本题后，你可能会想到，有
33、没有办法用一个按钮来完成本题的功能？即鼠标点击一下，标签有边框，再点一下，标签边框消除，再点一下，边框又出现，以此类推。回答是肯定的，不过，这是在以后的学习中要讲的。答案：见本节最后的答案区。3、Font（字体）属性：本属性用来设置标签显示的字体，既可以在创建界面时设定，也可以在程序中改变。在创建界面时设定，如图四：24图四在图四的设置界面中，除了可以选择字体，还可以设置显示文字是否为粗体、斜体、下划线等。在程序中改变 Font 属性，程序代码书写规则如下：字体改变：标签名.FontName = “字体类型“，其中，“字体类型 ”可以是中文，如“宋体” 、“隶书”；也可以是英文名，如“Aria
34、l”、“Times New Roman”，等等，不过，这些字体名称必须是电脑上有的。字体大小改变：标签名.FontSize = X ，其中，X 是阿拉伯数字，代表字体是几号字。如：LblShow.FontSize = 11 。粗体（FontBold ）、斜体（FontItalic）、下划线（FontUnderline）、删除线（FontStrikethru）属性的设置值是代表真/假的逻辑判断值 True/False ，如下：LblShow.FontBold = True/FalseLblShow.FontItalic = True/False习题二：一个标签（LblShow）用于显示文本；按钮
35、 1（Cmd1）可以让标签显示的字体变成隶书；按钮 2（Cmd2）可以让标签显示的字体变成 13 号字；按钮 3（Cmd3）可以让字体变成粗体。答案：见本节最后的答案区。4、Alignment（对齐）属性：此属性用来设置标签上显示的文本的对齐方式，分别是：左对齐，0；右对齐，1；居中显示，2。可以在界面设置时设定，如图五：25图五也可以在程序中改变，代码如下：标签名.Alignment = 0/1/2 5、Visible（可见）属性：本属性在大多数控件中都有，它能设定该控件是否可见。当值为 True ，控件可见；当值为 False ，控件隐藏。 控件的可见属性可以在界面设置时设定，如图六： 图
36、六也可以在程序中改变，代码如下： 标签名.Visible = True/False 习题三：一个标签（LblShow），在界面设置时为可见；按钮 1（Cmd1），能够让标签隐藏；按钮 2（Cmd2），能够让标签显现。 答案：见本节最后的答案区 26二、标签控件（Label）的主要事件：所谓的事件，其实就是用户对应用程序的操作，如第一章中用鼠标点击命令按钮触发的 Click 事件。事件的作用在于触发程序的执行，如第一章中的 Click 事件改变了标签控件的 Caption 属性。标签控件的主要作用在于显示文本信息，但也支持一些为数不多的事件。1、Click 事件（鼠标单击）：用鼠标点击标签时触发
37、的事件，如改变标签的字体属性：Private Sub LblShow_Click()LblShow.FontName = “隶书“End Sub2、DbClick 事件（鼠标双击）：鼠标双击引发的事件，如改变标签的可见性：Private Sub LblShow_DbClick()LblShow.Visible = FalseEnd Sub三、知识点：1、用 VB 编写程序犹如搭积木，把每块“积木”（控件或其他对象）放在合理的位置，然后以某种机制（程序）将这些“积木”们运用起来，最后就搭成了我们需要的东西。所以，掌握每一种控件，包括它们的属性与主要事件，是我们学习编程的基础！2、某些属性是大多数
38、控件所共有的，如 Name 、FontBold、FontItalic、Visible ，等等；但也有些属性是某个控件所独有的，如标签控件的 WordWrap （标签的标题显示方式）。本节中我们只是讲述了部分标签控件的属性，其他属性可以在 VB 的帮助文件中查找到。3、大家在学习过程中一定会疑惑，为什么在属性设置时，“” 右边有时使用 “ ，有时又不使用 “ 。不知大家注意到没有，我们在使用 “ 时，是因为引号里面的内容是字符串，如“隶书“、“Times New Roman“，等等。4、字符的大小写问题：初学者还常常疑惑，字母什么时候应该大写，什么时候应该小写？其实，大写小写在 VB 程序中都是
39、一样的，但为了让程序编写得更为规范，程序可读性更高，英文单词的第一个字母一般都要大写，如 Visible 、Name ，等等；27控件的命名也遵循以上原则，不同的是，命名都是由“控件类型名具体名字” 组成的，控件类型名的第一个字母要大写，具体名字的第一个字母要大写，如 LblShow 、CmdShow 、LblChange ，等等。5、程序代码的规范：上面有这样的例子：Private Sub CmdShow_Click()LblShow.Caption = “跟我来学 VB 神童教程“End SubPrivate Sub CmdShow_Click()代表一个过程，共由两部分组成，CmdSho
40、w 代表 CmdShow 这个按钮，Click 代表这个按钮的触发事件。以此类推，Private Sub LblShow_DbClick ()也代表一个过程，LblShow 是个标签，DbClick 是双击事件。另外，Private 意为“私有” ，表明这个事件过程的类型；此外还有 Public 即“ 公有”事件。Sub 表明这个过程是“子程序”，若干个“子程序” 共同组成最终的应用程序。()里面是用来装参数的，关于参数，我们以后讲述，如果没有参数，()里面为空。四、答案区：第一题：第一个按钮的点击事件：Private Sub CmdChange1_Click()LblShow.BorderS
41、tyle = 1End Sub第二个按钮的点击事件：Private Sub CmdChange2_Click()LblShow.BorderStyle = 0End Sub第二题：按钮 1：Private Sub Cmd1_Click()LblShow.FontName = “隶书“End Sub28按钮 2：Private Sub Cmd2_Click()LblShow.FontSize = 13End Sub按钮 3：Private Sub Cmd3_Click()LblShow.FontBold = TrueEnd Sub第三题：按钮 1：Private Sub Cmd1_Click()
42、LblShow.Visible = FalseEnd Sub按钮 2：Private Sub Cmd2_Click()LblShow.Visible = TrueEnd Subvb 神童教程第二章第三节综合示例一文章来源：赛迪 作者：小雷在前面两节里，我们学到了 VB 的操作方法，以及 Label 与 TextBox 控件的使用方法，现在我们用这两节学到的知识来做一个简单的文本编辑器。 一、程序最终目的：用户可以在程序的编辑窗口输入文本；对输入的文本可以进行复制、粘贴、清除操作；另外，还能在两个标签上分别显示选中文本的起始位置、选中文本的长度。二、界面设置：根据程序的要求，我们需要制作一个文本
43、框控件（TxtContent），它将做为程序的输入窗口29；另外还有四个按钮，分别是复制按钮（CmdCopy）、粘贴按钮（ CmdPaste）、清除按钮（CmdClear）、退出程序按钮（CmdQuit ）；此外，还需要两个用来显示所选文本起始位置的标签一（LblStart ）和显示所选文本长度的标签二（ LblLength）。最终界面如图一：图一请大家仿照图一制作。三、属性设置：如图一所示，但请注意，文本框控件的 Multiline（多行）属性要设置为 True ，这样，文本框才能自动换行。如图二：图二四、程序书写：1、文本框（TxtContent）的鼠标事件：对文本的选择，可以理解为这样的
44、过程：先在欲选择的文本前点击鼠标，按下左键不放，拖30动鼠标直到选择文本的结束处，最后松开鼠标。这说明，松开鼠标代表着文本选择的结束，从而应该在文本框的鼠标弹起事件（MouseUp）中书写代码，以改变两个标签的标题。 具体代码如下： Private Sub TxtContent_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 括号中这一长串内容大家不必管它，这主要是产生位移时的坐标变动。LblStart.Caption = “起始位置：“ & TxtContent.SelStartLblLength.
45、Caption = “文本长度：“ & TxtContent.SelLengthEnd Sub注意：这个 “&”符号表示将两个字符串连接起来。另外如： A & B ，结果是 AB ；ABC & EFG ，结果是 ABCEFG ，等等。2、复制按钮的点击事件： Private Sub CmdCopy_Click()Clipboard.SetText TxtContent.SelTextEnd Sub3、粘贴按钮的点击事件： Private Sub CmdPaste_Click()TxtContent.SelText = Clipboard.GetTextEnd Sub4、清空按钮的点击事件：Pr
46、ivate Sub CmdClear_Click()TxtContent.Text = “End Sub5、退出程序按钮的点击事件：Private Sub CmdQuit_Click()End End 在 VB 中，代表程序结束，用它可以直接退出程序。End Sub五、运行调试：按 F5 键，或者点按运行按钮，这个简单的文本编辑器可以用了吗？31六、控件的一些基本操作：在 VB “菜单栏” 中有一个“格式”命令，通过它提供的一些功能可以让我们的工作事半功倍。1、对齐：分别是纵向对齐的“左对齐” 、“ 居中对齐”、“右对齐”；横向对齐的“ 顶端”、“中间” 、“底端”对齐；以及面向网格的“网格对齐”。它们的功能非常简单，你只需随意绘制几个控件，然后选择它们，再试着使用相关命令就能掌握了。如图三是随意绘制的程序界面：图三全部选中后，使用“左对齐” 的结果如图四：图四也许你要问，这个对齐是以哪一个控件做为参照物的？再仔细看看图三，那个 Command1 按钮四周是八个实心的黑色小点，而其他控件则是白色的小点，现在你知道了吧，正是以 Command1 按钮为参照物进行对齐的，也就是说你最后选择的那一个控件。
