VB的MsgBox,inputbox,showmessage,alert,confirm

zhgc

VB的MsgBox,inputbox,showmessage,alert,confirm

1. If App.PrevInstance = True Then
   
2.     MsgBox "不能重复打开程序!", vbExclamation
   
3.     End
   
4. End If

复制代码

1. If Me.txtscada = "" Then
   
2.    MsgBox "Please input the scada Name!", vbOKOnly + vbInformation
   
3.    Exit Sub
   
4. End If

复制代码

1. Exit Sub
   
2. errdel:
   
3.     'Modify by lfl 2004/5/25
   
4.    MsgBox "frmconfig cmdok_Click Process Error:" & vbCrLf & Err.Description
   
5.    
   
6. End Sub

复制代码

1.    If MsgBox("Delete the GW28 of the Station---" & rs!station_name & "?", vbYesNo) = vbYes Then
   
2.       strsql = "delete from SMT.c_SCADA_config where STATION_NO='" & key & "'"
   
3.       cn.Execute (strsql)
   
4.   End If

复制代码

1.     If MsgBox("工单" & Me.CmbWO.Text & "已导入过料表，是否需要重复导入?", vbYesNo + vbQuestion + vbDefaultButton2) <> vbYes Then
   
2.         Screen.MousePointer = vbDefault
   
3.         Exit Sub
   
4.     End If

复制代码