一括表示 件名: Th527api HamlogMs.txt  cmmd = 20
記事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)
このスレッドは管理者によってロックされていますので、返信並びに編集は出来ません!
関連一覧ツリー 一括表示 をクリックするとツリーを一括表示します)
一括表示 Th527api HamlogMs.txt  cmmd = 20 - JA2BQX 太田 10/01-16:51 No.939
  Re: Th527api HamlogMs.txt  cmmd = 20 - JA9AOB 銅子 10/03-06:35 No.940
    Re: Th527api HamlogMs.txt  cmmd = 20 - JA2BQX 太田 10/03-08:25 No.941
      Re: Th527api HamlogMs.txt  cmmd = 20 - JA9AOB 銅子 10/04-15:40 No.942
        Re: Th527api HamlogMs.txt  cmmd = 20 - JG1MOU浜田 10/05-09:00 No.943
          Re: Th527api HamlogMs.txt  cmmd = 20 - JA9AOB 銅子 10/05-13:03 No.944
            Re: Th527api HamlogMs.txt  cmmd = 20 - JA2BQX 太田 10/05-18:52 No.945
              Re: Th527api HamlogMs.txt  cmmd = 20 - JA9AOB 銅子 10/06-07:09 No.946