计算机VB设计题汇编含答案.ppt
VB设计题汇编,VB设计题分类,时钟控件应用列表框&组合框控件应用图形框&图像框&绘图&图片加载滚动条的应用文本框&按钮&标签控件单选框&复选框&框架控件应用菜单设计,时钟控件应用,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,列表框&组合框控件应用,添加两个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:Fjexam95ravmon.jpg”)EndSub,控件属性设置如题PrivateSubForm_Load()Image1.Picture=LoadPicture("k:fjexam95Tree.jpg")Image2.Picture=LoadPicture("k:fjexam95dog.jpg")Image3.Visible=FalseEndSubPrivateSubCommand1_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,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)IfButton=2ThenPopupMenukj(即鼠标右键时弹出快捷菜单)EndSubPrivateSubadd_Click()Text1.FontSize=Text1.FontSize+1EndSubPrivateSubsub_Click()Text1.FontSize=Text1.FontSize-1EndSub,