VB.NET質問スレ (Part12)
■ このスレッドは過去ログ倉庫に格納されています
0185デフォルトの名無しさん
2005/08/11(木) 15:51:33VB6なら、SendMessageを使って出来たのですが、.NETの方は同じやりかただと出来なかったので。
以下が書いてみたコードです。
Private Const EM_SETMARGINS As Integer = &HD3s
Private Const EC_RIGHTMARGIN As Integer = &H2s
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As Integer) As Integer
Private Function MAKELONG(ByVal i As Integer, ByVal j As Integer) As Integer
Return (i And &HFFFF) Or (j * &H10000)
End Function
Call SendMessage(textbox1.hand, EM_SETMARGINS, EC_LEFTMARGIN, MAKELONG(lngNewValue, 0)
■ このスレッドは過去ログ倉庫に格納されています