小知识

关于dim storestring as string的

Dim storestring As String

Private Sub Command1_Click()
Text1.Text = storestring
Command1.Enabled = False

End Sub

Private Sub Command2_Click()
storestring = Text1.Text
Text1.Text = "" '清除
Command1.Enabled = True
 

解析：

Dim storestring As String '定义全局变量storestring为字符串类型

Private Sub Command1_Click() '名称为Command1的按钮的单击事件

Text1.Text = storestring'将storestring中的数据赋予text1；（即在text1文本框中显示storestring中的数据）

Command1.Enabled = False '将名称Command1这个按钮设置为无效

End Sub


Private Sub Command2_Click() '名称为Comamnd2的按钮的单击事件

storestring = Text1.Text '将Text1文本框中的数据赋予storestring

Text1.Text = "" '清除Text1文本框中的内容

Command1.Enabled = True '将名称为Command1的按钮设置为有效

End Sub


相似的：

 

if text1.text = "hello" then
msgbox "hello"
else
msgbox "bye"
end if

如果text1的内容是hello
则提示hello
否则不管什么内容都是bye

 

（此内容来自互联网~）