ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月28日(木) 22:37

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 7 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2006年8月04日(金) 21:41 
オフライン

登録日時: 2006年1月31日(火) 10:30
記事: 2
お住まい: 静岡県富士市
作成してみたので投稿します。

RADツールでEditBox1という名前のエディットボックスを作成し、
以下のコードを貼り付けてください。

MainWnd.sbp:


通報する
ページトップ
投稿記事Posted: 2006年8月25日(金) 09:05 
オフライン

登録日時: 2006年5月02日(火) 16:27
記事: 154
これすごいですね!
使わせていただきます!!


通報する
ページトップ
投稿記事Posted: 2006年8月25日(金) 13:45 
オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市
DrawTextLine関数内の
コード:
    For i=topLine To cntLine 
        str=Str$(i+1) 
        pos=SendMessage(hWnd, EM_LINEINDEX, i, 0) 
        pos=SendMessage(hWnd, EM_POSFROMCHAR, pos, 0) 
        rc.top=HIWORD(pos) 

        If rc.top>=rc.bottom Then Exit For 

        DrawText(hdc, StrPtr(str), -1, rc, DT_RIGHT Or DT_TOP Or DT_SINGLELINE Or DT_NOCLIP) 
    Next
の部分を
コード:
	rc.top=-12
    For i=topLine To cntLine-1
        str=Str$(i+1)
        rc.top+=12
        If rc.top>=rc.bottom-12 Then Exit For
        DrawText(hdc, StrPtr(str), -1, rc, DT_RIGHT Or DT_TOP Or DT_SINGLELINE Or DT_NOCLIP)
    Next
と書き換えれば、AB4.2xのエディタのような現象が起こらなくなります。
また、そのように書き換えた場合、変数posはいらなくなるので宣言しなくても大丈夫です。

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。


通報する
ページトップ
 記事の件名: ちょっとしたメモ
投稿記事Posted: 2006年8月29日(火) 17:39 
オフライン

登録日時: 2005年10月03日(月) 05:43
記事: 5
お住まい: 石川県
コード:
'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

Sub MainWnd_Destroy()
    TextBoxSample_DestroyObjects()
    PostQuitMessage(0)
End Sub

 TestBoxSample_DestroyObjects() の、
 TestBoxSample を、
作成したプロジェクト名に変えるとバグが出なくなります。


メモ書き程度に報告しておきます。

_________________
PC:富士通 FMV-BIBLO MG50K
CPU:Intel Celeron M
メモリ:760MB
OS:Windows Xp Home SP2


通報する
ページトップ
 記事の件名:
投稿記事Posted: 2007年9月17日(月) 15:48 
オフライン

登録日時: 2007年9月16日(日) 19:32
記事: 9
お住まい: 栃木県某所
これは使えますね!
いただいていきますw


通報する
ページトップ
投稿記事Posted: 2007年10月13日(土) 14:14 
オフライン

登録日時: 2005年7月19日(火) 07:02
記事: 183
お住まい: 宮城県
グローバル変数を無くしてみました。
Edit窓のフォントサイズで行数描画するようにしてあります。


以下の関数を定義しておき、 Edit窓が貼り付けられている親窓のメッセージプロシージャで、
WM_CTLCOLOREDITメッセージが送られたら、
コード:
DrawTextLine( lParam, 32 )
で呼び出してください。
  第一引数・・・描画中のEdit窓
  第二引数・・・行数表示領域の横幅

これで、Edit窓の左外側に行数が表示されます。

なお、WM_CTLCOLOREDITメッセージを捉まえて処理をした場合は、
メッセージプロシージャは
引用:
コントロールの背景を描画するときに
使われたブラシのハンドルを返すか 0を返さなければならない
らしいです。参考までに。


【追記】at 2015/09/06
読み取り専用属性の付いたEdit窓に対しては、
WM_CTLCOLORSTATICメッセージを捉まえて処理してください。


最後に編集したユーザー 淡幻星 [ 2015年9月06日(日) 12:49 ], 累計 1 回

通報する
ページトップ
 記事の件名: 淡幻星さんへ
投稿記事Posted: 2008年11月15日(土) 19:59 
ありがとうございます。
便利に使わせていただきます。


通報する
ページトップ
   
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 7 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[10人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean