Me.txt_Note.Font = New Font(Me.txt_Note.Font.Name, 14, FontStyle.Bold)(20-10-13, 12:28 AM)kafi2030 كتب : [ -> ]الف شكر
اخي ابو رائد
على اجابتك
قمت بتجريب المثال الذي تفضلت به حضرتك، وكان يعمل بشكل ممتاز
تم نقل ذات الكود الى برنامجي، ولكنه للاسف لم يعمل
بعد البحث والتدقيق، اكتشفت سبب عدم عدم الكود الذي تفضلت به
السبب يكمن في انني في حدث التركيز على التكست بوكس، اقوم بتكبير الخط من اجل اضفاء مزيد من الوضوح والتيسير على المستخدم اثناء الادخال، وبعد فقدان التركيز ارجع الخط الى حجمه
كود :
Me.txt_Note.Font = New Font(Me.txt_Note.Font.Name, 14, FontStyle.Bold)
هذا السطر هو السبب في عدم عمل الكود، وعند تجميده يعمل الكود
كيف لي ان اوفق ببن الكودين ( الكود المتعلق بازاحة الكتابة عن حافة التكست بوكس، وكود تكبير الخط عندما يكون التركيز على العنصر)
ارجو الارشاد والتوجيه
بارك الله فيكم
Me.txt_Note.Font = New Font(Me.txt_Note.Font.Name, 14, FontStyle.Bold)
TextBoxMargin(Me.txt_Note, 10, 10)TextBox1.Text = Space(5) + ""
مع التحية
#Region " TextBoxMargin "
<Runtime.InteropServices.DllImport("user32.dll", CharSet:=Runtime.InteropServices.CharSet.Auto)> _
Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInt32, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
End Function
Public Const EM_SETMARGINS = &HD3
Public Const EC_LEFTMARGIN = &H1
Public Const EC_RIGHTMARGIN = &H2
Public Sub TextBoxMargin(ByVal control As TextBox, ByVal leftMargin As Integer, ByVal rightMargin As Integer)
Dim lParam As Long = &H10000 * rightMargin + leftMargin
SendMessage(control.Handle.ToInt32, EM_SETMARGINS, EC_LEFTMARGIN Or EC_RIGHTMARGIN, lParam)
End Sub
#End RegionPublic Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInt32, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
Public Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInt32, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr