Option Explicit On Option Strict On

[guiguzi629]

Option Explicit On
Option Strict On

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

[guiguzi629]

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

[wacle]

刚开始执行时，鼠标形状变成等待状态；
执行完成，变成缺省情况。
--此段代码不需要看懂日文，呵呵

[guiguzi629]

thank you !