中选vb代码.docVIP

Public INF_STR As String Public INF_STR1 As String Sub FenJie() Dim s As String Dim i As Integer Dim buff() As Byte On Error GoTo cuowu ListBox2.Clear s = DEV_G buff = StrConv(s, vbFromUnicode) For i = 0 To Len(s) - 1 If IsNumeric(Chr(buff(i))) Then ListBox2.AddItem Chr(buff(i)) Mid(s, i + 1) = ElseIf (buff(i) = Asc(a) And buff(i) = Asc(z)) Or (buff(i) = Asc(A) And buff(i) = Asc(Z)) Or (buff(i) = Asc(_)) Or (buff(i) = Asc(.)) Then Mid(s, i + 1) = End If Next i cuowu: End Sub Sub ReadALM(NeiRong As String) Dim read1 As Integer Dim cMedia As IWMPMedia On Error GoTo cuowu ListBox2.AddItem NeiRong WindowsMediaPlayer2.settings.playCount = 1 If WindowsMediaPlayer2.openState = 6 Then WindowsMediaPlayer2.currentPlaylist.Clear End If For read1 = 0 To ListBox2.ListCount - 1 ListBox2.ListIndex = read1 Set cMedia = WindowsMediaPlayer2.newMedia(C:\语音\ + ListBox2.Value + .wav) If WindowsMediaPlayer2.currentPlaylist.Count = 0 Then WindowsMediaPlayer2.currentMedia = cMedia Else WindowsMediaPlayer2.currentPlaylist.appendItem cMedia End If Next read1 Set cMedia = Nothing cuowu: End Sub Sub yanshi(time As Integer) Dim PauseTime, Start PauseTime = time 设置暂停时间。 Start = Timer 设置开始暂停的时刻。 Do While Timer Start + PauseTime DoEvents 将控制让给其他程序。 Loop End Sub Public Sub OK_Sub() Dim Stag As String 电子签名 If QF_G = True Then 带电就继续 FenJie If (KF_G Or KR_G) = True Then 只要正反转启车标志有一个为真，则进行启车操作 If (KF_G Or KR_G) = True Then 只要正反转启车标志有一个为真，则进行启车操作 If ILK_G = True Then 满足联锁就继续 ReadALM 集控起车操作 yanshi 5 If KF_G = True Then 正向启车 closedigitalpoint Fix32.FIX.RSTF1CG.F_CV 发出正向启车指令 closedigitalpoint ACT_G 激活设备对象 User.DEV_S