Listbox чужой

[Cytron]

Здравствуйте!
Вопрос срочный.
Как имея hwnd listboxа чужого приложения добавить (additem) в него значения.
И как имея hwnd checkboxa чужого приложения поставить его значение на 1 (отмечено)
Вопрос срочный, помогите плиз как можно быстрее!

[jangle]

Надо юзать SendMessage, положи на форму Listbox1 и Check1

Код: Выделить всё

Private Declare Function SendMessageByNum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const LB_ADDSTRING = &H180

Private Const BM_SETCHECK = &HF1


Private Sub Form_Load()
Dim st As String
st = StrConv("Привет!", vbFromUnicode)
SendMessageByNum List1.hwnd, LB_ADDSTRING, 0, StrPtr(st)
SendMessageByNum Check1.hwnd, BM_SETCHECK, 1, 0


End Sub

[Cytron]

jangle
спасибо огромное, а еще вопрос:
как поставить Enable check boxa на true? какая msg?

[jangle]

jangle
спасибо огромное, а еще вопрос:
как поставить Enable check boxa на true? какая msg?

Тут не SendMessage, а EnableWindow надо юзать. Положи на форму кнопку и Check1:

Код: Выделить всё

Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long


Private Sub Command1_Click()
EnableWindow Me.Check1.hwnd, 1
End Sub

Private Sub Form_Load()
Me.Check1.Enabled = False
End Sub

[alibek]

jangle, ты вообще в курсе, что делает EnableWindow?

[jangle]

jangle, ты вообще в курсе, что делает EnableWindow?

А ты вообще исходник запускал?

[Viper]

alibek, в контексте вопроса, jangle совершенно прав.