اسمحوا لي ان كان فهمي خاطيء لكن بحثت في النت عن فهمي للجزئية ووجدته بالسي شارب فحولته الى فيجوال بيسك لبساطته.
تحتاج textbox1 textbox2 وتعبيء الاولى باي شيء والكود التالي تكتبه بحدث النقر لزر الامر اللذي ستضيفه:
كما قلت ان لم يكن هو فمعذرة منكم جميعا.
او كالتالي:
lblpos
اداة Label
تحتاج 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
اداة Label
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير

