2013-01-23 44 views
0

我在網上發現了一些有用的代碼,其中只提供了庫文件,我重新創建了源代碼,但發現了一些我不確定的錯誤。發生反編譯源代碼中的錯誤

<StandardModule()> _ 
Friend NotInheritable Class CreateFiles 
' Methods 

' Fields 
Private Shared Configuration As Configuration = New Configuration 

' Nested Types 
Private Delegate Sub showITDelegate(ByVal message As String) 

<STAThread()> _ 
Public Shared Sub Main() 
    CreateFiles.Configuration.ReadConfig() 
    CreateFiles.DisplayConfig(CreateFiles.Configuration) 
    CreateFiles.CreateFiles() 
End Sub 

Public Shared Sub CreateFiles() 

我想了解是否有其他類丟失,因爲有對CreateFiles錯誤*主,這非常類中的這些參考潛艇行: CreateFiles有「表達式不產生值' 在它下面。 它爲什麼會引用它自己以及同一類中的方法和子類。

+0

選擇更好的名字。避免給Sub賦予與它所在類相同的名字。 –

回答

2

好像它看起來在Sub CreateFiles(),而不是類。而一個子(例程)不會返回任何值。您可以刪除Main子例程中的(第一個)CreateFiles

這應該工作:

<StandardModule()> _ 
Friend NotInheritable Class CreateFiles 
' Methods 

' Fields 
Private Shared Configuration As Configuration = New Configuration 

' Nested Types 
Private Delegate Sub showITDelegate(ByVal message As String) 

<STAThread()> _ 
Public Shared Sub Main() 
    Configuration.ReadConfig() 
    DisplayConfig(Configuration) 
    CreateFiles() 
End Sub 

Public Shared Sub CreateFiles() 

既然你沒有問題,其他地方。

+0

感謝您的回覆。我最初想到的是,但後來想知道爲什麼有人會這樣編碼,或者這只是我使用的反編譯器的結果。 – vbNewbie

+0

這可能確實是反編譯器的結果。 (我不知道你使用了哪一個。) – Styxxy