[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 2chのread.cgiへ]
Update time : 03/12 18:38 / Filesize : 296 KB / Number-of Response : 987
[このスレッドの書き込みを削除する]
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧] [類似スレッド一覧]

↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

VB.NET質問ｽﾚ (Part6)

274 名前：デフォルトの名無しさん mailto:sage [04/07/27 13:35]
>>272 さんのおかげで少し進んだのですが，，，
今度は，TextBoxのカーソル位置を表示してみようと思いまして，，で，

　Cur = TextBox1.SelectionStart
　If Cur <= 0 Then
　　y = 1 : x = 1
　Else
　　c = 0 : y = 0
　　Do
　　　x = Cur - c
　　　c += TextBox1.Lines(y).Length + 2
　　　If Cur < c Then Exit Do
　　　y += 1
　　Loop
　　For xx = x - 1 To 0 Step -1
　　　If AscW(TextBox1.Lines(y).Substring(xx, 1)) >= 256 Then x += 1
　　Next
　　y += 1 : x += 1
　End If
　Label1.Text = y & "行 " & x & "桁"

こんなんになってしまったのですが，これだと 各行の文字数を先頭から
足して来たり，各文字が全角かどうか一文字ずつ調べたりしてて，
TextBox の文字数が多くなると遅そうですよね．
他にスマートな方法があれば教えていただきたいのです．




[ 続きを読む ] / [ 携帯版 ]
全部読む 前100 次100 最新50 ▲ [ このスレをブックマーク！ 携帯に送る ] 2chのread.cgiへ
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧]（ ´∀｀）＜296KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef