VB设计题汇编.ppt

VB设计题汇编 VB设计题分类 时钟控件应用列表框 组合框控件应用图形框 图像框 绘图 图片加载滚动条的应用文本框 按钮 标签控件单选框 复选框 框架控件应用菜单设计 时钟控件应用相关 时钟控件主要包括2个属性 Interval Enable时钟控件的Timer事件是控制在频率内执行相关控件的属性变化 PrivateSubForm Load Timer1 Enabled FalseEndSubPrivateSubCommand1 Click Timer1 Enabled TrueEndSub PrivateSubCommand2 Click Label1 Caption 00 00 00 Timer1 Enabled FalseEndSubPrivateSubTimer1 Timer Label1 Caption Format Time hh mm ss EndSub 列表框 组合框控件应用 列表框 组合框共有重要属性 Style List ListIndex ListCount 如果未选定项目 则ListIndex属性值是 1 列表的第一项是ListIndex0 ListCount属性值总是比最大的ListIndex值大1 对List ListCount和ListIndex属性进行设置就可以访问ListBox中的项目 也可以在设计时使用List属性在列表中增加项目 方法 RemoveItem方法 用以从ListBox或ComboBox控件中删除一项 语法 object RemoveItemindex 其中的index是必需的 一个整数 它表示要删除的项或行在对象中的位置 对于ListBox或ComboBox中的首项 index 0 AddItem方法 用于将项目添加到ListBox或ComboBox控件 语法 object AddItemitem index其中Item是必需的 字符串表达式 它用来指定添加到该对象的项目 Index可选 是整数 它用来指定新项目或行在该对象中的位置 如果所给出的index值有效 则item将放置在object中相应的位置 如果省略index 当Sorted属性 返回一个值 指定控件的元素是否自动按字母表顺序排序 设置为True时 item将添加到恰当的排序位置 当Sorted属性设置为False时 item将添加到列表的结尾 Clear方法用于清除ListBox ComboBox内的项目 添加两个list控件和一个Caption属性为剪切的按钮 PrivateSubCommand1 Click List2 AddItemList1 TextList1 RemoveItemList1 ListIndexEndSubPrivateSubForm Load List1 AddItem AAA List1 AddItem BBB List1 AddItem CCC List1 AddItem DDD List1 AddItem EEE EndSub 图片框 图像框 图形控件 绘图 在工具栏的 添加窗体 添加form2窗体 在工程资源管理器窗口中的 工程属性 对话框指定form1为启动窗体 在Form1中添加一个命令按钮 PrivateSubCommand1 Click UnloadMeForm2 Showform2 picture Loadpicture K Fjexam95 ravmon jpg EndSub 控件属性设置如题PrivateSubForm Load Image1 Picture LoadPicture k fjexam95 Tree jpg Image2 Picture LoadPicture k fjexam95 dog jpg Image3 Visible FalseEndSubPrivateSubCommand1 Click Image3 Picture Image1 PictureImage1 Picture Image2 PictureImage2 Picture Image3 PictureImage3 Visible FalseEndSub 相关代码如下 PrivateSubC1 Click Form1 Picture LoadPicture k fjexam95 jztx bmp EndSubPrivateSubC2 Click Form1 Picture LoadPicture EndSub 滚动条的应用 添加Label2 Label3 Label4 Label5 其Caption分为 调出颜色 红 R 绿 G 蓝 B 的标签控件 Label1的Caption为空 和添加三个水平滚动条 名称为hs1 hs2 hs3 且min max属性值均为0 255 PrivateSubHS1 Change Label1 BackColor RGB HS1 Value HS2 Value HS3 Value EndSubPrivateSubHS2 Change Label1 BackColor RGB HS1 Value HS2 Value HS3 Value EndSubPrivateSubHS3 Change Label1 BackColor RGB HS1 Value HS2 Value HS3 Value EndSub 文本框 按钮 标签控件 相关代码如下 PrivateSubCommand1 Click Text1 Visible FalseEndSubPrivateSubCommand2 Click Text1 Visible TrueText1 Text VB程序设计 EndSub PrivateSubCommand1 Click IfText1 Text student ThenLabel2 Caption 欢迎使用本系统 ElseLabel2 Caption 口令错 请重新输入 Text1 SelStart 0Text1 SelLength Len Text1 Text Text1 SetFocusEndIfEndSubText1属性 PassWordChar 添加标签caption属性为 请您输入您的昵称 的label控件 添加一个文本框和一个caption属性为 下一步 的命令按钮 其enabled属性为false PrivateSubText1 Change Command1 Enabled TrueForm1 Caption Text1 TextEndSub 单选框 复选框 框架控件应用 PrivateSubc1 Click Ifch1Andch2ThenText1 Text 报名参加篮球和排球比赛 ElseIfch1ThenText1 Text 报名参加篮球比赛 ElseIfch2ThenText1 Text 报名参加排球比赛 ElseText1 Text EndIfEndSub 菜单设计 添加一个文本框 其text属性为 欢迎使用vb 添加菜单 选择工具菜单下的菜单编辑器 添加如图菜单 编辑器中的可见属性不选 即菜单不可见 PrivateSubForm MouseDown ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle