gilsoft
چهارشنبه 18 دی 1392, 06:22 صبح
سلام به همه
چطور میشه رنگ Border مربوط به TextBox و GroupBox را تغییر داد. اگر نیاز به کد نویسی داره و اگه اطلاعاتی دارید بفرمایید چرا همه چیز باید با کدنویسی انجام بشه؟ چرا این موارد در property شیء قرار داده نشده.
ممنون
سلام دوست عزیز
اینم اون چیزی که میخواستی :
#Region " - Border Rectangle - "
Private Shared WM_NCPAINT As Integer = &H85
Private Shared WM_ERASEBKGND As Integer = &H14
Private Shared WM_PAINT As Integer = &HF
<DllImport("user32.dll")> _
Private Shared Function GetDC(ByVal hwnd As IntPtr) As IntPtr
End Function
<DllImport("user32.dll")> _
Public Shared Function GetDCEx(ByVal hwnd As IntPtr, ByVal hrgnclip As IntPtr, ByVal fdwOptions As UInt32) As IntPtr
End Function
<DllImport("user32.dll")> _
Public Shared Function ReleaseDC(ByVal hwnd As IntPtr, ByVal hDC As IntPtr) As Integer
End Function
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
MyBase.WndProc(m)
If m.Msg = WM_NCPAINT Or m.Msg = WM_ERASEBKGND Or m.Msg = WM_PAINT Then
Dim hDC As IntPtr '= GetDCEx(m.HWnd, CType(1, IntPtr), 1 Or &H20)
hDC = GetDC(m.HWnd)
If (hDC <> IntPtr.Zero) Then
Dim Graphics As Graphics = Graphics.FromHdc(hDC)
Dim BorderColor As Color = Color.Orange
Dim Rectangle As Rectangle
Graphics.PixelOffsetMode = PixelOffsetMode.HighQuality
Graphics.SmoothingMode = SmoothingMode.HighQuality
Rectangle = New Rectangle(1, 1, TextBox1.Width - 5, TextBox1.Height - 5)
ControlPaint.DrawBorder(Graphics, Rectangle, BorderColor, ButtonBorderStyle.Solid)
Rectangle = New Rectangle(0, 0, TextBox1.Width - 6, TextBox1.Height - 6)
ControlPaint.DrawBorder(Graphics, Rectangle, BorderColor, ButtonBorderStyle.Solid)
m.Result = CType(1, IntPtr)
ReleaseDC(m.HWnd, hDC)
End If
End If
End Sub
#End Region 'Border Rectangle
موفق باشید ....