+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=23772)
كود / لو اردت ان اكتب على اداة القرايد ويظهر النص في تكست بوكس - nooralcown - 10-02-18
كيف ممكن ارجوا المساعده
RE: كود / لو اردت ان اكتب على اداة القرايد ويظهر النص في تكست بوكس - محمود صالح - 10-02-18
PHP كود :
Private Sub DGV1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV1.CellClick
TextBox1.Text = DGV1.CurrentCell.Value
End Sub
RE: كود / لو اردت ان اكتب على اداة القرايد ويظهر النص في تكست بوكس - nooralcown - 11-02-18
ليس هذا المطلوب
السطر غير متاح للكتابة لكنعندمااضغط على ايحرفاريده يظهر ضمن تكست بوكس
RE: كود / لو اردت ان اكتب على اداة القرايد ويظهر النص في تكست بوكس - nooralcown - 13-02-18
عموما وجدت الحل ووضعته للاستفادة ضمن حدثkeypress
كود :
Try
'هذا الكود للكتابة على داتاقرايد فيو ونقل الكتابة الى تكست بوسك
If e.KeyChar = vbBack Then ' MessageBox.Show("")
TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 1)
'If e.KeyChar = "" Then
' MessageBox.Show(e.KeyChar)
'Dim s As String = TextBox1.Text
's.Remove(TextBox1.Text, 1)
Else
TextBox1.Text = TextBox1.Text & e.KeyChar
End If
Catch ex As Exception
End Try