コード: 全て選択
Declare Function SendMessageW Lib "user32" _
(hWnd As HWND, _
Msg As DWord, _
wParam As WPARAM, _
lParam As LPARAM) As LONG_PTR
Declare Function SendDlgItemMessageW Lib "user32" _
(hDlg As HWND, _
nIDDlgItem As Long, _
Msg As DWord, _
wParam As WPARAM, _
lParam As LPARAM) As LONG_PTR
Dim nChars As DWord, bufChars As String
nChars = SendDlgItemMessageW(hMainWnd, EditBox1, WM_GETTEXTLENGTH, 0, 0)
bufChars = Str$(nChars)
SetDlgItemText(hMainWnd, Static1, StrPtr(bufChars))コード: 全て選択
Sub MainWnd_EditBox1_Change()
Dim Str As String
Dim S As String
Dim Length As Long
Length = GetWindowTextLength(GetDlgItem(hMainWnd, EditBox1))
Str$ = ZeroString(Length)
GetDlgItemText(hMainWnd, EditBox1, Str, Length)
'文字数取得
S = Str$(LenStr(Str))
'文字数を表示する
SetDlgItemText(hMainWnd2, EditBox1, StrPtr(S))
End Sub
Function LenStr(Str As String) As Long
'* 文字数を返します *
Dim Str2$ As String, Num As Long
'Unicodeに変換後、使用するバイト数の取得
Str2$ = ZeroString(MultiByteToWideChar(0, 0, Str, Len(Str), 0, 0) * 2)
'Unicodeに変換
Num = MultiByteToWideChar(0, 0, Str, Len(Str), StrPtr(Str2$), Len(Str2$))
LenStr = Num '文字数を返す
End Function
コード: 全て選択
Function mb_lstrlen(ByVal lpString As LPCSTR) As Long
Dim cnt=0 As Long
While lpString[cnt]<>0
If IsDBCSLeadByte(lpString[cnt])<>TRUE Then
mb_lstrlen++
End If
cnt++
Wend
End Function
' 使い方
Dim length As Long
' 16が格納されます。
length=mb_lstrlen("HogeFugaPiyoMoko")
' 10が格納されます。
length=mb_lstrlen("あかさたなはまやらわ")コード: 全て選択
Function mb_lstrlen(ByVal lpString As LPCSTR) As Long
Dim cnt=0 As Long
While lpString[cnt]<>0
If IsDBCSLeadByte(lpString[cnt]) = TRUE Then
cnt++
End If
mb_lstrlen++
cnt++
Wend
End Function
コード: 全て選択
Declare Function CharNext Lib "user32" Alias "CharNextA" (
ByVal lpsz As LPCSTR) As LPSTR
Function mb_lstrlen(ByVal lpString As LPCSTR) As Long
Dim lpsz As LPSTR
lpsz=lpString
While lpsz[0]<>0
mb_lstrlen++
lpsz=CharNext(lpsz)
Wend
End Function