منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود / لو اردت ان اكتب على اداة القرايد ويظهر النص في تكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 ObjectAs DataGridViewCellEventArgsHandles 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