visual basic表单应用

《visual basic表单应用》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VisualBasic表單應用（03）（一）名詞解釋（1）、按一下（Click）：也就是按一次滑鼠左鍵。（2）、連按兩下（Double）：快速按兩下滑鼠左鍵。（3）、拖曳（Drag）：按住滑鼠左鍵然後移動滑鼠。（4）、偵測鍵盤（Keypress）：若有鍵盤按鍵發生，將自動產生Keypress事件，同時所按鍵的Ascii碼將傳送到變數Keyascii內。SubForm_KeyPress(KeyAsciiAsInteger)X=KeyasciiEndsub若要將他轉成以字元顯示則使用下列公式：Y=Chr(Keyascii)如果字元變

2、回到Ascii所表現的碼，用X=Asc(Y)資料展示電子看版按，鍵向左走。按。鍵向右走。按S鍵停止。按Q鍵離開。例：(vb301)(a)、物件設定：標籤物件、定時物件(b)、屬性設定：Form1.Caption=“電子看版設計”Label1.Autosize=TrueLabel1.BackStyle=0Label1.Caption=“資料展示電子看版”Label1.Forecolor=藍色(c)、程式設計DimgAsIntegerPrivateSubForm_KeyPress(KeyAsciiAsInteger)IfChr(Ke

3、yAscii)="."Theng=2Timer1.Interval=1EndIfIfChr(KeyAscii)=","Theng=1Timer1.Interval=1EndIfIfKeyAscii=115ThenTimer1.Interval=0EndIfIfChr(KeyAscii)="q"OrChr(KeyAscii)="Q"ThenEnd10visualbasic03.doc21/06/24EndIfEndSubPrivateSubTimer1_Timer()SelectCasegCase1Label1.Left=Labe

4、l1.Left-30Case2Label1.Left=Label1.Left+30EndSelectEndSub（一）表單處理（1）註解程式說明程式的用法，用註解符號‘，將可讓別人容易瞭解程式運作。視窗一例：‘程式說明（2）表單視窗更換視窗二在程式設計中，我們可以建立兩個以上視窗（form），分別設計程式，兩個視窗間的切換的作法：1、先增加一個視窗Form：選擇主視窗「專案」、「新增表單」，在「建立」標籤下選「表單」，後按「開啟舊檔」。增加新表單Form。2、在某一個物件（按鈕物件）加上下列命令，就可以到第二個視窗Me.Hide

5、Form2.Show3、在第二個視窗Form加上某一個物件（按鈕）加上下列命令，就可以回第一個視窗。Me.HideForm1.Show例：(v302)設計一個視窗內有密碼，來決定是否可以進入第二個視窗。1、先建立第二個視窗選擇主視窗「專案」、「新增表單」，在「建立」標籤下選「表單」，後按「開啟舊檔」。增加新表單Form。嘉師教學系統請輸入密碼：結束2、在第一個表單視窗上（a）、物件：兩個標籤物件，一個文字物件與一個命令鈕。（b）、屬性：label1.Caption=”嘉師教學系統”10visualbasic03.doc21/06

6、/24label2.Caption=”請輸入密碼：”Command1.Caption=”結束”text1.text=””text1.PasswordC=“X”(c)、程式部份：PrivateSubCommand1_Click()EndEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)'判定密碼正確否？IfKeyAscii=13ThenIfText1.Text="ncytc"ThenMe.HideForm2.ShowElseText1.Text=""Label2.Caption="密

7、碼錯誤，請再輸入："歡迎使用嘉師教學系統EndIfEndIfEndSub結束上一頁1、在第二個表單視窗上(a)、物件：一個標籤，兩個命令鈕（b）、屬性：label1.Caption=”歡迎使用嘉師教學系統”Command1.Caption=”上一頁”Command2.Caption=”結束”（c）、程式部份PrivateSubCommand1_Click()Me.Hide'或用UnloadMeForm1.ShowEndSubPrivateSubCommand2_Click()EndEndSub（1）連按兩次滑鼠鍵PrivateS

8、ubCommand1_DblClick():EndSub10visualbasic03.doc21/06/24例：(vb303)說明按鈕測試：按一下滑鼠出現「按一下」，按兩下滑鼠出現「按鈕測試」物件：一個文字物件，一個命令鈕屬性：Text1.text=“”Com