Option Explicit On 
           Option Strict On在每个类之前,我都见了 上面两个声明, 是什么意思!

解决方案 »

  1.   

    还有看这个事件
        Private Sub btn_Go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Go.Click        Dim strStaffCD As String        Cursor.Current = Cursors.WaitCursor  '* 砂時計        If Data_Check() <> 0 Then Exit Sub        strStaffCD = txt_User.Text        Main.G_Main_UserCD = strStaffCD
            Me.Close()
        
            Cursor.Current = Cursors.Default     '* 標準に戻す    End Sub
    其中有两句 
        Cursor.Current = Cursors.WaitCursor  '* 砂時計
        Cursor.Current = Cursors.Default     '* 標準に戻す
    一前一后,挺有意思,是什么意思的, 高手指教,日本人的东西就是变态?