以class2為例,如果你只需要一個class2實例,那么把它在class1成員中聲明為共享成員即可。
成都創(chuàng)新互聯(lián)公司是一家集成都網站制作、網站設計、網站頁面設計、網站優(yōu)化SEO優(yōu)化為一體的專業(yè)網絡公司,已為成都等多地近百家企業(yè)提供網站建設服務。追求良好的瀏覽體驗,以探求精品塑造與理念升華,設計最適合用戶的網站頁面。 合作只是第一步,服務才是根本,我們始終堅持講誠信,負責任的原則,為您進行細心、貼心、認真的服務,與眾多客戶在蓬勃發(fā)展的市場環(huán)境中,互促共生。
Shared c2 As New Class2()
然后調用它的函數,
c2.func()
如果class2的這個函數不依賴于class2實例,那么直接將這個函數用Shared聲明,
Public Shared Function func() As xxx
'xxxxx
End Function
然后在class1中引入,
Imports class2
直接調用即可。
func()
我想第二種更符合你的情況。
在項目A里添加引用,在“添加引用”對話框里找到項目B就可以了。也可以先把項目B生成dll文件,然后在項目A中添加對這個dll文件的引用。
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)
''想要的結果就是在這里使用a的值是"bian"
MsgBox(a)
End Sub
===================
以上就可以,不知道你“ByRef a As b”的b是什么東西