问vb中如何将文本控件中的text数字转换成int

Question

问vb中如何将文本控件中的text数字转换成int 
public peopleNum As peopleNum
peopleNum 是在Param 定义的
Param.peopleNum = CInt(numbers.Text)
但是这里Param.peopleNum 没有值
刚才有个同志告诉我这样做是错误的  。 求解，谢谢各位

Answer 1

CInt(numbers.Text) 绝对没有错.
public peopleNum As peopleNum 是什么意思?

Answer 2

public peopleNum As peopleNum
peopleNum 是在Param  模块定义的还是不行 取不到值于是我在这里又定义了个Dim i As Integer
 i = int(val(numbers.text)) 
调试 i = 0？？？
这是怎么回事

Answer 3

你文本框里输入数字了吗？int(val(numbers.text))肯定行的另外，如果你定义了i为integer，就不需要int()了

Answer 4

是这样的，是不行的，我是想用i 得到 int(val(numbers.text)) 但是为什么i得不到呢？

Answer 5

可以参考一下：
Private Type SystemInfo
   CPU As Variant
   Memory As Long
   VideoColors As Integer
   Cost As Currency
   PurchaseDate As Variant
End TypePrivate Sub Form_Load()
    Dim A As SystemInfo
    A.VideoColors = CInt(Text1.Text)
    Debug.Print A.VideoColors
    End
End Sub

Answer 6

//是这样的，是不行的，我是想用i 得到 int(val(numbers.text)) 但是为什么i得不到呢？不会的，你在一个新工程里试试Private Sub Command1_Click()
MsgBox CInt(Val(Text1.Text))
End SubPrivate Sub Form_Load()
Text1.Text = "12345"
End Sub估计是你其他的代码有问题