菜鸟学VB,请教一个变量赋值的问题

wjhades 发布于 2013-01-21 09:34， 4763 次点击

想获取Text1.text中的数值，设置了一个整形的全局变量psd，但是执行下来该变量值始终是‘0’
“
Public psd As Integer

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
psd = Val(Text1.Text)
End If
End Sub
”
请问哪里出错了嘛？

谢谢

7 回复

yz10252013-01-21 10:05

程序代码：

Public psd As Integer

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then    '打完字要按Enter
        psd = Val(Text1.Text)
    End If
    'MsgBox psd
End Sub

只有本站会员才能查看附件，请登录

[ 本帖最后由 yz1025 于 2013-1-21 10:07 编辑 ]

wjhades2013-01-21 10:31

回复 2楼 yz1025

谢谢，按完回车后才发现psd已经获取text的内容了。
另外请问一下，我form1中定义的psd是public类型，但是为什么在form2中我使用psd变量时，它的值始终还是empty？感觉全局变量没有生效

yz10252013-01-21 10:36

真正的全局变量 -> Module
form1中定义的psd是public类型 -> 限定form1中的全局变量
只差在Form2的可引用和不可引用
我猜的....

风吹过b2013-01-21 11:03

真正的全局变量 -> Module
form1中定义的psd是public类型 -> 限定form1中的全局变量
只差在Form2的可引用和不可引用
----------------------------------------------

在窗体中定义，就是相当于给窗体定义了一个属性。
如 1楼的，
Public psd As Integer
那么可以使用 form1.psd 来访问这个变量。
在 module 中定义的，是整个工程都可以直接使用，而不需要额外的对象。

爱神的箭2013-01-21 14:59

学习学习

wube2013-01-21 20:42

以前有人问过在Form1最上面定义一个变量
用
Private a as String
和
Dim a as String
差别在哪?

wube2013-01-21 20:43

结果好像两个是一样的....