ab.com コミュニティ

NoWestさん、すばやいを回答ありがとうございます
問題は解決しました

次のクラスを含むコードをコンパイルしようとすると Class StrList Private dim pStr as *BytePtr dim nHasStr as long dim nShowed as long Public sub StrList() pStr=malloc(sizeof(Byte)*256) nHasStr=0 nShowed=0 end sub sub ~StrList() dim i as Long for i = 0 to nHasStr-1 free(pStr ) next i free(pStr) end sub function GetnHasStr() a...

ありがとうございます。うまく行ったようです。

たびたび質問してすみません 次のコード（HelpCenterのとほとんど同じ）で、 #include "test.idx" #console Dim hEdit As Long Dim ofn As OPENFILENAME Dim hFile As Long Dim dwFileSize As DWord Dim dwAccessByte As DWord Dim FileName[MAX_PATH-1] As Byte Dim buffer As BytePtr 'OPENFILENAME構造体の初期化 FillMemory(VarPtr(ofn),Len(ofn),0...

早速試しました、
WM_SETTEXTを使えば他のwindowの内容も変更できるのですね

ところで、いろいろ調べてみたら
GetForegroundWindow()で最前面ウィンドウのハンドルを調べ、
FindWindowEx(hWnd, 0, "edit", NULL)を使えば
エディットボックスのハンドルがわかることが
わかりました

これで、たぶん目的のプログラムを作れると思います

皆さん、アドバイスありがとうございます。

ノッチさんアドバイスありがとうございます。
試してみましたが、自分のプログラムで作成したwindowのタイトルを変更することはできるようですが、ほかのプログラムのは変更できないようですね。

ありがとうございます。
探してみます。

今、TeX入力支援のための
1.起動
2.リストから文字列を選択
3.直前までアクティブだったウィンドウのエディットボックスに文字列を挿入
というプログラムを作ろうとしているのですが、

3.をする方法がわかりません。

どなたか教えてください。

うまく行きました。
ありがとうございます。

試してみましたが、やっぱり鳴ります。 Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT) OldProc=SetWindowLong(GetDlgItem(hMainWnd,EditBox1), GWL_WNDPROC, AddressOf(SubclassProc) As LONG_PTR ) As VoidPtr End Sub とすればいいんですよね？

EditBoxで”改行を許可””複数行”をチェックせずに Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord ' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。 Select Case hWnd Case GetDlgItem(hMainWnd,EditBox1) If dwMsg=WM_KEYDOWN And wParam=VK_RETURN Then '何らかの処理 MainWndProc=1 End If 　　　　　 ...