vb制作斷路器源代碼

Public i As Integer '定義個公***變量，控制輸出解釋的字符

Private Sub Command4_Click()

i = i + 1

Call Out(i)

End Sub

Private Sub Form_Load()

Label1.Visible = False

Command4.Visible = False

End Sub

Private Sub Label2_Click()

Command4.Visible = True

i = 0

Call Out(i)

End Sub

Sub Out(ByVal n As Integer)

Label1.Visible = True

Label1.AutoSize = True

Select Case n

Case 0

Label1.Caption = "檢修斷路器過程請先斷開斷路器"

Case 1

Label1.Caption = "請確認斷路器已斷開"

Case 2

Label1.Caption = "檢修開始"

End Select

End Sub

上一篇:c++ "#"代表什麽意思

下一篇:拼車用什麽軟件比較好？