你先按照我下面说的试一下,你就体会了!
新建一个工程,添加一个按钮,代码如下:
Option Explicit
Private x As String
Private Sub Command1_Click()
x = InputBox("hello!", "uuu", x)
End Sub
运行一下,效果达到了,然后打开代码窗口,理解一下代码!
因为,第1次使用 x="",而以后任何一次都是上一次的输入保存在X里了!!
你可以如下:
Private Sub Command1_Click()
Dim ss, x
Open "c:\x.txt" For Input As #1
ss = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close #1
x = InputBox("请输入", "对话框", ss)
If Trim(x) <> "" Then
Open "c:\x.txt" For Output As #1
Print #1, x
Close #1
End If
End Sub
是说弹出对话框只执行这一次,下一次打开exe则不弹对话框,取上一次的输入值为默认值?
你用defaultValue记录下不是就可以了吗