kok电子竞技

控件的分类

需要在窗体中放置各种控件，才能实现用户与应用程序之间的信息交互内部控件标签,文本框,命令按钮等控件的常用属性概念:属性是用来描述和反映对象特征的参数Name(名称):所有对象都具有,当在代码中引用这个对象时,要给出它的名称.Caption(标题):决定了控件上显示的内容.Enabled:决定了对象在运行时是否允许用户进行操作.True为允许,False为禁止.Visible:决定了对象在运行时是否可见.True为可见,False为不可见.Font:决定了字符的格式,如字体(FontName,字符型),字号(FontSize,整型),字形(粗体FontBold,斜体FontItalic,带下划线FontUnderline,带删除线FontStrikethru,逻辑型).Height,Width,Top,Left:给出了控件的大小与位置.ForeColor,BackColor:设置控件的前景色和背景色.其值是一个十六进制常数.如黑色&H80000008&Rgb(r,g,b)0-255YXTopHeightLeftWidth属性的设置方法通过属性窗口来直接设置只读属性,如Name在代码中通过赋值实现方法:对象名称.属性名称=设置值如:Command1.Caption=“确定”Label1.BorderStyle=0/1Text1.FontSize=11Label1.Visible=True/False说明：一般不需要对全部属性一一设置,只有当系统提供的默认值不满足要求时,才重新设置.对象为窗体时，可以省略对象名称。标签〔Label)作用:用于显示静态的,不可修改的文本信息常用作窗体中某些没有Caption属性控件的标识说明.如文本框,列表框等.还可为窗体添加说明性文字标签的属性名称：设置标签的名称。Caption:设置标签的标题。Font:字体ForeColor和BackColor:前景色和背景色Alignment:改变标签文本相对于标签的对齐方式Height,Width:高度和宽度AutoSize:是否可以自动改变尺寸,以适应其内容的变化,值为True和False.如为True,那么标签会根据其内容改变水平方向的尺寸WordWrap:可使标签框根据其内容自动进行垂直方向的改变,并保持宽度的不变要使Wordrap有效,必须使AutoSize的属性为True标签常用事件最常用的事件是Click(单击)事件和DblClick(双击)事件。

例题编写一程序,要求:当单击”向上移”按钮时,标签上移,当单击”向下移”按钮时,标签下移.程序界面如下图lbl.Top=lbl.Top–100lbl.Movelbl.Left,lbl.Top-100代码实现PrivateSubcmdDown_Click()‘向下移lbl.Caption="再见"‘改变显示的字符lbl.Top=lbl.Top+100‘向下移lbl.Left=lbl.Left+100’向右移EndSubPrivateSubcmdUp_Click()’向上移lbl.Caption="你好"lbl.Top=lbl.Top-100EndSub用Move方法实现移动PrivateSubcmdDown_Click()lbl.Movelbl.Left,lbl.Top+100‘向下移EndSub例题编写一程序,要求:当单击”左移”按钮时,标签左移,显示”你好“字符，并且字体变为”隶书“，当单击”右移”按钮时,标签右移，显示”再见“字符，并且字体变为带删除线.程序界面如下图。程序代码PrivateSubCommand1_Click()lbl1.Left=lbl1.Left-100lbl1.Caption="你好"Lbl.FontName="隶书"lbl1.FontStrikethru=FalseEndSubPrivateSubCommand2_Click()lbl1.Left=lbl1.Left+100lbl1.Caption="再见"lbl1.FontStrikethru=TrueEndSub文本框〔TextBox)是一个文本编辑区域,程序运行时可以用来显示、输入、编辑文本重要属性Text:存放了文本框中实际要显示的文本使用方法：在属性窗口设置文本框初始显示内容，默认为Text1在运行时通过代码设置或由用户输入。如Text1.text=“欢送进入奇妙的VB世界”当用户对文本框的内容进行了输入、编辑后，可以用该属性将当前内容返回。如Text2.text=Text1.textMultiline:将其值设为True,可以在文本框中显示或输入多行文本.ScrollBars:给文本框加上滚动条,可以显示较多内容,有0~3四个值.只有当Multiline的值为True时,ScrollBars的设置才有效.Locked:指定文本框中的文本能否被编辑.逻辑值.假设值为False,那么文本框就相当于标签.Enabled:设置文本框是否能对事件产生响应.PasswordChar:在用户输入密码时将输入字符用”*”等符号屏蔽.ToolTipText:设置文本框的提示符.MaxLength:最大长度。设置文本框允许输入字符的最大数量。默认值为0，表示不受限制。SelStart:所选文本的起始点，第一个字符的位置为0SelLength:所选文本的长度SelText:选定文本的内容,如果没选中字符,那么为””.3个属性在设计时不能用,在运行时能用,与剪贴板配合完成文本的剪切、复制和粘贴.如:Text1.SelStart=0Text1.SelLength=8Text2.Text=Text1.SelText这3条语句用来实现复制文本框Text1中选中的8个字符到文本框Text2中.常用事件和方法文本框支持Click、DblClick等鼠标事件，同时支持Change、GotFocus、LostFocus等事件

文本框常用方法：SetFocus方法例题编写一个用户登录界面程序。要求，当用户输入合法的用户名和密码后，跳出一个”用户成功登录“的信息显示框；当用户名或密码错误，那么跳出一个”用户名或密码错误“的信息警告框。〔假设用户名和密码分别为：ws和123456。显示界面如下图。PrivateSubCommand1_Click()Iftxtuser.Text="ws"Andtxtpwd.Text="123456"ThenMsgBox"你是合法用户,欢送进入",64,"欢送进入"ElseMsgBox"用户名或密码错误",16,"错误"EndIfEndSubPrivateSubCommand2_Click()txtuser.Text=""txtpwd.Text=""EndSub复制一局部文本的程序代码PrivateSubCommand1_Click()Text1.SelStart=0Text1.SelLength=10Text2.Text=Text1.SelTextEndSub命令按钮〔CommandButton〕作用：接收用户的操作信息，并引发应用程序的某个操作可以在Caption属性中为控件指定一个访问键。例如，将命令按钮的Caption属性设置为“结束(&E)”，那么运行时，只要用户同时按下Alt键和E键，就能执行该按钮命令。常用属性Default属性和Cancel属性Default属性和Cancel属性分别用于设置“默认按钮”和“取消按钮”

Style属性:设置命令按钮的外观

它有两种选择，一种为0-Standard，表示标准风格的命令按钮，它不支持背景颜色BackColor和图片属性Picture。而1-Graphical，为“图形显示”风格，它既能设置BackColor，也能设置Picture属性。所以要让Command控件显示图形，需将其Style属性设置为1。

命令按钮常用事件和方法最常用的事件是Click(单击)事件，但不支持DblClick(双击)事件。常用的方法是SetFocus方法。

主要属性value:其值有三个：0，1，2。当复选框未被选中时，值为0；当复选框被选中时，值为1；2为灰色被选中并可用。复选框〔CheckBox)作用：用复选框可显示多个选项，用户可选定一个或多个选项。一些例子复选框的例子例题界面如下图。选中红色复选框,图片框中显示红色；选中绿色,图片框中显示绿色；选中蓝色,图片框中显示蓝色单项选择按钮〔OptionButton)作用：用来显示一组选项，用户可以从中选择一项。一些例子：属性Value：其值为逻辑值，当被选中时，值为True,未被选中时，值为False.Caption.可用此属性为单项选择按钮添加快捷键.代码实现Dimr,g,bAsIntegerPrivateSubchkR_Click()IfchkR.Value=1Thenr=255Elser=0EndIfpic.BackColor=RGB(r,g,b)EndSubPrivateSubchkG_Click()IfchkG.Value=1Theng=255Elseg=0EndIfpic.BackColor=RGB(r,g,b)EndSubPrivateSubchkB_Click()IfchkB.Value=1Thenb=255Elseb=0EndIfpic.BackColor=RGB(r,g,b)EndSub例题界面如图。分别单击这些按钮，结果如何？代码实现〔1〕PrivateSubOptR_Click()pic.BackColor=RGB(255,0,0)EndSubPrivateSubOptG_Click()pic.BackColor=RGB(0,255,0)EndSubPrivateSubOptB_Click()pic.BackColor=RGB(0,0,255)EndSub框架〔Frame)作用:中选定一个单项选择按钮时，其它的自动关闭。如果需要在同一窗体中建立几组相互独立的单项选择按钮，就需要用框架将每组单项选择按钮框起来，使各组的操作互不影响。用框架将控件框起来，可以提供视觉上的区分和总体上的激活或屏蔽。创立框架及内部控件时，必须先建立框架，然后在其中建立各种控件框架内的所有控件将随框架一起移动，显示，消失和屏蔽。对框架的操作，也就是对其框住的内部控件的操作。例如作业编写一程序，界面如图1所示。当点击相应的单项选择按钮和复选框时，文本框中文字就相应地改变〔如图2所示〕。代码实现PrivateSubOptR_Click()txt.ForeColor=RGB(255,0,0)EndSubPrivateSubOptG_Click()txt.ForeColor=RGB(0,255,0)EndSubPrivateSubOptB_Click()txt.ForeColor=RGB(0,0,255)EndSubPrivateSubchkB_Click()txt.FontBold=Nottxt.FontBoldEndSubPrivateSubchkI_Click()txt.FontItalic=Nottxt.FontItalicEndSubPrivateSubchkU_Click()txt.FontUnderline=Nottxt.FontUnderlineEndSub或：PrivateSubchkB_Click()IfchkB.Value=1Thentxt.FontBold=TrueElsetxt.FontBold=FalseEndIfEndSubPrivateSubchkI_Click()IfchkI.Value=1Thentxt.FontItalic=TrueElsetxt.FontItalic=FalseEndIfEndSubPrivateSubchkU_Click()IfchkU.Value=1Thentxt.FontUnderline=TrueElsetxt.FontUnderline=FalseEndIfEndSub列表框(ListBox)作用:显示工程列表，用户从中选择一个或多个，实现与用户交互。属性List:存放列表框的工程。是一个字符型的数组。下标从0开始。ListIndex:表示执行时选中的列表项序号。其值为0，1，2…，未选中，那么为-1。ListCount:列表框中工程的个数。Selected:是一个逻辑数组。如Selected(0)=True表示第1项被选中。Selected(3)=trueSorted:是否按字母顺序排列显示。为逻辑值。MultiSelect:其值为0，1，2。0：禁止多项选择，1：简单多项选择；2：扩展多项选择。Text:选中的列表项的文本内容。Style:样式，取值0-standard，1-checkboxColumns:0,1,或大于1列表框的方法〔1〕AddItem:添加工程格式：ListBox.AddItemitem[,index]如：list1.AddItem“紫色“list1.AddItem“红色“，0〔2〕RemoveItem:移除工程格式：list1.RemoveItem0〔3〕删除所有工程list1.clear例：添加和删除列表项建立两个如下图的列表框。左边”选择你喜欢的水果“的列表框中显示一些水果的名称。编程实现：〔1〕当用鼠标单击左边列表框中的水果名称时，选中的水果就会出现在右边的“你选中的水果”列表框中。〔2〕当在右边的列表框中单击水果时，可将水果名称删除。程序代码PrivateSublst1_Click()lst2.AddItemlst1.TextEndSubPrivateSublst2_Click()lst2.RemoveItemlst2.ListIndexEndSub组合框〔ComboBox)作用：它组合了文本框和列表框的特性而形成的一种控件。在列表框中列出各项，如果用户选中某个选项，在文本框中装入该选项。如列表框中没有该选项时，可在文本框中直接键入。中直接键入。属性style:设置组合框的风格和类型Style=0,下拉式组合框。可以直接输入文本。文本框有下拉箭头。Style=1,简单组合框。可直接输入文本，也可从列表中选择工程。Style=2,下拉式列表框。只能从列表中选择工程，不能在文本框中输入。例子例编程实现。当鼠标单击选中组合框中的作者名时，右边显示该作者的作品。程序代码PrivateSubcbo1_Click()SelectCasecbo1.TextCase"李白"lbl1.Caption=“静夜思”&Chr(13)&Chr(13)&“床前明月光，”&Chr(13)&Chr(13)&“疑是地上霜。”&Chr(13)&Chr(13)&“举头望明月，"&Chr(13)&Chr(13)&"低头思故土。"Case"杜甫"lbl1.Caption="绝句"&Chr(13)&Chr(13)&"两个黄鹂鸣翠柳，"&Chr(13)&Chr(13)&"一行白鹭上青天。"&Chr(13)&Chr(13)&"窗含西岭千秋雪，"&Chr(13)&Chr(13)&"门泊东吴万里船。"Case"李清照"lbl1.Caption="绝句"&Chr(13)&Chr(13)&"生当作人杰，"&Chr(13)&Chr(13)&"死亦为鬼雄。"&Chr(13)&Chr(13)&"至今思项羽，"&Chr(13)&Chr(13)&"不肯过江东。"EndSelectEndSub滚动条〔ScrollBar)作用：在应用程序或控件中水平或垂直滚动屏幕，方便浏览信息。分类：水平滚动条〔HscrollBar)和垂直滚动条(VscrollBar)。属性Min和Max：Min:滚动块处于最左端或最上端时的值。默认为0。Max:滚动块处于最右端或最下端时的值。默认为32767。Value:对应于滚动块在滚动条中的位置。是一个整数。LargeChange:单击滚动条时Value增加或减少的长度。SmallChange:单击滚动条两端的箭头时Value增加或减少的长度。滚动条的事件(1)Scroll:在滚动条内拖动滚动框时触发的事件，可用来跟踪滚动条中的动态变化。(2)Change：Value值改变时会触发的事件，可用来得到滚动条最后的值。例程序运行开始时，界面如图。当改变滚动框在滚动条中的位置时，文本框中的显示值能显示出滚动条的相应变化。滚动块在最左端时，文本框显示0，最右端时，文本框显示100。代码实现PrivateSubhsb_Change()txt1.Text=str(hsb.Value)+”mph”EndSubPrivateSubhsb_Scroll()txt1.Text=str(hsb.Value)+”mph”EndSub例如图，用3个滚动条模拟三原色，产生颜色改变并显示在一个图片框的背景上。PrivateSubhsbb_Change()‘蓝色Form1.BackColor=RGB(hsbr.Value,hsbg.Value,hsbb.Value)EndSubPrivateSubhsbg_Change()’绿色Form1.BackColor=RGB(hsbr.Value,hsbg.Value,hsbb.Value)EndSubPrivateSubhsbr_Change()‘红色Form1.BackColor=RGB(hsbr.Value,hsbg.Value,hsbb.Value)EndSub程序代码用控件数组实现设定控件中的Index属性PrivateSubhsb_Change(IndexAsInteger)lbl(Index).Caption=hsb(Index).Valuepic.BackColor=RGB(hsb(0).Value,hsb(1).Value,hsb(2).Value)EndSub控件数组(P83)概念:是由一组相同类型的控件组成的,共用一个控件名.作用:适用于假设干个控件执行操作类似的场合,控件数组共享同样的事件过程.控件数组通过Index(索引号)属性来标识各控件.建立控件数组的方法

1.在窗体上画出某控件,并对其Index属性设置2.选中某个控件进行”复制”,”粘贴”操作.计时器〔Timer)作用：时间控制功能：如在程序界面上显示当前时间，每隔一定时间激活一个事件等。计时器在运行时是不可见的。属性Interval:用于设置计时器的时间间隔〔ms〕，最大为65535。Enabled:为逻辑值，控制计时器的开与关。事件Timer:只此一个事件。当每一个由interval设置的时间间隔过去后，就会触发timer事件。如将窗体的标题变为时钟：PrivateSubTimer1_Timer()form1.Caption=Time()EndSub例用计时器控件制作一个简单的闹钟。当设定的时间到时，提示“时间到！”代码PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()txt2.Text=TimeIftxt1.Text=txt2.TextThenlbl.Caption="时间到！"EndIfEndSub例编程实现。要求在窗体上显示一个“欢送光临”的标签，此标签能自动地在屏幕上从左到右地移动。当移出屏幕时，那么从左端开始出现继续移动。代码实现PrivateSubTimer1_Timer()Iflbl.Left<Form1.WidthThenlbl.Left=lbl.Left+100Elselbl.Left=0EndIfEndSubPrivateSubTimer1_Timer()lbl.Left=lbl.Left+100Iflbl.Left>Form1.WidthThenlbl.Left=0EndSub