《计算机VB设计题汇编含答案.ppt》由会员分享,可在线阅读,更多相关《计算机VB设计题汇编含答案.ppt(52页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、VB设计题汇编,VB设计题分类,时钟控件应用列表框&组合框控件应用图形框&图像框&绘图&图片加载滚动条的应用文本框&按钮&标签控件单选框&复选框&框架控件应用菜单设计,时钟控件应用,PrivateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSub,PrivateSubCommand2_Click()Label1.Caption=00:00:00Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()Label1.Capt
2、ion=Format(Time,hh:mm:ss)EndSub,列表框&组合框控件应用,添加两个list控件和一个Caption属性为剪切的按钮.PrivateSubCommand1_Click()List2.AddItemList1.TextList1.RemoveItemList1.ListIndexEndSubPrivateSubForm_Load()List1.AddItemAAAList1.AddItemBBBList1.AddItemCCCList1.AddItemDDDList1.AddItemEEEEndSub,图形框&图像框&绘图&图片加载,在工具栏的“添加窗体”添加form
3、2窗体.在工程资源管理器窗口中的“工程属性”对话框指定form1为启动窗体.在Form1中添加一个命令按钮.PrivateSubCommand1_Click()UnloadMeForm2.Showform2.picture=Loadpicture(“K:Fjexam95ravmon.jpg”)EndSub,控件属性设置如题PrivateSubForm_Load()Image1.Picture=LoadPicture(k:fjexam95Tree.jpg)Image2.Picture=LoadPicture(k:fjexam95dog.jpg)Image3.Visible=FalseEndSub
4、PrivateSubCommand1_Click()Image3.Picture=Image1.PictureImage1.Picture=Image2.PictureImage2.Picture=Image3.PictureImage3.Visible=FalseEndSub,相关代码如下:PrivateSubC1_Click()Form1.Picture=LoadPicture(k:fjexam95jztx.bmp)EndSubPrivateSubC2_Click()Form1.Picture=LoadPicture()EndSub,滚动条的应用,添加Label2,Label3,Label
5、4,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()Label
6、1.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=studentThenLabel2.Caption=欢迎使用本系统ElseLabel2.Caption=口令错,请重新输入“Text1.Se
7、lStart=0Text1.SelLength=Len(Text1.Text)Text1.SetFocusEndIfEndSubText1属性:PassWordChar-*,添加标签caption属性为“请您输入您的昵称”的label控件;添加一个文本框和一个caption属性为“下一步”的命令按钮,其enabled属性为false.PrivateSubText1_Change()Command1.Enabled=TrueForm1.Caption=Text1.TextEndSub,单选框&复选框&框架控件应用,PrivateSubc1_Click()Ifch1Andch2ThenText1.
8、Text=报名参加篮球和排球比赛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,