HAMLOG開発室BBS

VB2010 Th521api cmmd = 119 投稿者：JA2BQX 太田

お世話になります。
先程の「Th521APIアップしました」で上手く動作した　cmmd = 119 は
ＶＢ６　でのコードでした。

ＶＢ2010で　ＵＲＬ　のページの「ソース１　　2009.08.17　getHamlog」にコードを追加して
試しています。　
cmmd = 118 は上手く動作しましたが　cmmd = 119 が上手く行きません。

cds.cbData 　と cds.lpData のセットの仕方がＶＢ６とＶＢ２０１０では
異なるからなのかも知れませんが、どなたかご指導いただければ幸いです。

http://ja2bqx.web.ｆｃ２.com/VbNet/VbNet.html

（注）　ＵＲＬがＥＲＲＯＲになるために一部全角にしてありますが実際には全て半角です。

------　一部抜粋　-----

Dim cds As COPYDATASTRUCT
Private Const WM_COPYDATA = &H4A
<VBFixedString(256)> Dim cbuff As String

' Th521api で追加されたコマンド
'　119 = lpDataにレコード番号の文字列へのポインタを渡すと、そのレコード番号の
' データの、コールサインからRemarks2までが、それぞれ改行されたテキス
' トとして得ることができる。指定レコード番号が範囲外の場合は、最終レ
'　　　　コード番号のデータ。(v5.20b)

cmmd = 119
cds.dwData = cmmd

'cds.cbData = 0

'cds.cbData = 0 だと最終レコードを表示する。　他では表示されない？？

cbuff = "32959" '指定レコード番号

cds.cbData = Microsoft.VisualBasic.Strings.Len(cbuff) ' 文字列の長さ

cds.lpData = cbuff

Hwnd2 = SendMessage(Hwnd1, WM_COPYDATA, Me.Handle, cds)

2012/10/13(Sat) 15:00:42 [No.311]

Call 名前	※必須
文字色	■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■
Ｅメール
タイトル	sage
ＵＲＬ
メッセージ	手動改行強制改行図表モードメッセージには上記と同じURLを書き込まないで下さい > お世話になります。 > 先程の「Th521APIアップしました」で上手く動作した　cmmd = 119 は > ＶＢ６　でのコードでした。 > > ＶＢ2010で　ＵＲＬ　のページの「ソース１　　2009.08.17　getHamlog」にコードを追加して > 試しています。　 > cmmd = 118 は上手く動作しましたが　cmmd = 119 が上手く行きません。 > > cds.cbData 　と cds.lpData のセットの仕方がＶＢ６とＶＢ２０１０では > 異なるからなのかも知れませんが、どなたかご指導いただければ幸いです。 > > http://ja2bqx.web.ｆｃ２.com/VbNet/VbNet.html > > （注）　ＵＲＬがＥＲＲＯＲになるために一部全角にしてありますが実際には全て半角です。 > > > ------　一部抜粋　----- > > Dim cds As COPYDATASTRUCT > Private Const WM_COPYDATA = &H4A > <VBFixedString(256)> Dim cbuff As String > > > > ' Th521api で追加されたコマンド > '　119 = lpDataにレコード番号の文字列へのポインタを渡すと、そのレコード番号の > ' データの、コールサインからRemarks2までが、それぞれ改行されたテキス > ' トとして得ることができる。指定レコード番号が範囲外の場合は、最終レ > '　　　　コード番号のデータ。(v5.20b) > > cmmd = 119 > cds.dwData = cmmd > > 'cds.cbData = 0 > > 'cds.cbData = 0 だと最終レコードを表示する。　他では表示されない？？ > > cbuff = "32959" '指定レコード番号 > > cds.cbData = Microsoft.VisualBasic.Strings.Len(cbuff) ' 文字列の長さ > > cds.lpData = cbuff > > Hwnd2 = SendMessage(Hwnd1, WM_COPYDATA, Me.Handle, cds)
画像File	(130kBまで)
暗証キー	(英数字で8文字以内)
投稿キー	（投稿時を入力してください）
プレビュー