[سعود]

اسمحوا لي ان كان فهمي خاطيء لكن بحثت في النت عن فهمي للجزئية ووجدته بالسي شارب فحولته الى فيجوال بيسك لبساطته.
تحتاج textbox1 textbox2  وتعبيء الاولى باي شيء والكود التالي تكتبه بحدث النقر لزر الامر اللذي ستضيفه:

PHP كود :

       Dim index As Integer = TextBox1.SelectionStart
        Dim curentline As Integer = TextBox1.GetLineFromCharIndex(index)
        Dim curentcolumn As Integer = index - TextBox1.GetFirstCharIndexFromLine(curentline)
        TextBox2.Text = curentcolumn 


كما قلت ان لم يكن هو فمعذرة منكم جميعا.

---

او  كالتالي:

PHP كود :

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Dim index As Integer = TextBox1.SelectionStart
        Dim curentline As Integer = TextBox1.GetLineFromCharIndex(index)
        Dim curentcolumn As Integer = index - TextBox1.GetFirstCharIndexFromLine(curentline)
        lblpos.Text = curentcolumn
    End Sub 


lblpos
اداة Label