visual basic程序设计教程第四版答案(刘炳文)
假定编写了如下事件过程:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button And 3) = 3 Then Print "AAAA"  ...
阅读全文
把窗体的KeyPreview属性设置为True,然后编写如下过程:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As In...
在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char = Chr(KeyAscii) KeyAscii = Asc(UCase(char)) &nbs...
在窗体上阃一个命令按钮和一个文本框,并把窗体的KeyPreview属性设置为True,然后编写如下代码:
Dim SaveAll As String
Private Sub Command1_Click() Text1.Text = UCase(SaveAll) End Sub
Private S...
编写如下两个事件过程:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KcyAscii As Integer) Print Chr(KcyAscii) End Sub