منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تغيير مؤشر الكتابة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تغيير مؤشر الكتابة (/showthread.php?tid=10516)



تغيير مؤشر الكتابة - صقر - 28-10-14

تغيير مؤشر الكتابة
السلام عليكم ورحمة الله تعالى وبركاته
-------------------------------------
هل لي ان اقوم بتغيير مؤشر textbox من الرمز(l) الى الرمز (-) كمؤشر شاشة الدوس ..
وشكرا



RE: تغيير مؤشر الكتابة - الوليد ☺ - 28-10-14

السلام عليكم ورحمة الله

فيه طريقة بس عيبها انه عند تغيير اللغة وانت في مربع النص يرجع لشكله الأساسي
هذا هو الكود
PHP كود :
Private Sub TextBox1_GotFocus(ByVal sender As ObjectByVal e As EventArgsHandles TextBox1.GotFocus
   CaretUpdate
()
End Sub

<Runtime.InteropServices.DllImport("user32.dll"SetLastError:=True)> _
Public Shared Function CreateCaret(ByVal hWnd As IntPtrByVal hBitmap As IntPtrByVal nWidth As IntegerByVal nHeight As Integer) As Boolean
End 
Function
<
Runtime.InteropServices.DllImport("user32.dll")> _
Public Shared Function ShowCaret(ByVal hWnd As IntPtr) As Boolean
End 
Function
Private 
Sub CaretUpdate()
   Using bmp As New Bitmap(8Me.TextBox1.ClientSize.Height)
       Dim g As Graphics Graphics.FromImage(bmp)
       g.Clear(Color.Black)
       g.FillRectangle(Brushes.White, New Rectangle(0, (Me.TextBox1.ClientSize.Height) - 182))
       CreateCaret(TextBox1.Handlebmp.GetHbitmap212)
       ShowCaret(TextBox1.Handle)
   End Using
End Sub 



RE: تغيير مؤشر الكتابة - صقر - 29-10-14

1- شكرا لتفاعلك معي .... وبارك الله فيك
---------------------
سأحوال ان اقوم بالتعديل عليه ، قد تنجح الفكرة ....