大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
如果定义的变量过多,一个个设置赋值就太麻烦了也不现实,很容易遗漏。建议使用VarType函数,根据变量类型设置初始化的值。
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:域名注册、虚拟主机、营销软件、网站建设、邢台县网站维护、网站推广。
你设想的变量恢复初始值是不可能有这个功能的。变量类型里还有var型,以及部分定值。那个功能会造成混乱。
strValueType = VarType(varValue)
Select Case strValueType
Case vbInteger, vbLong, vbSingle, vbDouble
Case vbString ', vbDate
Case vbDate
Case vbBoolean
Case Else
BuildInsertFieldsStr = strWholeResult
Exit Function
End Select
你可以在窗体的Load事件中给x赋初始值:
Private Sub Form_Load()
x = 10
End Sub
如果是模块中的全局变量,而且启动对象设为Sub Main,则可以在Main过程赋初始值:
Sub main()
x = 10
End Sub
也可以在使用x的时候,先检测x,如果是空值,就赋初始值:
If IsEmpty(x) Then x = 10
还有一种方法,可以把x定义为常量,这样就可以在定义时直接赋初始值:
Const x = 10
如果你的这个x是固定数值的话,建议你用最后一种方法。如果x是需要变化的,就只能用前面三种了。
0(零)
未赋值的变量,如果是数值型,则初始值为零;如果是字符串型,初始值为空字符串""。如果是Variant可变类型,则初始值为VBEMPTY。
提示表明你的textbox未实例化,你要么直接在窗口上创建一个textbox控件textbox1,要么使用代码动态创建:
dim tx as Textbox
set tx=new Textbox()
大概是这个代码,未测试。这样创建之后就可以使用它了。比如 original=textbox1.text 或者 original=tx.text