記事No |
: 939 |
投稿日 |
: 2021/10/01(Fri) 16:51:01 |
投稿者 |
: JA2BQX 太田 |
こんにちは。
VB2019 です。
Th527api HamlogMs.txt の説明で
「cmmd = 20 指定したレコード番号の修正ウインドウを表示させます。」を実行してから
「 21 = 修正ウインドウにデータを送ります。15番と同じ」にて
文字列を送るところまでは成功しました。
その後に修正ウインドウを閉じようとしても表示されたままで
閉じてくれません。ソフトから自動で閉じたいのですが
やり方がどこか違うのでしょうか? それとも閉じるコマンドが無い?
cmmd = 20
cds.dwData = cmmd
cbuff = thw_last_number_str 'vbNullString
cds.cbData = thw_last_number_val
cds.lpData = cbuff
Hwnd2 = SendMessage(Hwnd1, WM_COPYDATA, Me.Handle, cds)
Dim send_str_Len As Integer
cmmd = 21
cmmd = cmmd Or THW_FOCUS
cmmd = cmmd Or THW_ENTER
cmmd = cmmd Or THW_SAVEBOX_OFF 'くどいが...
cds.dwData = cmmd
cbuff = label4_tmp
send_str_Len = Microsoft.VisualBasic.Len(label4_tmp)
cds.cbData = send_str_Len + 1
cds.lpData = cbuff
Hwnd2 = SendMessage(Hwnd1, WM_COPYDATA, Me.Handle, cds)
このスレッドは管理者によってロックされていますので、返信並びに編集は出来ません!