《计算机VB设计题汇编含答案》由会员分享,可在线阅读,更多相关《计算机VB设计题汇编含答案(52页珍藏版)》请在金锄头文库上搜索。
1、VB设计题汇编 VB设计题分类 时钟控件应用列表框 组合框控件应用图形框 图像框 绘图 图片加载滚动条的应用文本框 按钮 标签控件单选框 复选框 框架控件应用菜单设计 时钟控件应用 PrivateSubForm Load Timer1 Enabled FalseEndSubPrivateSubCommand1 Click Timer1 Enabled TrueEndSub PrivateSubCommand2 Click Label1 Caption 00 00 00 Timer1 Enabled FalseEndSubPrivateSubTimer1 Timer Label1 Caption
2、 Format Time hh mm ss EndSub 列表框 组合框控件应用 添加两个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 图形框 图像框 绘图 图片加载 在工具栏的 添加窗体 添
3、加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 FalseEn
4、dSubPrivateSubCommand1 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 Labe
5、l4 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
6、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 0Text
7、1 SelLength Len Text1 Text Text1 SetFocusEndIfEndSubText1属性 PassWordChar 添加标签caption属性为 请您输入您的昵称 的label控件 添加一个文本框和一个caption属性为 下一步 的命令按钮 其enabled属性为false PrivateSubText1 Change Command1 Enabled TrueForm1 Caption Text1 TextEndSub 单选框 复选框 框架控件应用 PrivateSubc1 Click Ifch1Andch2ThenText1 Text 报名参加篮球和排球比赛
8、 ElseIfch1ThenText1 Text 报名参加篮球比赛 ElseIfch2ThenText1 Text 报名参加排球比赛 ElseText1 Text EndIfEndSub 菜单设计 添加一个文本框 其text属性为 欢迎使用vb 添加菜单 选择工具菜单下的菜单编辑器 添加如图菜单 编辑器中的可见属性不选 即菜单不可见 PrivateSubForm MouseDown ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle IfButton 2ThenPopupMenukj 即鼠标右键时弹出快捷菜单 EndSubPrivateSubadd Click Text1 FontSize Text1 FontSize 1EndSubPrivateSubsub Click Text1 FontSize Text1 FontSize 1EndSub