VB要求常数表达式我在VB的form1中声明Private Const ScrnWidth = 100Private Const ScrnHight = 90可是我想把100换成form2.text1.text90换成form2.text2.text这时就发生发生错误了,VB提示要求常数表达式,怎样才可以调

VB要求常数表达式我在VB的form1中声明Private Const ScrnWidth = 100Private Const ScrnHight = 90可是我想把100换成form2.text1.text90换成form2.text2.text这时就发生发生错误了,VB提示要求常数表达式,怎样才可以调
VB要求常数表达式
我在VB的form1中声明
Private Const ScrnWidth = 100
Private Const ScrnHight = 90
可是我想把
100换成form2.text1.text
90换成form2.text2.text
这时就发生发生错误了,VB提示要求常数表达式,怎样才可以调用到form2.text1.text的信息呢,VB小菜鸟,
按照 LuoJi_1995 的方法,VB在 Private ScrnWidth = form2.text1.text 那里提示缺少语句结束.
温暖阳阳 的意思是 Private Const ScrnWidth = Val(Form2.Text3.Text) 这样吗,可还是不可以啊.

VB要求常数表达式我在VB的form1中声明Private Const ScrnWidth = 100Private Const ScrnHight = 90可是我想把100换成form2.text1.text90换成form2.text2.text这时就发生发生错误了,VB提示要求常数表达式,怎样才可以调
不行!
如果你要用用户将来输入的量来做“常数”,那是不对的.因为那已经不是常数,而是“变量”了.
建议,设立窗体级变量.
在最前面声明：
dim ScrnWidth as single,ScrnHight as single
后面有两种方案：一个是填写文本框的同时,就改变这个变量；二一个是填写完,点“确定”按钮,再改变.我推荐后者,因为这个符合多数软件的操作习惯.
Private Sub Command1_Click()
ScrnWidth = Val(text1)
ScrnHight = Val(text2)
End Sub
当然看样子,你主要是用来改变什么控件的尺寸?那么也可以直接不要这些变量（包括前面的声明）,
Private Sub Command1_Click()
控件.Width = Val(text1)
控件.Hight = Val(text2)
End Sub