TextBox/RichTextBoxのワードラップを無効にする
VisualBasic6用
TextBox/RichTextBoxのワードラップを無効にする
Const EM_SETWORDBREAKPROC = &HD0& Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Function EditNoWordBreakProc(lpch As Long, _ ichCurrent As Long, cch As Long, action As Long) As Long EditNoWordBreakProc = 0 '何もしないで 0 を返す End Function ' TextBox/RichTextBoxのワードラップを無効にする ' ' lngHWnd : TextBox/RichTextBox のウィンドウハンドル ' ' 戻り値 : 正常 - 行数 ' 異常 - -1 ' Public Sub SetNoneWRap(ByVal lngHWnd As Long) Dim lngRetCd As Long lngRetCd = SendMessageLong(lngHWnd, EM_SETWORDBREAKPROC, 0&, _ AddressOf EditNoWordBreakProc) End Sub