神魂顛倒論壇logo

icon
首頁Microsoft 應用技術區.NET / Visual Studio → vb.net MyBase.Load錯誤提示:模塊中的“Handles”必須指定用單個標識符限定

雷射溶脂 | 瘦小腹 | 植髮 | 眼袋 | 玻尿酸 | 電波拉皮 | Flash | 購物車 | Flash Player 11.2 | 豐胸 |

下一主題 上一主題


vb.net MyBase.Load錯誤提示:模塊中的“Handles”必須指定用單個標識符限定


vb.net MyBase.Load錯誤提示:模塊中的“Handles”必須指定用單個標識符限定 簡版






    Imports System.IO
    Module Module'
    WithEvents
    Sub Form'_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Try
    Dim FsWatcher As New FileSystemWatcher
    With FsWatcher
    .Filter = "~$test.docx"
    .Path = "D:\"
    .NotifyFilter = IO.NotifyFilters.Size
    AddHandler FsWatcher.Deleted, AddressOf IsFileDeleted
    .BeginInit()
    End With
    Catch ex As Exception
    End Try
    End Sub
    Sub IsFileDeleted(ByVal sender As Object, ByVal e As FileSystemEventArgs)
    If e.ChangeType = WatcherChangeTypes.Deleted Then
    MsgBox("文件已經關閉")
    End If
    End Sub
    Sub Main()
    End Sub
    End Module
    MyBase.Load提示這個錯誤。
    MyBase.Load的具體定義 是頁面在加載時觸發的事件,一般在該方法中添加一些對控件的基本屬性(頁面一旦加載完成後,該屬性就不會再變化)進行初始化的操作。
    原來是沒有mybase這個類,于是我又索索了這段代碼:
    ' Declare a WithEvents variable.
    Dim WithEvents EClass As New EventClass
    
    ' Call the method that raises the object's events.
    Sub TestEvents()
    EClass.RaiseEvents()
    End Sub
    
    ' Declare an event handler that handles multiple events.
    Sub EClass_EventHandler() Handles EClass.XEvent, EClass.YEvent
    MsgBox("Received Event.")
    End Sub
    
    Class EventClass
    Public Event XEvent()
    Public Event YEvent()
    ' RaiseEvents raises both events.
    Sub RaiseEvents()
    RaiseEvent XEvent()
    RaiseEvent YEvent()
    End Sub
    End Class
    仔細看,這是一個自定義類,但是mybase是vb.net自帶的,後來一想,我用的是控制台應用程序,並沒有窗口或頁面,所以這個類也就無效。




自體脂肪隆乳 | 回到頂部
下一主題 上一主題