您所在位置：主题：问各位老师几个比较难的问题（对本人而言）~~谢谢！
dr856
[专家分：0] 发布于 2009-05-05 13:42:00
可能问的有些幼稚，或是奇怪，没办法，菜鸟都是这样~~帮忙吧，谢过。
1、给文本框赋值，直接写成text1.text=x!:text2.text=y#，而不是text1.text=str$(x):text2.text=str$(y).
将来代码运行时能否影响数值运算，或是产生别的歧义？
2、在有若干个控件（比如text）的界面上，用方向键实现TAB顺序，怎么编代码？或者设置控件属性？
3、sstab控件，每个选项卡都有若干个text控件，用下面的小段代码检查各text是否为空。问题来了，如果某个文本框空置，譬如text5，如何使text5所在的选项卡当前显示？
Dim ctl As Control
For Each ctl In Controls
If TypeOf ctl Is TextBox Then
If ctl.Text = "" And ctl.Enabled = True Then
【[color=FF0000]这里我想加上几行代码，使符合条件的空文本框所在的选项卡处在显示状态，并且使空文本框获得焦点[/color]】
MsgBox "输入数据不能为空"
Exit Sub
End If
End If
Next
4、form1.load事件过程，由于此时窗体内控件尚未加载（书上这么说的），如何才能实现下面的效果？
Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path & "\graphics\欢迎.jpg")
各位老师，如果比较麻烦，给个简单提示也行~~感谢~~
1、给文本框赋值，直接写成text1.text=x!:text2.text=y#，而不是text1.text=str$(x):text2.text=str$(y).
将来代码运行时能否影响数值运算，或是产生别的歧义？
2、在有若干个控件（比如text）的界面上，用方向键实现TAB顺序，怎么编代码？或者设置控件属性？
3、sstab控件，每个选项卡都有若干个text控件，用下面的小段代码检查各text是否为空。问题来了，如果某个文本框空置，譬如text5，如何使text5所在的选项卡当前显示？
Dim ctl As Control
For Each ctl In Controls
If TypeOf ctl Is TextBox Then
If ctl.Text = "" And ctl.Enabled = True Then
【[color=FF0000]这里我想加上几行代码，使符合条件的空文本框所在的选项卡处在显示状态，并且使空文本框获得焦点[/color]】
MsgBox "输入数据不能为空"
Exit Sub
End If
End If
Next
4、form1.load事件过程，由于此时窗体内控件尚未加载（书上这么说的），如何才能实现下面的效果？
Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path & "\graphics\欢迎.jpg")
各位老师，如果比较麻烦，给个简单提示也行~~感谢~~