一个超级菜鸟问题

Question

用OBJ的方法读取文本文件的内容并赋值给MYURL，我想在整个程序中都用这个myurl，代码怎么写？
    Dim objFSO As FileSystemObject
    Dim objText As TextStream
    Set objFSO = New FileSystemObject
    Set objText = objFSO.OpenTextFile(App.Path & "\serverurl.txt", _
              ForReading, False, TristateUseDefault)
    myurl = objText.ReadAll()
    Call objText.Close

Answer 1

Bingo!如楼上所说.
记得不要再定义myurl这个变量拉,也不要把它作别的用途.

Answer 2

在Moudal里是这样写吗？Public myurl As String
Sub Main()
    Set objFSO = New FileSystemObject
    Set objText = objFSO.OpenTextFile(App.Path & "\serverurl.txt", _
              ForReading, False, TristateUseDefault)
    myurl = objText.ReadAll()    Call objText.Close
    Form1.Show
End Sub

Answer 3

第一种方法：在窗体模块中定义公有变量。使用：窗体名.myurlOption Explicit
Public myurl As StringPrivate Sub Command1_Click()
    Dim objFSO As FileSystemObject
    Dim objText As TextStream
    Set objFSO = New FileSystemObject
    Set objText = objFSO.OpenTextFile(App.Path & "\serverurl.txt", ForReading, False, TristateUseDefault)
    myurl = objText.ReadAll()
    Call objText.Close
    Debug.Print myurl
End Sub
第二种方法：在标准模块中定义。使用：直接用。窗体模块：
Option ExplicitPrivate Sub Command1_Click()
    Dim objFSO As FileSystemObject
    Dim objText As TextStream
    Set objFSO = New FileSystemObject
    Set objText = objFSO.OpenTextFile(App.Path & "\serverurl.txt", ForReading, False, TristateUseDefault)
    myurl = objText.ReadAll()
    Call objText.Close
    Debug.Print myurl
End Sub标准模块：
Option ExplicitPublic myurl As String