您的位置：程序门 -> vb -> 基础类

变量调用

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

变量调用

发表于：2007-08-07 21:58:38 楼主

代码如下：
public fname as string
fname= "a "
private sub form_load（)
dim temp as string
temp = fanme
end sub

private sub command1_click（)
fanme = temp
fname = fname & "a "
ole1.createlink "c:\temp\ " & fname & ".txt "
end sub

private sub command2_click（)
fanme = temp
fname = fname & "b "
ole2.createlink "c:\temp\ " & fname & ".txt "
end sub

要实现的结果：command1的click之后，链接aa.txt, command2的click之后，链接ab.txt

运行的结果：如果先click command1后，链接aa.txt，再click command2后，则会链接aab.txt
如果先click command2后，链接ab.txt，再click command1后，则会链接aba.txt

请问问题出在哪里？全局变量赋值后，不能再改变吗？

发表于：2007-08-08 11:50:561楼得分:0

public fname as string

private sub form_load（)
dim temp as string
fname = "a "
temp = fanme
end sub

private sub command1_click（)
fanme = temp
fname = fname & "a "
ole1.createlink "c:\temp\ " & fname & ".txt "
end sub

private sub command2_click（)
fanme = temp
fname = fname & "b "
ole2.createlink "c:\temp\ " & fname & ".txt "
end sub

发表于：2007-08-08 12:39:162楼得分:0

fname= "a " '这句话应该放到form_load过程里
temp ‘这个变量似乎应该定义成全局变量
fanme '这个变量写错了吧？似乎应该是fname

强烈建议打开vb的option explicit
最起码，变量名要大小写混合，这样即使拼错了也容易发现

发表于：2007-08-08 13:29:463楼得分:0

不好意思，确实写错了！temp应该是局部变量

public fname as string

private sub form_load（)
dim temp as string
fname= "a "
temp = fanme
end sub

private sub command1_click（)
fname = temp
fname = fname & "a "
ole1.createlink "c:\temp\ " & fname & ".txt "
end sub

private sub command2_click（)
fname = temp
fname = fname & "b "
ole2.createlink "c:\temp\ " & fname & ".txt "
end sub

改成这样之后还是不行！

下一篇：关于分析命令行的函数
上一篇：xp系统中打开我的电脑时左边的东东是怎么现实的。

其他资讯