添加引用好像只是把引用的文件目錄鏈接過來,如果你要發(fā)到別人那里也能用,就要放在你自己的工程文件包里。
創(chuàng)新互聯(lián)建站從2013年成立,先為萬寧等服務(wù)建站,萬寧等地企業(yè),進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為萬寧企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。
Private Function ReadFile(ByRef a As String) As String
a = "bian"
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As String = "yuanlai"
ReadFile(a)
''想要的結(jié)果就是在這里使用a的值是"bian"
MsgBox(a)
End Sub
===================
以上就可以,不知道你“ByRef a As b”的b是什么東西
以class2為例,如果你只需要一個class2實(shí)例,那么把它在class1成員中聲明為共享成員即可。
Shared c2 As New Class2()
然后調(diào)用它的函數(shù),
c2.func()
如果class2的這個函數(shù)不依賴于class2實(shí)例,那么直接將這個函數(shù)用Shared聲明,
Public Shared Function func() As xxx
'xxxxx
End Function
然后在class1中引入,
Imports class2
直接調(diào)用即可。
func()
我想第二種更符合你的情況。