《【8A文】VB设计题汇编》由会员分享，可在线阅读，更多相关《【8A文】VB设计题汇编（76页珍藏版）》请在金锄头文库上搜索。
1、VB设计题汇编,VB设计题分类,时钟控件应用 列表框&组合框控件应用 图形框&图像框&绘图&图片加载 滚动条的应用 文本框&按钮&标签控件 单选框&复选框&框架控件应用 菜单设计,时钟控件应用相关,时钟控件主要包括2个属性：Interval、Enable 时钟控件的Timer事件是控制在频率内执行相关控件的属性变化,Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub,Private Sub Command2_Click(
2、) Label1.Caption = “00:00:00“ Timer1.Enabled = False End Sub Private 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 和 L
3、istIndex 属性进行设置就可以访问 ListBox 中的项目。也可以在设计时使用 List 属性在列表中增加项目。） 方法： RemoveItem 方法：用以从 ListBox 或 ComboBox 控件中删除一项。语法：object.RemoveItem index；其中的index是必需的。一个整数，它表示要删除的项或行在对象中的位置。对于 ListBox 或 ComboBox 中的首项，index = 0。 AddItem 方法：用于将项目添加到 ListBox 或 ComboBox 控件。语法：object.AddItem item, index其中Item是必需的。字符串表达式
4、，它用来指定添加到该对象的项目。Index可选。是整数，它用来指定新项目或行在该对象中的位置。如果所给出的 index 值有效，则 item 将放置在 object 中相应的位置。如果省略 index，当 Sorted 属性（返回一个值，指定控件的元素是否自动按字母表顺序排序 ）设置为 True 时，item 将添加到恰当的排序位置，当 Sorted 属性设置为 False 时， item 将添加到列表的结尾。 Clear方法用于清除 ListBox，ComboBox内的项目,添加两个list控件和一个Caption属性为剪切的按钮. Private Sub Command1_Click()
5、List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End Sub Private Sub Form_Load() List1.AddItem “AAA“ List1.AddItem “BBB“ List1.AddItem “CCC“ List1.AddItem “DDD“ List1.AddItem “EEE“ End Sub,图片框&图像框&图形控件&绘图,在工具栏的“添加窗体”添加form2窗体. 在工程资源管理器窗口中的“工程属性”对话框指定form1为启动窗体. 在Form1中添加一个命令按钮. Private Sub
6、Command1_Click() Unload Me Form2.Show form2.picture=Loadpicture(“K:Fjexam95ravmon.jpg”) End Sub,控件属性设置如题 Private Sub Form_Load() Image1.Picture =LoadPicture(“k:fjexam95Tree.jpg“) Image2.Picture = LoadPicture(“k:fjexam95dog.jpg“) Image3.Visible = False End Sub Private Sub Command1_Click() Image3.Pict
7、ure = Image1.Picture Image1.Picture = Image2.Picture Image2.Picture = Image3.Picture Image3.Visible = False End Sub,相关代码如下： Private Sub C1_Click() Form1.Picture = LoadPicture(“k:fjexam95jztx.bmp“) End Sub Private Sub C2_Click() Form1.Picture = LoadPicture(“) End Sub,滚动条的应用,添加Label2，Label3，Label4，Lab
8、el5.其Caption分为”调出颜色”,”红(R)”,”绿(G)”,”蓝(B)”的标签控件，Label1的 Caption 为空，和 添加三个水平滚动条(名称为hs1,hs2,hs3)，且min,max属性值均为0，255。 Private Sub HS1_Change() Label1.BackColor=RGB(HS1.Value,HS2.Value, HS3.Value) End Sub Private Sub HS2_Change() Label1.BackColor=RGB(HS1.Value,HS2.Value, HS3.Value) End Sub Private Sub HS
9、3_Change() Label1.BackColor=RGB(HS1.Value,HS2.Value, HS3.Value) End Sub,文本框&按钮&标签控件,相关代码如下： Private Sub Command1_Click() Text1.Visible = False End Sub Private Sub Command2_Click() Text1.Visible = True Text1.Text = “VB程序设计“ End Sub,Private Sub Command1_Click() If Text1.Text = “student“ Then Label2.Ca
10、ption = “欢迎使用本系统“ Else Label2.Caption = “口令错，请重新输入“ Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Text1.SetFocus End If End Sub Text1属性：PassWordChar-*,添加标签caption属性为“请您输入您的昵称”的label控件；添加一个文本框和一个caption属性为“下一步”的命令按钮，其enabled属性为false. Private Sub Text1_Change() Command1.Enabled = True Form1.Cap
11、tion = Text1.Text End Sub,单选框&复选框&框架控件应用,Private Sub c1_Click() If ch1 And ch2 Then Text1.Text = “报名参加篮球和排球比赛“ ElseIf ch1 Then Text1.Text = “报名参加篮球比赛“ ElseIf ch2 Then Text1.Text = “报名参加排球比赛“ Else Text1.Text = “ End If End 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 Sub Private Sub add_Click() Text1.FontSize = Text1.FontSize + 1 End Sub Private Sub sub_Click() Text1.FontSize = Text1.FontSize - 1 End Sub,
