６．TextBox における総行数・現在行・現在桁の取得(23_Txt_06)　(旧、SampleNo.000)

１．TextBox における総行数・現在行・現在桁の取得 ２． ３． ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．TextBox における総行数・現在行・現在桁の取得

Private Sub TextBox1_KeyUp(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyUp     Label1.Text = GetCharIndex(TextBox1) End Sub Private Function GetCharIndex(myTextBox As TextBox) As String     With myTextBox         '現在のキャレット位置を求める         Dim cp As Integer = .SelectionStart + .SelectionLength         '.GetLineFromCharIndex メソッド         'テキスト内の指定した文字位置から行番号を取得します。 0 から始まるので、+ 1         Dim cpy As Integer = .GetLineFromCharIndex(cp) + 1         'GetFirstCharIndexFromLine メソッド         '指定した行の最初の文字のインデックスを取得します。         Dim cpx As Integer = .GetFirstCharIndexFromLine(cpy - 1)         GetCharIndex = String.Format("現在行/総行数 {0:##0}/{1:##0}　{2:現在桁 ##0}", cpy, .Lines.Count, cp - cpx)     End With End Function

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

テキストボックス　テキストボックス