29、探索用户交互与图形绘制的奥秘

探索用户交互与图形绘制的奥秘

1. 用户交互基础

1.1 使用 InputBox 函数

InputBox 函数是一个方便的工具，用于从用户那里获取单个信息。不过，它总是返回一个字符串。下面是使用 InputBox 的示例代码逻辑：

' 假设使用 InputBox 获取用户输入
Dim age As String
age = InputBox("请输入您的年龄")

' 评估 InputBox 的结果
If age = "" Then
    ' 用户点击了取消
    MsgBox("您取消了输入")
ElseIf IsNumeric(age) Then
    ' 输入是数字，转换为整数并显示
    Dim intAge As Integer
    intAge = CInt(age)
    MsgBox("您输入的年龄是：" & intAge)
Else
    MsgBox("您输入的不是有效的数字")
End If

当用户不输入任何内容时，返回的空字符串与点击取消的情况相同，无法区分这两种操作。

1.2 键盘事件处理

大多数表单上的控件会自行处理键盘输入，但有时你可能需要直接处理键盘输入。常见的键盘事件有：
| 事件名称 | 描述 |
| ---- | ---- |
| KeyDown | 当控件获得焦点且按下某个键时触发 |
| KeyPress | 当控件获得焦点且按下并释放某个键时触发 |
| KeyUp | 当控件获得焦点且释放某个键时触发 |