Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
VB6で別のVB6プログラムのSliderを操作したい
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=30588#CommentId84390
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
ひでぽん
 (社会人)
投稿日時
2021/2/10 10:27:57
魔界の仮面弁士さま
回答ありがとうございます。
>FormA と FormB が共に自作なら、プロセス間通信のために
>DDE を使うという選択肢もあります。
DDEについては共に変更可能なので試してみようと思います。
後SendMessageの方もご教示頂きました方法で動作確認できました。これでとりあえず行けそうです。
ご教示ありがとうございました。
以下に修正したソースのせておきます。
Private Const TBM_SETPOS As Long = &H405&
'FormA.exeのSlider1を操作
Private Sub Command2_Click()
Dim lngWindWnd As Long
Dim lngBtnWnd1 As Long
lngWindWnd = FindWindow(vbNullString, "FormA")
lngBtnWnd1 = FindWindowEx(lngWindWnd, 0, "Slider20WndClass", vbNullString)
Call SendMessage(lngBtnWnd1, TBM_SETPOS, 1&, ByVal 5)
End Sub
解決しましたのでこれで完了とさせて頂きます。