| 投稿日 | ： 2003/01/16(Thu) 14:05 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: テキストボックスのs総桁数を知りたい |
因みに現在位置までの文字数を求める場合は Text1_KeyUp イベントに
下記のコードを追加して下さい。
Dim PosLen As Long
Dim myStr As String
'現在位置の文字インデックスを取得
PosCol = SendMessage(Text1.hwnd, EM_GETSEL, 0&, 0&)
'下位ワードを求める（最初の文字インデックス）
PosLen = PosCol And &HFFFF&
'文字列を Unicode からコード ページに変換します
myStr = StrConv(Text1.Text, vbFromUnicode)
'先頭からの文字列を求める
myStr = LeftB(myStr, PosLen)
'その文字列の文字数を取得
PosLen = Len(StrConv(myStr, vbUnicode))
Label3.Caption = "現在文字数／総文字数＝" & PosLen & " / " & Len(Text1.Text)