HAMLOG プログラム開発室

> 　この設定をやってみて，納得．．．Formのバックカラーは，色の設定の，規定の色ではマッチする色が無かったのが原因のようです．
> 　規定のマス目の色を初期色に設定しておくと，その色が選択された状態で無事オープンできました．.

Color を設定しないで開くと，左下の”黒色”が，
マス目の色とマッチしない.Colorを設定して開くと，左上の”薄紅色”が選択されている状態で開きました．

ふむふむ，奥が深いですね．．．

太田さん，紹介ありがとうございます．

　Common Dialog に，Flags という設定があるのは知りませんでした．

> 下記のリンクは参考になりますか？　ＶＢ６もＶＢ２０１０も試したところ初期の色が設定出来るようです。
>
> 【VB6】「色の設定」ダイアログを表示する
> http://www.openreference.org/articles/view/446

.Color = Form1.BackColor
'*** オプション設定 ***
'初期選択を有効にします
.Flags = .Flags Or cdlCCRGBInit

　で，他のオプション設定はうまくいくのですが．．．どうしても左上になってしまう．．．

　あ，

　　'色の作成エリアを表示状態にします
.Flags = .Flags Or MSComdlg.ColorConstants.cdlCCFullOpen

　この設定をやってみて，納得．．．Formのバックカラーは，色の設定の，規定の色ではマッチする色が無かったのが原因のようです．
　規定のマス目の色を初期色に設定しておくと，その色が選択された状態で無事オープンできました．

　Flags の設定は，ファイル関係でもいろいろあるんですね．

>cdlOFNOverwritePrompt &H2 [ファイル名を付けて保存] ダイアログ ボックスで、選択したファイルが既に存在する場合にメッセージ ボックスを表示します。ユーザーは、ファイルを上書きするかどうかの確認を求められます。

　こんなのがあるとは．自分で確認のメッセージボックスを書いてましたが，自分でやる必要はなかったのですね．
　あと，ファイル名リスト ボックスで複数選択とか．

　ありがとうございました．

こんにちは。
「「色の設定」ダイアログボックスの初期値」をいじった事は無いのですが、
下記のリンクは参考になりますか？　ＶＢ６もＶＢ２０１０も試したところ初期の色が設定出来るようです。

【VB6】「色の設定」ダイアログを表示する
http://www.openreference.org/articles/view/446

「色の設定」ダイアログボックスを表示する。
ＶＢ．ＮＥＴ と　Ｃ＃
http://dobon.net/vb/dotnet/form/colordialog.html

投稿の趣旨に合っていると良いのですが。

VB6の Microsoft Common Dialog Control 6.0 (SP6)で，

Private Sub Form_Click()
With CommonDialog1
.Color = Form1.BackColor
.Action = 3
Form1.BackColor = .Color
End With
End Sub

と，初期カラー？を設定しても，フォーカスがいつも左下の黒のままで開いてしまいます．
かといって，構文的にはエラーにならないし（通常の Object.Color = ???? という構文には合ってるからか）．

VB6より新しいバージョンのコントロールでは，大丈夫なんでしょうか．

最新版： ver 1.1.6 2014/03/09 19:00）　ラベル行の構文がおかしい場合に，正常にリナンバーできなかった不具合を修正．
ラベル行の構文がおかしい場合には，"*Goto", "*Print", "*Line" となっている場合には修正，その他は";Ilegal Label--"としてコメントアウトした．

浜田さん、こんにちは。
ありがとうございます。

> WM_COPYDATAを使って、dwDataに、
> このあたりのコマンドでもそれなりにできるとは思いますが。

これはまだ試していませんが、メインウインドウ上でセルの色が変わる．．．とかが出来るのでしょうか。後で試して見ます。

> HAMLOGでは、Gridに表示させる必要があるデータだけ読み込んでます。

はい、その手法をと考えていましたがコーディングがまずくて上手く処理出来なかったので．．．。
ご紹介いただいたリンクを本日試して見ようと思います。

> そこで自作ソフト側でレコード番号（Hamlow.exe 上のＱＳＯデータのＮｏ．）を送ると、[そのレコード番号] のセルの色が変わる、指定項目のセルの色が変わる．．．などの機能追加を検討して頂けないでしょうか？

WM_COPYDATAを使って、dwDataに、
20 = 指定したレコード番号の修正ウインドウを表示させます。
27 = QSOデータをクローズさせます。(v5.21)この間に、QSOデータの読
　み書きができます。処理が終わったら、直ちに28を実行してください
28 = QSOデータのオープンを行わせます。(v5.21)

このあたりのコマンドでもそれなりにできるとは思いますが。


> VB2010 ユーザーの方、
> 表示には　DataGridView　を使っていますが高速に表示する方法を教えて頂けますか？

全データを読み込んでから表示させると時間かかるでしょうね。
http://www.atmarkit.co.jp/fdotnet/dotnettips/874aspgridviewpaging/aspgridviewpaging.html

HAMLOGでは、Gridに表示させる必要があるデータだけ読み込んでます。

こんばんは。
またまたやっかいな要望かも知れませんが．．．。

ＶＢ２０１０のソフトで SetDbsShare(1) として Hamlog.hdb を
QSOデータの共有オープンして特定項目を Update した時に
その結果を確認したい事があります。（この時は Hamlogw.exe は起動しておく ）

今までは　Hamlogw.exe は起動させないでおいて、
自作ソフト側で Hamlog.hdb の内容を表示し、 Update する項目を
書き換えてから Hamlog.hdb を update して、　Hamlogw.exe を起動させて update したデータの確認をしていました。
自作ソフト側で Hamlog.hdb の内容を表示するには結構な時間が掛ります。

そこで自作ソフト側でレコード番号（Hamlow.exe 上のＱＳＯデータのＮｏ．）を送ると、[そのレコード番号] のセルの色が変わる、指定項目のセルの色が変わる．．．などの機能追加を検討して頂けないでしょうか？

[そのレコード番号] がＱＳＯデータ表示ウインドウの上から２行目とかになると見やすいかと思いますが。 ( TopRow )

自作ソフト側でＱＳＯデータ数、三万件を越えたりすると表示に２，３０秒掛ったりします。

VB2010 ユーザーの方、
表示には　DataGridView　を使っていますが高速に表示する方法を教えて頂けますか？

こんにちは．

> 私は下記の　FileSystemObject　を使っています。
> http://hanatyan.sakura.ne.jp/vb6/file01.htm

なるほど，いろいろなコマンドを，F1で確認しながらやってましたが，これは便利ですね．オブジェクト一つに，そのプロパティ，メソッドでいろいろできちゃうので．

情報ありがとうございました．

こんにちは。
皆さん、色々とありがとうございました。
今回の機能追加を有効に利用させていただこうと思います。