VB2008：延遲分辨率;

Question

我使用似乎不是用VB嚴格的選項 它拍攝警告

後期綁定的分辨率兼容的功能可能會發生運行時錯誤;運行時錯誤可能發生。

Public Function RegRead(ByVal Path As String) As String 
     Dim ws As Object 

     On Error GoTo ErrHandler 
     ws = CreateObject("WScript.Shell") 
     RegRead = ws.RegRead(Path) 
     Return RegRead 
     Exit Function 

ErrHandler: 
     RegRead = "" 
    End Function 

它sugests與 「ws.RegRead」 東西

誰能告訴我如何修改這沒有預警？

Answer 1

你的問題是，你有

Dim ws As Object 

這意味着，編譯器不知道用什麼方法可在ws，所以所有的方法調用將被後期綁定。由於編譯器無法檢查該方法調用是否正確（名稱，參數類型是否正確），因此此檢查在運行時發生。如果有任何錯誤，那麼你將有一個運行時錯誤。與Option Strict它會給你一個警告。

相反，您應該使用爲.NET設計的API，例如Registry類。