设计题汇编资料.pptxVIP

设计题汇编资料;VB设计题分类;时钟控件应用相关;第4页/共77页;第5页/共77页;第6页/共77页;Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub;;;;;;列表框组合框控件应用;第14页/共77页;第15页/共77页;;第17页/共77页;第18页/共77页;第19页/共77页;第20页/共77页;添加两个list控件和一个Caption属性为剪切的按钮. Private Sub Command1_Click() 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;第22页/共77页;;;;;;;图片框图像框图形控件绘图;第30页/共77页;第31页/共77页;第32页/共77页;第33页/共77页;第34页/共77页;第35页/共77页;第36页/共77页;在工具栏的“添加窗体”添加form2窗体. 在工程资源管理器窗口中的“工程属性”对话框指定form1为启动窗体. 在Form1中添加一个命令按钮. Private Sub Command1_Click() Unload Me Form2.Show form2.picture=Loadpicture(“K:\Fjexam95\ravmon.jpg”) End Sub;第38页/共77页;第39页/共77页;控件属性设置如题 Private Sub Form_Load() Image1.Picture =LoadPicture(k:\fjexam95\Tree.jpg) Image2.Picture = LoadPicture(k:\fjexam95\dog.jpg) Image3.Visible = False End Sub Private Sub Command1_Click() Image3.Picture = Image1.Picture Image1.Picture = Image2.Picture Image2.Picture = Image3.Picture Image3.Visible = False End Sub;第41页/共77页;相关代码如下： Private Sub C1_Click() Form1.Picture = LoadPicture(k:\fjexam95\jztx.bmp) End Sub Private Sub C2_Click() Form1.Picture = LoadPicture() End Sub;;;;;滚动条的应用;第48页/共77页;添加Label2，Label3，Label4，Label5.其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 HS3_Change() Label1.BackColor=RGB(HS1.Value,HS2.Value, HS3.Value) End Sub;第50页/共77页;文本框按钮标签控件;第52页/共77页;第53页/共77页;相关代码如下： Private Sub Command1_Click() Text1.Visible = False End Sub Private Sub Command2_Click() Text1.Visible = True Text1.Text = VB程序设计 End Sub;第55页/共77页;第56页/共77页;第57页/共77页;第58页/共77页;第59页/共77页;Private Sub Command1_Click() If Text1.Text = student Then Label2.Caption