如何在输入完控件的内容后，光标自动移动到下一个控件.txt

VB技巧问答10000例 VB技巧问答10000例

VB的 处 理 方 式 与 VFP不 同 ， 所 以 你 需 要 自 己 添 加 一 些 代 码 。 
    1、 在 窗 体 上 放 置 4组 标 签 和 文 本 框 ， 假 定 文 本 框 为 Text1数 组 。 
    2、 设 置 每 个 文 本 框 的 MaxLength 属 性 。 MaxLength 属 性 指 出 在 TextBox 控 件 中 能 够 输 入 的 字 符 是 否 有 一 个 最 大 数 量 ， 如 果 是 ， 则 指 定 能 够 输 入 的 字 符 的 最 大 数 量 。 注 意 ： 在 中 文 系 统 中 ， 每 个 字 符 能 够 取 两 个 字 节 而 不 是 一 个 字 节 ， 以 此 来 限 制 你 能 够 输 入 的 字 符 的 数 量 。 所 以 如 果 你 在 数 据 库 中 定 义 “ 姓 名 ” 字 段 为 8个 字 节 ， 则 应 该 设 置 MaxLength 属 性 为 4（ 即 4个 中 文 字 符 ） ， 而 “ 年 龄 ” 字 段 为 3个 字 节 ， 则 MaxLength 属 性 为 3， 即 3个 数 字 。 
    3、 在 文 本 框 的 Change事 件 中 输 入 ： 
    Private Sub Text1_Change(ByVal Index As Integer) 
     If Index < 3 And Len(Text1(Index).Text) = Text1(Index).MaxLength Then 
     Text1(Index + 1). SetFocus 
     End If 
    End Sub 
    关 键 是 SetFocus方 法 ， 如 果 你 想 移 动 输 入 焦 点 从 一 个 控 件 到 另 一 个 控 件 ， 就 应 该 使 用 该 方 法 。 
<END>