1、VB设计题汇编,VB设计题分类,时钟控件应用列表框&组合框控件应用图形框&图像框&绘图&图片加载滚动条的应用文本框&按钮&标签控件单选框&复选框&框架控件应用菜单设计,时钟控件应用相关,时钟控件主要包括2个属性：Interval、Enable时钟控件的Timer事件是控制在频率内执行相关控件的属性变化,Private Sub Form_Load()Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd Sub,Private Sub Command2_Click()Label1.Capt
2、ion = 00:00:00Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Label1.Caption = Format(Time, hh:mm:ss)End Sub,列表框&组合框控件应用,列表框&组合框共有重要属性：Style、List、ListIndex、ListCount（如果未选定项目，则 ListIndex 属性值是 -1。列表的第一项是 ListIndex 0，ListCount 属性值总是比最大的 ListIndex 值大 1 ；对 List、ListCount 和 ListIndex 属性进行设置就可以访问 Li
3、stBox 中的项目。也可以在设计时使用 List 属性在列表中增加项目。）方法：RemoveItem 方法：用以从 ListBox 或 ComboBox 控件中删除一项。语法：object.RemoveItem index；其中的index是必需的。一个整数，它表示要删除的项或行在对象中的位置。对于 ListBox 或 ComboBox 中的首项，index = 0。AddItem 方法：用于将项目添加到 ListBox 或 ComboBox 控件。语法：object.AddItem item, index其中Item是必需的。字符串表达式，它用来指定添加到该对象的项目。Index可选。是整
4、数，它用来指定新项目或行在该对象中的位置。如果所给出的 index 值有效，则 item 将放置在 object 中相应的位置。如果省略 index，当 Sorted 属性（返回一个值，指定控件的元素是否自动按字母表顺序排序 ）设置为 True 时，item 将添加到恰当的排序位置，当 Sorted 属性设置为 False 时， item 将添加到列表的结尾。Clear方法用于清除 ListBox，ComboBox内的项目,添加两个list控件和一个Caption属性为剪切的按钮.Private Sub Command1_Click()List2.AddItem List1.TextList1
5、.RemoveItem List1.ListIndexEnd SubPrivate Sub Form_Load()List1.AddItem AAAList1.AddItem BBBList1.AddItem CCCList1.AddItem DDDList1.AddItem EEEEnd Sub,图片框&图像框&图形控件&绘图,PictureBox控件属性：AutoSize属性（根据内容大小调节图片框的尺寸 ）；Picture属性（指定一个图片。设计时可以从属性窗口中加载图片。在运行时，也可以使用 LoadPicture 函数来设置该属性 ）；Height、Width 属性；Visible
6、属性Image控件属性：Stretch 属性（确定是否缩放图形来适应控件大小）； Picture属性方法：Print方法；Cls方法（Cls 将清除图形和打印语句在运行时所产生的文本和图形，而设计时在 Form 中使用 Picture 属性设置的背景位图和放置的控件不受 Cls 影响）Shape控件属性：Shape 属性（返回或设置一个值指示Shape 控件的外观）；FillStyle 属性（返回或设置用来填充 Shape 控件的模式）。,绘图方法,Circle 方法：在对象上画圆语法是：object.Circle Step(x, y), radius, color, start, end ,
7、 aspectstart 参数和 end 参数是可选的；但是，如果想省掉参数，逗号是不能省的。aspect 参数指定了水平长度和垂直长度比。它既可以是整数表达式，也可以是小数表达式，但不能是负数。该 aspect 参数较大时，椭圆沿垂直轴线拉长；相反，该 aspect 参数较小时，则沿水平轴线拉长。由于椭圆有两个半径水平方向的 x 半径和垂直方向 y 半径 Visual Basic 在 Circle 语句中只使用了一个参数 radius（半径） 对应椭圆的长轴。如果 aspect 参数小于 1 的话，该 radius 半径指的是水平方向的 x 半径，如果 aspect 参数大于或等于 1 的话
8、，则 radius 指的是垂直方向的 y 半径。注意 aspect 参数指定的总是水平长度和垂直长度的实际物理距离比，要保证这一点（即便用的是自定义标尺），半径应以水平单位指定。,Line 方法：在对象上画直线和矩形。语法：object.Line Step (x1, 1) Step (x2, y2), color, BFobject可选的。 如果object 省略，具有焦点的窗体作为object。Step可选的。关键字，指定起点坐标， (x1, y1)可选的。直线或矩形的起点坐标。Step可选的。关键字，指定相对于线的起点的终点坐标。 (x2, y2)必需的。直线或矩形的终点坐标。color可
9、选的。画线时用的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。B可选的。如果包括，则利用对角坐标画出矩形。F可选的。如果使用了 B 选项，则 F 选项规定矩形以矩形边框的颜色填充。不能不用 B 而用 F。如果不用 F 光用 B，则矩形用当前的 FillColor 和 FillStyle 填充。FillStyle 的缺省值为 transparent。说明画联结的线时，前一条线的终点就是后一条线的起点。线的宽度取决于 DrawWidth 属性值。在背景上画线和矩形的方法取决于 DrawMode 和 DrawStyle 属性值。执行 Line 方法时， CurrentX 和 Cu
10、rrentY 属性被参数设置为终点。,在工具栏的“添加窗体”添加form2窗体.在工程资源管理器窗口中的“工程属性”对话框指定form1为启动窗体.在Form1中添加一个命令按钮.Private Sub Command1_Click()Unload MeForm2.Showform2.picture=Loadpicture(“K:Fjexam95ravmon.jpg”)End Sub,控件属性设置如题Private Sub Form_Load()Image1.Picture =LoadPicture(k:fjexam95Tree.jpg)Image2.Picture = LoadPicture
11、(k:fjexam95dog.jpg)Image3.Visible = FalseEnd SubPrivate Sub Command1_Click()Image3.Picture = Image1.PictureImage1.Picture = Image2.PictureImage2.Picture = Image3.PictureImage3.Visible = FalseEnd Sub,相关代码如下：Private Sub C1_Click()Form1.Picture = LoadPicture(k:fjexam95jztx.bmp)End SubPrivate Sub C2_Cli
12、ck()Form1.Picture = LoadPicture()End Sub,滚动条的应用,滚动条的属性：Max 、Min 属性；LargeChange 属性（单击滚动条时滚动条内所示变化量）；SmallChange 属性（单击滚动条两端的箭头时滚动条内所示变化量）；Value 属性（返回或设置滚动条的当前位置，其返回值始终介于 Max 和 Min 属性值之间，包括这两个值。 ）经常使用滚动条控制颜色、文本框或者图片框显示的展开,添加Label2，Label3，Label4，Label5.其Caption分为”调出颜色”,”红(R)”,”绿(G)”,”蓝(B)”的标签控件，Label1的
13、Caption 为空，和添加三个水平滚动条(名称为hs1,hs2,hs3)，且min,max属性值均为0，255。Private Sub HS1_Change()Label1.BackColor=RGB(HS1.Value,HS2.Value, HS3.Value)End SubPrivate Sub HS2_Change()Label1.BackColor=RGB(HS1.Value,HS2.Value, HS3.Value)End SubPrivate Sub HS3_Change()Label1.BackColor=RGB(HS1.Value,HS2.Value, HS3.Value)E
14、nd Sub,文本框&按钮&标签控件,文本框控件属性按钮控件属性标签控件属性,相关代码如下：Private Sub Command1_Click()Text1.Visible = FalseEnd SubPrivate Sub Command2_Click()Text1.Visible = TrueText1.Text = VB程序设计End Sub,Private Sub Command1_Click()If Text1.Text = student ThenLabel2.Caption = 欢迎使用本系统ElseLabel2.Caption = 口令错，请重新输入“Text1.SelSta
15、rt = 0Text1.SelLength = Len(Text1.Text)Text1.SetFocusEnd IfEnd SubText1属性：PassWordChar-*,添加标签caption属性为“请您输入您的昵称”的label控件；添加一个文本框和一个caption属性为“下一步”的命令按钮，其enabled属性为false.Private Sub Text1_Change()Command1.Enabled = TrueForm1.Caption = Text1.TextEnd Sub,单选框&复选框&框架控件应用,框架控件（为了将控件分组，首先需要绘制 Frame 控件，然后绘
16、制 Frame 里面的控件。这样就可以把框架和里面的控件同时移动） ：Caption 属性OptionButton 控件&Checkbox 控件共同属性：Style 属性（0为标准的缺省值，Checkbox 控件显示为在其身旁有一个标签的复选框，OptionButton 显示为在其身旁有一个标签的选项按钮；1为控件用图形样式显示，Checkbox 控件显示为类似按钮的 CommandButton，它能上下切换；OptionButton 显示为类似按钮的 CommandButton，它保持向上或向下的切换，直到它的选项群组内的另一个 OptionButton 被选中）；,Private Sub
17、c1_Click()If ch1 And ch2 ThenText1.Text = 报名参加篮球和排球比赛ElseIf ch1 ThenText1.Text = 报名参加篮球比赛ElseIf ch2 ThenText1.Text = 报名参加排球比赛ElseText1.Text = End IfEnd Sub,菜单设计,添加一个文本框,其text属性为“欢迎使用vb”添加菜单：选择工具菜单下的菜单编辑器，添加如图菜单, 编辑器中的可见属性不选(即菜单不可见).Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then PopupMenu kj （即鼠标右键时弹出快捷菜单）End SubPrivate Sub add_Click()Text1.FontSize = Text1.FontSize + 1End SubPrivate Sub sub_Click()Text1.FontSize = Text1.FontSize - 1End Sub,
