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) > > はじめまして > > マネージメモリ配下なので > アンマネージメモリではない > よって > > Public lpData As IntPtr->Public lpData As String > > ついでに戻りにおいても > > TextBox1.Text = Marshal.PtrToStringAnsi(cds.lpData) > なってましたが > TextBox1.Text = cds.lpData > になります > > VBは10年以上触ってませんでしたが、Expressはどうなのか > 興味があって動作させてみました > コメント文に手こずりますね　VBは　つい//としてしまう > 最後;をつける癖が > > おそらく動作すると思います > VB2010で動作確認してみました > > と宣言下さい
画像File	(130kBまで)
暗証キー	(英数字で8文字以内)
投稿キー	（投稿時 を入力してください）
プレビュー