VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2006/10/07(Sat) 18:27 |
| 投稿者 | ： ブンブン |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 解決 |
> テキストボックスのChangeイベントで行数を得て、固定行以上になったら何か(例外or適切な処理)すればいいだけなのではないでしょうか？
Changeイベントでコードを書いたらできたようです。
(行数の取得はこのサイトに載ってます）
Private Sub Text1_Change()
Dim rc, cnt
'キャレットが移動した
cnt = SendMessage(Me.Text1.hWnd, EM_GETLINECOUNT, -1, 0) 'テキストの行数を取得する
rc = SendMessage(Me.Text1.hWnd, EM_LINEFROMCHAR, -1, 0) + 1 '現在の行番号を取得
If cnt > 5 Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
Text1.SelStart = Len(Text1.Text)
End If
end sub
も さんありがとうございます！！！
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）