ab.com コミュニティ

最近ここの更新が止まってしまい、すごく悲しい水波形です。 AB4.23.00を愛用しています。 Treeviewのノードをドラッグアンドドロップ（D&D）で移動させる方法について質問があります。 TVN_BEGINDRAG が検知されたらD&Dが開始される事が分かり、 D&Dが終了すると、 WM_LBUTTONUP が通知されるということがわかったため、Treeviewをサブクラス化しWM_LBUTTONUPを捕まえます。 ここまではうまく行ったのですが、 D&Dの対象を知る方法 が分かりません。 TVGN_DROPHILITE を利用すれば良さそう（ 参考サイ...

たかせ　様 お早いご返信有り難うございます。 私自身Windows 10のPCをもっていないので確認できませんが。 念のためですが、 まず対象となるEditBoxのプロパティの複数行と改行の許可共にチェックされていますよね？ あと行番号を持たないエディットボックスは複数行文字入力できますか？ はい、勿論複数行になっております。 Windows7（64bit）で確認したモノをタブレットに移すとそのような症状が起こりました。 タブレットはWindows10 x86です。 ＞症状2 ＞Windows7で、Aeroを無効にした時に文字が1文字ずつしか書けなくなる。 ＞Aeroを有効にしているとそんなこ...

流石にサポート対象外ですけど…… Windows7ではまだまだ動いてくれてるのに、Windows10で動かない場合も。 解決策はあるのでしょうか？ 行番号付きエディットボックス を使用させていただいております。 また、 MainWnd_EditBox1_Change() で、EditBoxの中身を変数に格納する処理を入れています。 症状１ Windowsタブレット（OSを8から10にアップグレード）で、複数行EditBoxに文字がかけない。 症状2 Windows7で、Aeroを無効にした時に文字が1文字ずつしか書けなくなる。 Aeroを有効にしているとそんなことはない。 この開発環境好きなの...

淡幻星 様

ご返信遅れてしまい申し訳ありません！
最近研究に追われていて、ろくにプログラミングをしていない……

まず、行番号の件、解決しました！
＞K2さんのコードの場合は、hFont_MainWndを設定しているので
完全にこれでした…指定し直すとできました！

戻るの方は……まだ謎です。

淡幻星 様 ご回答有り難うございます。 大変間が空いてしまってすみません。 （なかなか来れませんでした・・・） お忙しい中対応していただきありがとうございます＞＜ 感謝感激でございます！ ビープ音を消すには、WM_DOWNでExit Functionするだけでは不十分でした。 WM_CHARを捉まえて、これに対してもExit Functionしてあげてください。 こちらを実行したところ、ビープ音が消えました！ありがとうございます！！ これで、求めていたものはできました！！ ……のですが…… Ctrl+Z、つまり、「戻す」機能が思ったように実行できません。 適当に文字を書き、Ctrl+Zを押すと...

たかせ様 ご返信有難うございます。 OldEditProc = GetWindowLong(GetDlgItem(hMainWnd,EditBox1),GWL_WNDPROC) を行ってみましたが変わりありませんでした。 そしてふと思ったのですが、 k2様の「行番号付きエディットボックス」 をEditBoxに適応しているのですが、 もしかしたらこれが原因なのでしょうか…？ とりあえず、変わってはいませんがサブクラス化したコールバック関数はこのようになっています 'EditBox1のサブクラス コールバック関数 Dim OldEditProc As WNDPROC Function Edit1W...

淡幻星　様

ご返信有難うございます！
たまにチェックさせて頂いております。

サブクラス化の設定なのですが、 こんなかんじで大丈夫でしょうか？
この辺りから間違っていたら大変なので、お先に質問させていただきます

返信遅くなってしまい申し訳ありません。 サブクラス内でキーを判別して独自の処理をした後に、デフォルトのコールバックに戻らず return 0 してみてはどうでしょう Q:ビープ音を無くすには？ A：サブクラス化したプロシージャ関数の戻り値に「0」を返せばOK。 以下、自コードからの抜粋です。 コード: 'Editboxのサブクラス化プロシージャ。 Function MyEditWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord Dim buf[255] As Byte Select...

お世話になっています。

エディタを作っているのですが、複数行EditBoxで独自のショートカットキーを登録しようとしています。
今やっている方法として、EditBoxをサブクラス化し、キーのメッセージを受け取って、それに応じて処理を行うといった形にしているのですが、
この方法をすると、最初から登録されているショートカットキー以外の物を入力すると、
ビープ音がなってしまいます。
これを無くしたいのですが、どのようにすればいいのでしょうか。

ご存じの方がいらっしゃいましたら、ご教授ください。

よろしくお願いいたします。

koto様 お返事かなり遅くなってしまい、申し訳ありません。 院試と卒業発表も漸く終わり、次は学会発表でバタバタしております…… さて、頂いたコードなのですが、うまく動作いたしました！ 本当に有難うございます！！ Type TVDISPINFO hdr As NMHDR item As TVITEM End Type Sub MainWnd_Notify(ByRef sEdit As TVDISPINFO) こんなことしちゃっていいんですね……知りませんでした。 というか、hdrに、今までのデータが何故ちゃんと入っているのかが謎です＾＾； 何はともあれ、次はドラッグアンドドロップでツリーを動か...

kobo様

ありがとうございます。
記載を忘れておりましたが、こちらの質問は解決済みとなります。

また、完成した文字列置換アルゴリズムを「実践コードモジュール」にて掲載していますので、
興味のある方はどうぞ
http://www.activebasic.com/forum/viewto ... f=2&t=4561

>kobo様 遅くなりました。 ご返信有難うございます。 '--------------- ' TV_ITEM構造体 '--------------- Type TV_ITEM mask As Long hItem As Long state As Long stateMask As Long pszText As BytePtr cchTextMax As Long iImage As Long iSelectedImage As Long cChildren As Long lParam As Long End Type Dim tvitem As TV_ITEM 'TV_ITEM構造体 ...

たかせ様


使用報告ありがとうございます！
Ver.1.20を公開しました！
フォントの変更を実装してみました

たかせ様 ご返信有難うございます。 それはそれとしてGetSelectNodeHandle関数をYahoo検索しましたが表示されませんでした。 これはWin32 APIにある関数ですか？ 言葉足らずですいません。 私がかってに定義している関数です。 /* 選択されているノードハンドルを取得する */ Function GetSelectNodeHandle() As HWND Dim focus As HWND focus = GetFocus() SetFocus(hTree) GetSelectNodeHandle=SendMessage(hTree,TVM_GETNEXTITEM,&am...

お世話になっております、水波形です。 Treeviewのラベルの変更がうまく出来ずに困っています。 RADツールの、Treeview　＞　ラベルの編集にチェック /* コモンコントロールからメッセージが来た時 */ Dim hEditing As HWND Sub MainWnd_Notify(ByRef nmHdr As NMHDR) If nmHdr.code = TVN_BEGINLABELEDIT Then hEditing = GetSelectNodeHandle() End If If nmHdr.code = TVN_ENDLABELEDIT Then If nmHdr.hwn...