UC知道vb模块调用
来源：百度知道 编辑：UC知道 时间：2024/05/17 18:53:38
vb模块问题
Dim a As Integer, b As Integer
Private Sub Command1_Click()
p = Int(12 * Rnd + 1)
spicture (p)
x = Text1.Text
b = Val(x)
If a = b Then Label1.Caption = "猜对了，你真聪明！" Else cc
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Randomize
a = Int(100 * Rnd + 1)
End Sub
Public Sub cc()
If b < a Then
Label1.Caption = "你猜得小了，请再猜!"
Else
Label1.Caption = "你猜得大了，请再猜!"
End Sub
模块段程序
Public Sub spicture(x)
pic = x & ".gif"
Form1.Image1.Picture = LoadPicture(pic)
End Sub
上面程序运行时出现无法调用图片，为什么？
Dim a As Integer, b As Integer
Private Sub Command1_Click()
p = Int(12 * Rnd + 1)
spicture (p)
x = Text1.Text
b = Val(x)
If a = b Then Label1.Caption = "猜对了，你真聪明！" Else cc
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Randomize
a = Int(100 * Rnd + 1)
End Sub
Public Sub cc()
If b < a Then
Label1.Caption = "你猜得小了，请再猜!"
Else
Label1.Caption = "你猜得大了，请再猜!"
End Sub
模块段程序
Public Sub spicture(x)
pic = x & ".gif"
Form1.Image1.Picture = LoadPicture(pic)
End Sub
上面程序运行时出现无法调用图片，为什么？
p = Int(12 * Rnd + 1)
spicture (p)
这两句，你得到的p是1-13的随机数
那么调用spicture (p)过程中LoadPicture(pic)应该就会出现类似
LoadPicture("10.gif")
当然会出现问题
因为LoadPicture需要使用完整路径
所以需要在pic变量上加上你程序的路径（你的图片应该和你的程序在一个文件夹吧）
pic = x & ".gif"
这句应该改成
pic = App.Path & "\" & x & ".gif"
把X设为全局变量看看