將表格作爲參考並將其稱爲公共子

Question

我正在將VB6項目轉換爲Vb.net。

我有10+的形式，所有有這樣的子：

Public sub DoSomething() 
    *doing stuff here 
end sub 

而且我那叫一個主要形式的其它形式的子

private sub TouchForm(frmRef as form) 
    dim FormPublic as Form 
    set FormPublic = frmRef 
    FormPublic.Show 
    FormPublic.DoSomething() 
End Sub 

我對FormPublic得到一個錯誤.DoSomething（）不是「System.Windows.Forms.Form」的成員，當我嘗試在Vb.net中執行此操作時。

Answer 1

在.NET中，編譯器檢查變量類型以確保您只調用實際存在的成員。這種類型檢查是許多人喜歡的編譯時安全功能，因爲它避免了由於意外使用不受支持的成員而導致的不必要的運行時錯誤。

但是，爲了使VB.NET儘可能與VB6向後兼容，Microsoft添加了一個新選項。就像VB6有Option Explicit允許它向後兼容不需要變量聲明的舊版本，VB.NET增加了一個新的Option Strict。

當您打開Option Strict Off時，它將禁用該編譯器類型檢查功能，以便允許使用VB6風格的後期綁定。但是，這並不完美。即使使用Option Strict Off，只有在Object類型的變量上才允許延遲綁定語法。因此，爲了呼叫未經檢查的成員，您需要先將對象轉換爲Object類型。例如：

Option Strict Off 

Private Sub TouchForm(frmRef As form) 
    Dim FormPublic As Object 
    FormPublic = frmRef 
    FormPublic.Show 
    FormPublic.DoSomething() 
End Sub 

或者更簡單地說：

Option Strict Off 

Private Sub TouchForm(frmRef As Object) 
    frmRef.Show 
    frmRef.DoSomething() 
End Sub 

然而，正如馬克西米利安在上面的評論說，在大多數情況下，最好是離開Option Strict On，這樣就可以保留有價值的類型 - 檢查。正如他所提到的，最明顯的方式做到這一點，同時仍保持Option Strict On，是讓所有的形式實現共同的接口，這樣的：

Public Interface ISomeInterface 
    Sub Show() 
    Sub DoSomething() 
End Interface 

Private Sub TouchForm(frmRef As ISomeInterface) 
    frmRef.Show 
    frmRef.DoSomething() 
End Sub 

當你這樣做的，編譯器只將如果您傳入實現該特定接口的對象，則允許您調用TouchForm方法。因此，您需要在支持這些功能的所有Form類中實現該接口。如果你試圖調用它並將它傳遞給一個沒有實現該接口的表單，它將無法編譯。

如果接口不合適，用於完成同樣事情的其他選項將是使用基類或委託。如果沒有這些事情都是可能的，你必須把它叫做後期綁定，但你還是要離開Option Strict On，你仍然可以做到這一點通過使用反射的：

Private Sub TouchForm(frmRef As Form) 
    frmRef.Show 
    frmRef..GetType().GetMethod("DoSomething").Invoke(frmRef, {}) 
End Sub 

談到Option Strict Off不總是一個不好的選擇。這是一個非常有用的功能，它實際上是通過它的dynamic關鍵字添加到C＃中的。但是，在VB中，沒有辦法在逐個變量的基礎上進行，所以它不夠靈活。在VB中，您只能爲整個文件打開Option Strict Off。所以當你這樣做的時候，那個文件中的代碼都沒有進行類型檢查。所以，在我看來，如果你確實關閉了，最好儘可能少地保存文件，並儘可能縮短文件的長度。您甚至可以考慮將其實現爲Partial Class，以便只有該類的一個方法處於未經檢查的文件中，而其餘的代碼位於另一個經過類型檢查的文件中。

Answer 2

你必須嘗試這樣的事：

private sub TouchForm(frmRef as form) 
     dim FormPublic as Form = New frmRef 
     FormPublic.Show 
     FormPublic.DoSomething() 
End Sub