还有看这个事件 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 '* 標準に戻す 一前一后,挺有意思,是什么意思的, 高手指教,日本人的东西就是变态?
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 '* 標準に戻す
一前一后,挺有意思,是什么意思的, 高手指教,日本人的东西就是变态?