2015計算機等級考試初學者的10個編程小技巧
6、我想換掉鼠標顯示的形狀，怎么做? VB提供的系統(tǒng)控件一般都有MousePointer和MouseIcon屬性。我們可以尋找自己喜歡的*.ICO,*.CUR文件，實現(xiàn)的程序如下： Screen.MousePointer= 99 ’用戶鼠標類型 Screen.MouseIcon=LoadPicture("C:\ABC\1.ICO") ’讀取鼠標的圖標文件
7、如何設置程序的錯誤出口? On Error語句用于程序的錯誤出口處理。一般的處理方??琯?? ?ǎ????趨?法有兩種： 1) 遇到錯誤跳轉到某一行程序去執(zhí)行，On Error GoTo someline。 例如： On Error GoTo ERR_LINE ... Label1.Caption=“正確執(zhí)行” ERR_LINE: ... Label1.Caption=“出錯了!” 2) 遇到錯誤之后忽略當前錯誤，繼續(xù)執(zhí)行，On Error Resume Next。 例如： On Error Resume Next ... Label1.Caption=“不管對不對都要執(zhí)行” ...
8、怎樣獲得鍵盤輸入和判斷敲鍵的Ascii值? 把窗體的KeyPreview屬性設置成True，然后在Form_KeyPress 事件里編寫程序代碼如下： Private Sub Form_KeyPress(KeyAscii As Integer) Me.Caption = Str(KeyAscii) ‘取得鍵盤輸入的字符 ... End Sub
9、我希望窗體一運行就在屏幕的中央，怎么實現(xiàn)? VB的系統(tǒng)對象Screen記錄了當前顯示模式的高度和寬度，可以利用這個值來設置窗體的位置。 Sub CenterForm(frm As Form) ‘定義過程 frm.Move (Screen.width - frm.width) \ 2, (Screen.Height - frm.Height) \ 2 End Sub Private Sub Form_Load() CenterForm Me ’調用過程 End Sub
10、很多軟件都有鼠標在文本框TextBox一按下，就選中所有文字的功能，是怎么實現(xiàn)的? Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) ’過程調用 End Sub