有关VBA对话框默认值的问题

yuanmeng7848 · 发表于 2023-12-1 21:14

对话中有一段代码如下：
UF1.TextBox4.Visible = True
UF1.TextBox4.Text = 0
UF1.TextBox4.SetFocus
问题是如何用代码将默认值0设置为选定状态（相当于用鼠标选中0后变成蓝色背景），便于直接输入数据！
请高手指点，谢谢！

山菊花 · 发表于 2023-12-1 22:05

UF1.TextBox4.Visible = True
UF1.TextBox4.Text = 0
UF1.TextBox4.SelText = UF1.TextBox4.Text
UF1.TextBox4.SelStart = 0
UF1.TextBox4.SelLength = Len(UF1.TextBox4.Text)
UF1.TextBox4.SetFocus

yuanmeng7848 · 发表于 2023-12-3 16:07

山菊花发表于 2023-12-1 22:05
UF1.TextBox4.Visible = True
UF1.TextBox4.Text = 0
UF1.TextBox4.SelText = UF1.TextBox4.Text

谢谢！但问题是默认值中出现了两个“0”，怎么解决？请高手指点！

yuanmeng7848 · 发表于 2023-12-3 16:12

yuanmeng7848 发表于 2023-12-3 16:07
谢谢！但问题是默认值中出现了两个“0”，怎么解决？请高手指点！

当去掉UF1.TextBox4.SelText = UF1.TextBox4.Text这段代码时就正常了，请问这段代码的作用是什么？请高手指点！

yuanmeng7848 · 发表于 2023-12-3 16:14

山菊花发表于 2023-12-1 22:05
UF1.TextBox4.Visible = True
UF1.TextBox4.Text = 0
UF1.TextBox4.SelText = UF1.TextBox4.Text

当去掉UF1.TextBox4.SelText = UF1.TextBox4.Text这段代码时就正常了，这段代码有什么作用？请高手指点？

山菊花 · 发表于 2023-12-3 18:36

是该去掉UF1.TextBox4.SelText = UF1.TextBox4.Text，之前想错了。

		自动登录	找回密码
密码			免费注册