VB的壹些基礎代碼 鼠標的鼠標移動事件代碼 在按鈕上 更改鼠標指針 在textbox設置只能輸入數字

移動到Command1上改變鼠標指針圖案，可以在Command1的MouseMove事件中輸入：Command1.MousePointer = 數字(0~15)。

讓TextBox只能輸入數字可以在TextBox的KeyPress事件中輸入：

If KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then

Beep '振鈴

KeyAscii = 0 '取消鍵入

End If