这个是关闭桌面所有窗口.doc

这个是关闭桌面所有窗口 （直接复制上去就ok） PrivateTypePOINTAPI xAsLong yAsLong EndType PrivateDeclareFunctionGetCursorPosLibuser32(lpPointAsPOINTAPI)AsLong PrivateDeclareFunctionWindowFromPointLibuser32(ByValxPointAsLong,ByValyPointAsLong)AsLong PrivateDeclareFunctionShowWindowLibuser32(ByValhwndAsLong,ByValnCmdShowAsLong)AsLong Dima(50)AsLong DimIAsInteger DimflagAsBoolean PrivateSubCommand1_Click() flag=True MsgBox都叫你别冲动了.重启吧 End EndSub PrivateSubForm_Load() I=0 flag=fase EndSub PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger) Text1=小鹏提醒你,别激动.! Cancel=True EndSub PrivateSubTimer1_Timer() DimlgAsLong OnErrorResumeNext DimcurhWndAsLongCurrenthWnd DimlpAsPOINTAPI Ifflag=FalseThenExitSub I=I+1 IfI50Then Initializepointstructure: CallGetCursorPos(lp) Whichwindowisthemousecursorover? curhWnd=WindowFromPoint(lp.x,lp.y) a(I)=curhWnd lg=ShowWindow(a(I),False) Else Forj=1To50 lg=ShowWindow(a(j),True) Nextj EndIf EndSub这个是修改开始菜单名字的代码 PrivateDeclareFunctionFindWindowLibuser32AliasFindWindowA(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong PrivateDeclareFunctionGetDlgItemLibuser32(ByValhDlgAsLong,ByValnIDDlgItemAsLong)AsLong PrivateDeclareFunctionSetWindowTextLibuser32AliasSetWindowTextA(ByValhwndAsLong,ByVallpStringAsString)AsLong PrivateDeclareFunctionSendMessageLibuser32AliasSendMessageA(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong PrivateConstBM_CLICK=&HF5 PrivateSubForm_Load() Dimh1AsLong,h2AsLong h1=FindWindow(Shell_TrayWnd,vbNullString) Ifh10Then h2=GetDlgItem(h1,&H130) Ifh20Then SetWindowTexth2,小鹏这里可以修改自己的文字 SendMessageh2,BM_CLICK,0,ByVal0& EndIf EndIf EndSub这个是翻转屏幕代码 (添加一个Timer) OptionExplicit DimWAsLong,HAsLong PrivateDeclareFunctionStretchBltLibgdi32(ByValhdcAsLong,ByValXAsLong,ByValYAsLong,ByValnWidthAsLong,ByValnHeightAsLong,ByValhSrcDCAsLong,ByValxSrcAsLong,ByValySrcAsLong,ByValnSrcWidthAsLong,ByValnSrcHeightAsLong,ByValdwRopAsLong)AsLong PrivateDeclareFunctionGetDCLibuser32(ByValhwndAsLong)AsLong PrivateDeclareFunctionReleaseDCLibuser32(ByValhwndAsLong,ByValhdcAsLong)AsLong PrivateDeclareFunctionShowCursorLibuser32(ByValbShowAsLong)AsLong PrivateConstSRCCOPY=&HCC0020(DWORD)dest=source PrivateSubForm_Load() DimDCAsLong Me.Move0,0,Screen.Width,Screen.Height W=Screen.Width/15:H=Screen.Height/15 ShowCursorFalse Me.Visible=True DC=GetDC(0) StretchBltMe.hdc,W-1,H-1,-W,-H,DC,0,0,W,H,SRCCOPY ReleaseDC0,DC EndSub PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) IfButton=1ThenUnloadMe EndSub PrivateSubForm_Unload(CancelAsInteger) ShowCursorTrue EndSub PrivateSubTimer1_Timer() StretchBltMe.hdc,W-1,H-1,-W,-H,Me.hdc,0,0,W,H,SRCCOPY Me.Refresh EndSub这个是关闭QQ的代码 (需要添加一个Command1.一个text1) 这个程序打包的时候,金山毒霸说是病毒 希望懂的帮我看一下 OptionExplicit PrivateDeclareFunctionTerminateProcessLibkernel32(ByValhProcessAsLong,ByValuExitCodeAsLong)AsLong PrivateDeclareFunctionOpenProcessLibkernel32(ByValdwDesiredAccessAsLong,ByValbInheritHandleAsLong,ByValdwProcessIdAsLong)AsLong PrivateDeclareFunctionCloseHandleLibkernel32(ByValhObjectAsLong)AsLong PrivateDeclareFunctionCreateToolhelpSnapshotLibkernel32AliasCreateToolhelp32Snapshot(ByVallFlagsAsLong,ByVallProcessIDAsLong)AsLong PrivateDeclareFunctionProcessFirstLibkernel32AliasProcess32First(ByValhSnapShotAsLong,uProcessAsPROCESSENTRY32)AsLong PrivateDeclareFunctionProcessNextLibkernel32AliasProcess32Next(ByValhSnapShotAsLong,uProcessAsPROCESSENTRY32)AsLong PrivateDeclareFunctionShowWindowLibuser32(ByValhwndAsLong,ByValnCmdShowAsLong)AsLong PrivateConstSW_HIDE=0 PrivateConstSW_RESTORE=9 PrivateConstSW_SHOW=5 PrivateConstTH32CS_SNAPPROCESS=&H2 PrivateConstTH32CS_SNAPheaplist=&H1 PrivateConstTH32CS_SNAPthread=&H4 PrivateConstTH32CS_SNAPmodule=&H8 PrivateConstTH32CS_SNAPall=TH32CS_SNAPPROCESS+TH32CS_SNAPheaplist+TH32CS_SNAPthread+TH32CS_SNAPmodule PrivateConstMAX_PATHAsInteger=260 PrivateConstPROCESS_TERMINATE=&H1 PrivateTypePROCESSENTRY32 dwSizeAsLong cntUsageAsLong th32ProcessIDAsLong th32DefaultHeapIDAsLong th32ModuleIDAsLong cntThreadsAsLong th32ParentProcessIDAsLong pcPriClassBaseAsLong dwFlagsAsLong szExeFileAsString*MAX_PATH EndType PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger) Text1=想关点退出啊.怎么那么笨! Cancel=True EndSub PrivateSubcommand1_Click() DimiAsLong DimprocAsPROCESSENTRY32 DimsnapAsLong DimexenameAsString DimhandAsLong,theloopAsLong snap=CreateToolhelpSnapshot(TH32CS_SNAPall,0)：获得进程“快照”的句柄 proc.dwSize=Len(proc) theloop=ProcessFirst(snap,proc)：获取第一个进程，并得到其返回值 i=0 Whiletheloop0：当返回值非零时继续获取下一个进程 exename=proc.szExeFile IfLeft(LCase(exename),6)=qq.exeThen hand=OpenProcess(PROCESS_TERMINATE,True,proc.th32ProcessID)：获取进程句柄 TerminateProcesshand,0：关闭进程 EndIf theloop=ProcessNext(snap,proc) Wend CloseHandlesnap：关闭进程“快照”句柄 MsgBox真遗憾,您扣扣掉线了! End EndSub这个是爱不爱我代码,挺好玩的这个 （需要添加两个command） OptionExplicit PrivateSubCommand1_GotFocus() Command2.SetFocus EndSub PrivateSubCommand1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) RandomizeTimer WithMe Command1.MoveRnd*(.ScaleWidth-Command1.Width),Rnd*(.ScaleHeight-Command1.Height) EndWith EndSub PrivateSubCommand2_Click() MsgBox我也爱你！ End EndSub PrivateSubForm_Load() Me.AutoRedraw=True Me.FontSize=30 Me.Print你爱不爱我？ Command1.Caption=不爱 Command2.Caption=爱 EndSub PrivateSubForm_Unload(CancelAsInteger) Cancel=1 EndSub繁体简体转换 (需要添加4个Cammand.1个text) PrivateDeclareFunctionLCMapStringLibkernel32AliasLCMapStringA(ByValLocaleAsLong,ByValdwMapFlagsAsLong,ByVallpSrcStrAsString,ByValcchSrcAsLong,ByVallpDestStrAsString,ByValcchDestAsLong)AsLong PrivateDeclareFunctionlstrlenLibkernel32AliaslstrlenA(ByVallpStringAsString)AsLong 简转繁 PublicFunctionJToF(ByValStrAsString)AsString DimSTlenAsLong DimSTfAsString STlen=lstrlen(Str) STf=Space(STlen) LCMapString&H804,&H4000000,Str,STlen,STf,STlen JToF=STf EndFunction 繁转简 PublicFunctionFToJ(ByValStrAsString)AsString DimSTlenAsLong DimSTjAsString STlen=lstrlen(Str) STj=Space(STlen) LCMapString&H804,&H2000000,Str,STlen,STj,STlen FToJ=STj EndFunction PrivateSubCommand1_Click() Text1.Text=JToF(Text1.Text) EndSub PrivateSubCommand2_Click() Text1.Text=FToJ(Text1.Text) EndSub PrivateSubCommand3_Click() Text1.Text= EndSub PrivateSubCommand4_Click() End EndSub打开我的电脑等 (需要添加5个Command) PrivateDeclareFunctionShellExecuteLibshell32.dllAliasShellExecuteA(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong ConstSW_SHOWNORMAL=1 PrivateSubCommand1_Click(IndexAsInteger) SelectCaseIndex Case0 我的文档 ShellExecuteMe.hwnd,open,explorer,vbNullString,vbNullString,1 Case1 我的电脑 ShellExecuteMe.hwnd,open,explorer,:20D04FE0-3AEA-1069-A2D8-08002B30309D,vbnulstring,1 Case2 网上邻居 ShellExecuteMe.hwnd,open,explorer,:208d2c60-3aea-1069-a2d7-08002b30309d,vbNullString,1 Case3 回收站 ShellExecuteMe.hwnd,open,explorer,:645ff040-5081-101b-9f08-00aa002f954e,vbNullString,1 Case4 控制面板 ShellExecuteMe.hwnd,open,explorer,:21ec2020-3aea-1069-a2dd-08002b30309d,vbNullString,1 EndSelect EndSub五个窗口：分别代表任意自然数 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 +（c + d）/2 = (3 + 6) / 3 + (4 + 8) / 2 =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()函数将字符串变量转换为整形变量 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 Text1_Change()End SubPrivate Sub Command1_Click() txtfuhao.Text = + 将”显示到文本框txtfuhao.Text中 End SubPrivate Sub Command2_Click() txtfuhao.Text = - 将”-”显示到文本框txtfuhao.Text中 End SubPrivate Sub Command3_Click() txtfuhao.Text = 将”显示到文本框txtfuhao.Text中 End SubPrivate Sub Command4_Click() txtfuhao.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 运算过程 ElseIf 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 = 将空字符输入到文本框内（刷新） txtfuhao.Text = 将空字符输入到文本框内（刷新） End SubPrivate Sub Command7_Click() End 结束程序 End SubPrivate Sub Form_Load()End Sub计算圆的面积Private Sub Command1_Click() r = Val(Text1.Text) Text2.Text = Str(3.1416 * r * r) End Subvb神童教程第一章：我的第一个 VB 程序文章来源：赛迪 作者：小雷-一、打开程序：点击桌面上的 Visual Basic 图标，在弹出的如图一的窗口中选择“创建标准 EXE”按钮。图一确定后的状态如图二图二这就是创建了一个新的“标准 EXE”文件了。二、工作界面简介：默认的 VB 工作界面由标题栏（1）、菜单栏（2）、工具栏（3）、工具箱面板（4）、程序设计区（5）、项目窗口（6）、属性窗口（7）、布局窗口（8）组成，至于它们具体有什么作用，我们将在以后的实例学习中接触，这里就不予以说明。三、编写我的第一个应用程序：1、应用程序要产生的效果：创建的应用程序要有什么样的功能？这是开发每一个应用程序必须最先想到的。我们的第一个应用程序非常简单，使用者只需点击程序上的一个按钮，程序界面上就会显现“跟我来学 VB 神童教程”字样。2、开发思路：根据应用程序要实现的功能，那么我们至少需要制作一个按钮、一个程序界面，为了让应用程序更规范，我们还需要创建一个用来显示“跟我来学 VB 神童教程”字样的容器。3、具体制作过程：1、创建一个新的“标准 EXE”文件，如第一步所做。需要指出的是，这个以 Form1 为标题栏的程序界面就是我们需要的“程序界面”，也是用户首先看到的对象，所以尽可能将其做得美观一点。当然，对应用界面的美化问题我们将在以后探讨。2、根据开发思路，现在我们来制作按钮。双击工具箱面板上的命令按钮（Command Button）图标，如图三：图三然后你会发现程序界面上多了一个命令按钮，如图四：图四用鼠标拖动新建的按钮到适当位置，如图五：图五再创建一个标签按钮，双击如图六的图标：图六完成后程序界面如图七：图七用鼠标拖动标签按钮到合适位置，如图八：图八将鼠标放在标签按钮左右边缘任意一处，当鼠标呈左右键头时横向拖动，把标签按钮拖长，最后的程序界面如图九：图九3、对按钮属性进行设置：开发任何应用程序，在完成界面布局后，应该就每一个元素进行属性设置以达到自己的要求。当然，也可以在元素布局的过程中进行属性设置。 首先点选箭头状的“选择”图标以便进行选择，如图十： 图十选中程序界面上的命令按钮，然后找到属性面板，如图十一： 图十一其中，“名称：Command1”是此按钮的名称，主要用于程序引用，所以不要用中文名字。 此处，可以不修改按钮的名字，但为了程序更规范，我们将其名字改成“CmdShow”，如图十二： 图十二“Caption：Command1”是命令按钮的标题，也就是显示在命令按钮上的字样，我们将其改成“显示”，如图十三： 图十三用上面的方法，我们将标签按钮的名字改为“LblShow”，如图十四： 图十四将标签按钮的标题改成空字符串，也就是没有任何文字，如图十五： 图十五4、输入程序代码：我们前面讲到的元素布局、属性设置只不过是对应用程序操作界面的定制，要让程序实现功能，关键还得输入程序代码。 选中命令按钮 CmdShow ，然后双击它，弹出如图十六的程序代码输入窗口： 图十六在光标闪烁处输入代码：LblShow.Caption = 跟我来学 VB 神童教程（这句程序是什么意思？以后我们讲述）。如图十七： 图十七输入完毕，点击右上角的 “X” 回到对象窗口，然后点击工具栏上的“启动”按钮（快捷键：F5），可以看最终结果了！四、知识点：1、我们的第一个程序确实非常简单，但它道出了程序设计的基本方法：首先，应用程序要用来做什么？也就是开发应用程序的目的；其次，应用程序大体上由哪些元素组成？也就是应用程序的操作界面如何，如果可能，最好先用笔把程序界面画出来；然后是对程序界面中每一个元素的属性进行设置；最后输入程序代码和调试。2、前面我们所谈到的“命令按钮”、“标签按钮”，其实它们准确的说法是“命令按钮控件”、“标签按钮控件”，无论是这些控件，还是刚才作为应用程序界面的“窗体”，都是“对象”，因此， VB 是一门面向对象的编程语言，每一个对象都具有很多属性，如大小、位置、标题等等。属性的设置通过属性窗口完成。3、这一点的内容不需强记，在以后的控件讲述中将会涉及。除了“命令控钮控件”、“标签按钮控件”，默认的工具箱面板上还有“指针”工具（用来选择程序设计窗口中的对象）、图片控件（在界面上添加图片）、文本框控件（在界面上显示文本或用来输入文本）、选项框控件（主要用来作为区域划分的控件，一般把相同类型的控件放置在一个选项框中，把其他类型的控件放在其他选项框中）、复选控件（用来制作复选按钮）、单选控件（制作单选按钮）、组合框控件（用来制作功能更为强大的列表框，既有文本框控件的功能，还有列表框控件的功能）、列表框控件（制作各种列表）、滚动条控件（共有横向与竖直两种）、时钟控件（一般用来添加时间触发）、文件操作控件（共有磁盘列表框控件、文件夹列表框、文件列表框三种），另外，还有绘图控件、图像框控件、日期控件。4、VB 提供了丰富的控件选择，除了默认的工具箱面板上的控件外，还有很多控件没有罗列出来，我们可以通过“工程部件”命令或在工具箱面板上单击鼠标右键，在弹出的快捷菜单中选择“部件”命令，弹出如图十八的窗口：图十八本窗口罗列了当前系统中所有的控件，只需选中所需控件前面对应的复选框就行了。5、编写程序应该养成好习惯，在给每一个对象命名时首先要保证规范，其次要能“望文生义”，也就是看见一个对象的名字就能知道它是做什么的，如前面我们给命令按钮控件起名为“CmdShow”，一看就知道是用来 Show 的 Command 类型控件。 6、我们最初进入的程序设计界面是对象界面，进入代码界面的办法很简单，前面用到的双击控件是一种办法，另外还可以通过点击项目窗口中的“查看代码”按钮进入，如果点按旁边的“查看对象”按钮就会又回到原来的对象界面。如图十九： 图十九7、在前面的例子：LblShow.Caption = 跟我来学 VB 神童教程中，“”并不是数学中的等号，而是一种赋值符号，表示：将“跟我来学 VB 神童教程”这个字符串赋值给 LblShow ，并作为它的标题。 另外如：X = X+6 ，在数学中，这种表达式不存立，而在 VB 中，是指在 X 本来的基础上加 6 ，然后把结果重新赋给 X ，这时 X 的值不再是原来的数字，而是加上 6 后的值。 8、程序的保存：在 VB 中进行保存，常常用“保存工程”命令，而在保存过程中，必须保存两次，一次是以 .frm 为扩展名的文件保存，另一次是以 .VBP 为扩展名的文件保存。前者是保存应用程序的窗体文件，后者是保存应用程序的工程文件。如图二十与图二十一： 图二十vb神童教程第二章第一节Label 控件文章来源：赛迪网 作者：小雷-在第一章，我们已经知道，任何一个 VB 程序都是由操作界面及与之相应的程序代码组成，而操作界面则是由诸如“命令按钮控件”、“标签控件”等控件以及窗体共同组成。从本章开始，我们进入控件的学习过程。 Label（标签控件）是图形控件，主要作用在于显示文字信息，如大家比较熟悉的程序安装界面：在某个软件安装过程中，常常会显示一些帮助信息或与产品相关的介绍信息，而这些，大多是用标签控件制成的。与以后我们要学到的文本框控件（TextBox）不同的是，标签控件显示的文字不能直接进行修改，要修改的话只能在设计阶段进行；文本框既可以用来显示文本，还能够在文本框中输入文本。在 Visual Basic 工具箱中，标签控件的图标如图一所示。标签的默认名称（Name）和标题（Caption）为 LabelX（X为1、2、3，等等），规范的命名方式为：LblX（X为自己定义的詞，如 LblShow 、LblRed ，等等）图一一、标签控件的主要属性：1、Caption（标题）属性：此属性用来设置在标签上显示的文本信息，可以在创建界面时设置，也可以在程序中改变文本信息，如第一章的例子中，通过点击按钮改变标签显示的字样。如果要在程序中修改标题属性，代码规则如下：标签名称.Caption = 欲显示的文本如第一章在程序中改变标签 LblShow 的 Caption 属性：LblShow.Caption = 跟我来学 VB 神童教程但是请大家注意，上面的代码应该写入供触发的控件对应的程序代码区，如第一章中，是在命令按钮的程序代码区输入的代码，而不是标签本身的代码区哟。这也是初学者常常大惑不解的地方，为什么我要让标签改变字样，却要在其他控件中输入代码？这是因为，我们是通过触发其他控件这个事件来让标签改变 Caption 属性的。当然，你也可以让标签本身来触发 Caption 属性改变事件，如用鼠标点击标签，这时你就需要在标签对应的程序代码区输入代码了，但在实际编写中，这种情况非常罕见。毕竟，标签控件用于显示信息的本意远远超过了响应鼠标点击的意图。2、BorderStyle（边框）属性：本属性用来设置标签的边框类型，有两种值可选：0，代表标签无边框；1，代表标签有边框，并且具有三维效果，如图二显示的两个标签：图二BorderStyle 属性可以在设计界面时指定，如图三： 图三也可以在程序中改变（但这种应用不多见），程序代码规则：标签名.BorderStyle = 0/1（0或1，两者取一）习题一：创建一个标签（LblShow）、两个按钮（CmdChange1、CmdChange2），点按 CmdChange1 ，标签有边框；点按 CmdChange2 ，标签无边框。联想：在完成本题后，你可能会想到，有没有办法用一个按钮来完成本题的功能？即鼠标点击一下，标签有边框，再点一下，标签边框消除，再点一下，边框又出现，以此类推。回答是肯定的，不过，这是在以后的学习中要讲的。答案：见本节最后的答案区。3、Font（字体）属性：本属性用来设置标签显示的字体，既可以在创建界面时设定，也可以在程序中改变。在创建界面时设定，如图四：图四在图四的设置界面中，除了可以选择字体，还可以设置显示文字是否为粗体、斜体、下划线等。在程序中改变 Font 属性，程序代码书写规则如下：字体改变：标签名.FontName = 字体类型，其中，“字体类型”可以是中文，如“宋体”、“隶书”；也可以是英文名，如“Arial”、“Times New Roman”，等等，不过，这些字体名称必须是电脑上有的。字体大小改变：标签名.FontSize = X ，其中，X 是阿拉伯数字，代表字体是几号字。如：LblShow.FontSize = 11 。粗体（FontBold）、斜体（FontItalic）、下划线（FontUnderline）、删除线（FontStrikethru）属性的设置值是代表真/假的逻辑判断值 True/False ，如下：LblShow.FontBold = True/FalseLblShow.FontItalic = True/False习题二：一个标签（LblShow）用于显示文本；按钮1（Cmd1）可以让标签显示的字体变成隶书；按钮2（Cmd2）可以让标签显示的字体变成 13 号字；按钮3（Cmd3）可以让字体变成粗体。答案：见本节最后的答案区。4、Alignment（对齐）属性：此属性用来设置标签上显示的文本的对齐方式，分别是：左对齐，0；右对齐，1；居中显示，2。可以在界面设置时设定，如图五：图五也可以在程序中改变，代码如下：标签名.Alignment = 0/1/2 5、Visible（可见）属性：本属性在大多数控件中都有，它能设定该控件是否可见。当值为 True ，控件可见；当值为 False ，控件隐藏。 控件的可见属性可以在界面设置时设定，如图六： 图六也可以在程序中改变，代码如下： 标签名.Visible = True/False 习题三：一个标签（LblShow），在界面设置时为可见；按钮1（Cmd1），能够让标签隐藏；按钮2（Cmd2），能够让标签显现。 答案：见本节最后的答案区 二、标签控件（Label）的主要事件：所谓的事件，其实就是用户对应用程序的操作，如第一章中用鼠标点击命令按钮触发的 Click 事件。事件的作用在于触发程序的执行，如第一章中的 Click 事件改变了标签控件的 Caption 属性。标签控件的主要作用在于显示文本信息，但也支持一些为数不多的事件。1、Click 事件（鼠标单击）：用鼠标点击标签时触发的事件，如改变标签的字体属性：Private Sub LblShow_Click()LblShow.FontName = 隶书End Sub2、DbClick 事件（鼠标双击）：鼠标双击引发的事件，如改变标签的可见性：Private Sub LblShow_DbClick()LblShow.Visible = FalseEnd Sub三、知识点：1、用 VB 编写程序犹如搭积木，把每块“积木”（控件或其他对象）放在合理的位置，然后以某种机制（程序）将这些“积木”们运用起来，最后就搭成了我们需要的东西。所以，掌握每一种控件，包括它们的属性与主要事件，是我们学习编程的基础！2、某些属性是大多数控件所共有的，如 Name 、FontBold、FontItalic、Visible ，等等；但也有些属性是某个控件所独有的，如标签控件的 WordWrap （标签的标题显示方式）。本节中我们只是讲述了部分标签控件的属性，其他属性可以在 VB 的帮助文件中查找到。3、大家在学习过程中一定会疑惑，为什么在属性设置时，“” 右边有时使用 ，有时又不使用 。不知大家注意到没有，我们在使用 时，是因为引号里面的内容是字符串，如隶书、Times New Roman，等等。4、字符的大小写问题：初学者还常常疑惑，字母什么时候应该大写，什么时候应该小写？其实，大写小写在 VB 程序中都是一样的，但为了让程序编写得更为规范，程序可读性更高，英文单词的第一个字母一般都要大写，如 Visible 、Name ，等等；控件的命名也遵循以上原则，不同的是，命名都是由“控件类型名具体名字”组成的，控件类型名的第一个字母要大写，具体名字的第一个字母要大写，如 LblShow 、CmdShow 、LblChange ，等等。5、程序代码的规范：上面有这样的例子：Private Sub CmdShow_Click()LblShow.Caption = 跟我来学 VB 神童教程End SubPrivate Sub CmdShow_Click()代表一个过程，共由两部分组成，CmdShow 代表 CmdShow 这个按钮，Click 代表这个按钮的触发事件。以此类推，Private Sub LblShow_DbClick ()也代表一个过程，LblShow 是个标签，DbClick 是双击事件。另外，Private 意为“私有”，表明这个事件过程的类型；此外还有 Public 即“公有”事件。Sub 表明这个过程是“子程序”，若干个“子程序”共同组成最终的应用程序。()里面是用来装参数的，关于参数，我们以后讲述，如果没有参数，()里面为空。四、答案区：第一题：第一个按钮的点击事件：Private Sub CmdChange1_Click()LblShow.BorderStyle = 1End Sub第二个按钮的点击事件：Private Sub CmdChange2_Click()LblShow.BorderStyle = 0End Sub第二题：按钮1：Private Sub Cmd1_Click()LblShow.FontName = 隶书End Sub按钮2：Private Sub Cmd2_Click()LblShow.FontSize = 1