計(jì)算機(jī)VB設(shè)計(jì)題匯編含答案.ppt

VB設(shè)計(jì)題匯編,VB設(shè)計(jì)題分類,時(shí)鐘控件應(yīng)用 列表框&組合框控件應(yīng)用 圖形框&圖像框&繪圖&圖片加載 滾動條的應(yīng)用 文本框&按鈕&標(biāo)簽控件 單選框&復(fù)選框&框架控件應(yīng)用 菜單設(shè)計(jì),時(shí)鐘控件應(yīng)用,Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub,Private Sub Command2_Click() Label1.Caption = “00:00:00“ Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Label1.Caption = Format(Time, “hh:mm:ss“) End Sub,列表框&組合框控件應(yīng)用,添加兩個(gè)list控件和一個(gè)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,圖形框&圖像框&繪圖&圖片加載,在工具欄的“添加窗體”添加form2窗體. 在工程資源管理器窗口中的“工程屬性”對話框指定form1為啟動窗體. 在Form1中添加一個(gè)命令按鈕. Private Sub Command1_Click() Unload Me Form2.Show form2.picture=Loadpicture(“K:Fjexam95ravmon.jpg”) End Sub,控件屬性設(shè)置如題 Private Sub Form_Load() Image1.Picture =LoadPicture(“k:fjexam95Tree.jpg“) Image2.Picture = LoadPicture(“k:fjexam95dog.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,相關(guān)代碼如下： Private Sub C1_Click() Form1.Picture = LoadPicture(“k:fjexam95jztx.bmp“) End Sub Private Sub C2_Click() Form1.Picture = LoadPicture(“) End Sub,滾動條的應(yīng)用,添加Label2，Label3，Label4，Label5.其Caption分為”調(diào)出顏色”,”紅(R)”,”綠(G)”,”藍(lán)(B)”的標(biāo)簽控件，Label1的 Caption 為空，和 添加三個(gè)水平滾動條(名稱為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,文本框&按鈕&標(biāo)簽控件,相關(guān)代碼如下： Private Sub Command1_Click() Text1.Visible = False End Sub Private Sub Command2_Click() Text1.Visible = True Text1.Text = “VB程序設(shè)計(jì)“ End Sub,Private Sub Command1_Click() If Text1.Text = “student“ Then Label2.Caption = “歡迎使用本系統(tǒng)“ Else Label2.Caption = “口令錯，請重新輸入“ Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Text1.SetFocus End If End Sub Text1屬性：PassWordChar-*,添加標(biāo)簽caption屬性為“請您輸入您的昵稱”的label控件；添加一個(gè)文本框和一個(gè)caption屬性為“下一步”的命令按鈕，其enabled屬性為false. Private Sub Text1_Change() Command1.Enabled = True Form1.Caption = Text1.Text End Sub,單選框&復(fù)選框&框架控件應(yīng)用,Private Sub c1_Click() If ch1 And ch2 Then Text1.Text = “報(bào)名參加籃球和排球比賽“ ElseIf ch1 Then Text1.Text = “報(bào)名參加籃球比賽“ ElseIf ch2 Then Text1.Text = “報(bào)名參加排球比賽“ Else Text1.Text = “ End If End Sub,菜單設(shè)計(jì),添加一個(gè)文本框,其text屬性為“歡迎使用vb” 添加菜單：選擇工具菜單下的菜單編輯器，添加如圖菜單, 編輯器中的可見屬性不選(即菜單不可見). Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu kj （即鼠標(biāo)右鍵時(shí)彈出快捷菜單） End