谁能帮我看看这段代码有什么问题!追加100分~
PrivateSubCommand1_Click()DimhwndAsLongDimhwnd1AsLongDimretAsLongDimSAsStringS=Text1....
Private Sub Command1_Click()
Dim hwnd As Long
Dim hwnd1 As Long
Dim ret As Long
Dim S As String
S = Text1.Text
If hwnd1 <> 0 Then
hwnd1 = FindWindowEx(hwnd, hwnd1, "#32770", vbNullString)
ElseIf hwnd1 <> 0 Then
hwnd1 = FindWindowEx(hwnd1, hwnd1, "#32770", vbNullString)
ElseIf hwnd1 <> 0 Then
hwnd1 = FindWindowEx(hwnd1, hwnd1, "ComboBox", vbNullString)
ElseIf hwnd1 <> 0 Then
Else
ret = SendMessage(hwnd1, CB_ADDSTRING, 0, S)
msg = MsgBox("已经将 " + S + " 添加到列表框中!", 0, "提示")
End If
End Sub
Private Sub Timer1_Timer()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, "某某程序")
If hwnd = 0 Then
Label1.Caption = "设置窗口未运行,不能修改!"
Label1.ForeColor = vbBlue
Command1.Enabled = False
Else
Label1.Caption = "设置窗口已运行,可以修改!"
Label1.ForeColor = vbRed
Command1.Enabled = True
End If
End Sub
谁能帮我看看这段代码有什么问题啊..是向COMBOBOX里发信息,是VB源码~
自己估计问题大概出在这一句:ret = SendMessage(hwnd1, CB_ADDSTRING, 0, S) 展开
Dim hwnd As Long
Dim hwnd1 As Long
Dim ret As Long
Dim S As String
S = Text1.Text
If hwnd1 <> 0 Then
hwnd1 = FindWindowEx(hwnd, hwnd1, "#32770", vbNullString)
ElseIf hwnd1 <> 0 Then
hwnd1 = FindWindowEx(hwnd1, hwnd1, "#32770", vbNullString)
ElseIf hwnd1 <> 0 Then
hwnd1 = FindWindowEx(hwnd1, hwnd1, "ComboBox", vbNullString)
ElseIf hwnd1 <> 0 Then
Else
ret = SendMessage(hwnd1, CB_ADDSTRING, 0, S)
msg = MsgBox("已经将 " + S + " 添加到列表框中!", 0, "提示")
End If
End Sub
Private Sub Timer1_Timer()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, "某某程序")
If hwnd = 0 Then
Label1.Caption = "设置窗口未运行,不能修改!"
Label1.ForeColor = vbBlue
Command1.Enabled = False
Else
Label1.Caption = "设置窗口已运行,可以修改!"
Label1.ForeColor = vbRed
Command1.Enabled = True
End If
End Sub
谁能帮我看看这段代码有什么问题啊..是向COMBOBOX里发信息,是VB源码~
自己估计问题大概出在这一句:ret = SendMessage(hwnd1, CB_ADDSTRING, 0, S) 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询