HAMLOG開発室BBS

Th527api HamlogMs.txt 　cmmd = 20 投稿者：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)

2021/10/01(Fri) 16:51:01 [No.939]

Call 名前	※必須
文字色	■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■
Ｅメール
タイトル	sage
ＵＲＬ
メッセージ	手動改行強制改行図表モードメッセージには上記と同じURLを書き込まないで下さい > こんにちは。 > 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)
画像File	(130kBまで)
暗証キー	(英数字で8文字以内)
投稿キー	（投稿時を入力してください）
プレビュー