关于窗体代码编写

hbhsfeng

表格中有三个问题不知道如何解决，请高手帮我解决？
见表格说明。

黑道皇帝

问题一：

1. Private Sub 清除_Click()
   
2. TextBox1.Value = ""
   
3. TextBox2.Value = ""
   
4. TextBox3.Value = ""
   
5. TextBox4.Value = ""
   
6. TextBox5.Value = ""
   
7. TextBox6.Value = ""
   
8. TextBox7.Value = ""
   
9. SendKeys "{TAB}"
   
10. End Sub

复制代码

问题二：

问题三：

sonia_a

在属性的Caption 可以更改名称，当然包括删除。字体当然可以更改，也在属性里找。。需要在 uniform 的initialize初始化加 textbox1.set focus,这样光标定在第一各框里，如果加用LEN限定子的个数可以做到移动。。自己试试吧。。。

hbhsfeng

我在TextBox属性里找了，没有Arial这样的字体。不知道是什么原因？我是Excel2003版本。

lsdongjh

1. '第一个问题
   
2. Private Sub CommandButton2_Click()
   
3.     Dim objControl As Control
   
4.     For Each objControl In Me.Controls
   
5.         If TypeOf objControl Is MSForms.TextBox Then objControl.Text = ""
   
6.     Next
   
7.     TextBox1.SetFocus
   
8. End Sub

复制代码

hbhsfeng

第一个问题我已经解决了。在这个论坛找到了答案。
Private Sub 清除_Click()
Dim myCnt As Control
    For Each myCnt In Me.Controls
        If TypeName(myCnt) = "TextBox" Then
            myCnt.Object.Value = ""
        End If
    Next
End Sub

hbhsfeng

输入完7个数字，没有按确定按钮，光标并没有移到第一个textbox1中。