HAMLOG プログラム開発室

>
> その後に修正ウインドウを閉じようとしても表示されたままで
> 閉じてくれません。ソフトから自動で閉じたいのですが
> やり方がどこか違うのでしょうか？　それとも閉じるコマンドが無い？
>
> Hwnd2 = SendMessage(Hwnd1, WM_COPYDATA, Me.Handle, cds)

Win API で如何ですか　　ウィンドウ　ハンドル　を得て　SendMessage
Call SendMessage(lngWindowHandle, WM_CLOSE, 0, 0)
を使えばいいのでは

こんにちは。
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)

> QSLカード印刷ボタンをクリックすると、PCが固まってしまいます。
この様な質問は　HAMLOG 活用相談室　で行う様になっています。
そちらに、過去に同じような質問がありますので、
ワード検索で　キーワードに　QSL 印刷　フリーズ　　を入れて検索実行を押すと色々出てきます。

No22031　及び　No22032　あたりが参考に成りませんか見て下さい。

QSLカード印刷ボタンをクリックすると、PCが固まってしまいます。

HELPに記載されていました。
出来ない内容の質問をしてしまい
お手数をおかけして申し訳ありませんでした。
サンプルを書いて頂いたのですが
HAMLOG以外のプログラムの起動状態や他PCからの状態の判断が出来ないので
GLインデックスの構築は考えない様にします。

HELPに共有でQSOデータが他でOPENされている場合は
インデックスの再構築は出来ないと記載されていました。
舌足らずの上、出来ない内容の質問をしてしまい
お手数をおかけして申し訳ありませんでした。

サンプルプログラム有難うございます。
WM_COPYDATAを使用する事は考えられませんでした。
元プログラムに何かありそうなので今度の土日にそちらを
確認したうえで実験してみます。
ありがとうございました。

アドバイス有難うございます。
何か問題がありそうなので土日になりますが
もう一度条件を振って確認してみます。
浜田OMから別の手法を書いていただいたので
何とかなりそうです。

共有の場合はあまりテストしたことが無いのですが、MakeIndex()を
呼び出す前に、HamlogClose()を呼び出す必要があると思います。

var cdsBff: TCOPYDATASTRUCT;
cdsBff.cbData := 0;
cdsBff.dwData := 27; // HamlogClose
SendMessage(ThwHwnd, WM_COPYDATA, Handle, LPARAM(@cdsBff));
MakeIndex();
cdsBff.dwData := 28; // HamlogOpen
SendMessage(ThwHwnd, WM_COPYDATA, Handle, LPARAM(@cdsBff));

うまくいかなかったらごめんなさい。
hQSLでは、共有モードでない場合はこのコマンドを使ってHAMLOGに
フィイルを閉じさせ、QSOデータを操作しています。

こんにちは。

コードの提示をして下さい。
「言葉」だけでの説明では理解できない部分があります。

「共有時のインデックスの作成」部分のコードと、その時の条件。
「環境設定」での「QSOデータ共有」の設定（有り、無しを変えてみて）、
ソフト側で Hamlog_Open をする／しない．．．．と条件を変えてみて
Hamlog は起動している／いない．．．．と条件を変えてみて．．．など。


私のＶＢ２０１０のテストでは上記の条件を色々組み合わせてもＧＬのインデックス作成は出来ますが．．．。