[ابو روضة]

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

اخوتى لدى 5 راديو بوتن  

1 لو متعلم عليه يكتب داخل التكست بوكس علامتى التنصيص ""

2 لو متعلم عليه يكتب داخل التكست بوكس الاقواس ()

وهذا فى باقى الراديو  هكذا

كود :

If RadioButton1.Checked Then
           TextBox1.Text = TextBox1.Text + """"""
       ElseIf RadioButton2.Checked Then
           TextBox1.Text = TextBox1.Text + "()"
       ElseIf RadioButton3.Checked Then
           TextBox1.Text = TextBox1.Text + "?"
       ElseIf RadioButton4.Checked Then
           TextBox1.Text = TextBox1.Text + "."
       ElseIf RadioButton5.Checked Then
           TextBox1.Text = TextBox1.Text + "،"
       ElseIf RadioButton6.Checked Then
           TextBox1.Text = TextBox1.Text + "-:"
       End If

لكن المشكلة أننى لو كتبت داخل التكست بوكس مثلا كلام كثيراً وحبيت مثلا 

أضع فاصلة من بين الكلمات فبتنزل فى أخر السطر يعنى بدلاً من أن تضع الفاصلة بين الكلمات 

التى حددتها يتم كتابتهم اسفل السطر..

وهذا هو المشروع مرفق

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي ابو روضة الكود الذي اورته ليس فيه اي مشكلة 
هو دوره اخذ مافي مربع النص ثم اضافة اي علامة تحددها من خلال الراديوبوتون واعادة وضعه في مربع النص والعلامة تكون بالاخير
الرجاء ايضاح الفكرة التي تريد تنفيذها 
هل تريد وانت تكتب في مربع النص اضافة هذه العلامات مكان المؤشر؟
يمكن ذللك مع كل الرموز المفردة ولكن الرمز المزدوج مثل () الاقواس لها يمين ويسار فيجب عندها ادراج راديو بوتون واجد لليمين وواحد لليسار
الموضوع اشبه بكيبورد خاص بهذه الرموز 
لو اوضحت الغاية والهدف من ماتريد ربما نجد لك طريقة افضل
دمت بخير
 

[ابو روضة]

إقتباس :لو اوضحت الغاية والهدف من ماتريد ربما نجد لك طريقة افضل
دمت بخير

أهلا بك أخى الكريم ابراهيم..

أريد حين الكتابة داخل التكست بوكس على سبيل المثال كلام هكذا

وجعلنا من الماء كل شيء حي.

وأردت مثلا وضع فاصلة بعد كلمة شيئ

يكون الناتج هكذا  

وجعلنا من الماء كل شيء , حي

وهكذا فى باقى العلامات والاقواس ,

يكون القوس أو علامة الاستفهام أو أو  بعد الكلمة مباشرة ليس بنهاية الكلام

[asemshahen5]

PHP كود :

   Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Clipboard.SetText("،")
        TextBox1.Paste()
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Clipboard.SetText(".")
        TextBox1.Paste()
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Clipboard.SetText("()")
        TextBox1.Paste()
    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Clipboard.SetText("-:")
        TextBox1.Paste()
    End Sub
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        Clipboard.SetText("""""")
        TextBox1.Paste()
    End Sub
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        Clipboard.SetText("?")
        TextBox1.Paste()
    End Sub 


[ابراهيم ايبو]

السلام عليكم اخي ابو روضة
تمام فهمت منك ماتريد الموضوع اشبه بكيبورد مصغر وهنا الراديو بوتون لاينفع
فمثلا كتبت كلمة ووضعت اخترت الراديو بون الذي فيه اشارة الفاصلة فم كتبت جملة اخرى وتريد كتابة الفاصلة مرة اخرى
هنا لايمكنك ادراج الفاصلة ستحتاج الى تغيير اختيار الراديو بوتو نو(بالتالي وضع اشارة اخرى لاتريدها )ليمكنك العودة الى الراديو بوتون الذي يدرج لك الفاصلة
الشيء الاخر وهو المهم عندما تكتب جملة وتضع اي اشارة هنا انت تخرج من التكست بوكس وللعودة الى وضع الكتابة مرة اخرى ستضطر لوضع الماوس في نهاية النص وهذا ايضا يمكننا حله ساعمل لك مثال وادرجه لكن بطريقتي انتظرني ياغالي

[ابو روضة]

(18-04-20, 11:56 PM)asemshahen5 كتب :

PHP كود :

   Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Clipboard.SetText("،")
        TextBox1.Paste()
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Clipboard.SetText(".")
        TextBox1.Paste()
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Clipboard.SetText("()")
        TextBox1.Paste()
    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Clipboard.SetText("-:")
        TextBox1.Paste()
    End Sub
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        Clipboard.SetText("""""")
        TextBox1.Paste()
    End Sub
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        Clipboard.SetText("?")
        TextBox1.Paste()
    End Sub 


الله يكرم أصلك أخى الكريم عاصم فعلا هذا ما أريده.

جزاك الله كل الخير والسعادة وراحة البال.

---

(18-04-20, 11:58 PM)ابراهيم ايبو كتب : السلام عليكم اخي ابو روضة
تمام فهمت منك ماتريد الموضوع اشبه بكيبورد مصغر وهنا الراديو بوتون لاينفع
فمثلا كتبت كلمة ووضعت اخترت الراديو بون الذي فيه اشارة الفاصلة فم كتبت جملة اخرى وتريد كتابة الفاصلة مرة اخرى
هنا لايمكنك ادراج الفاصلة ستحتاج الى تغيير اختيار الراديو بوتو نو(بالتالي وضع اشارة اخرى لاتريدها )ليمكنك العودة الى الراديو بوتون الذي يدرج لك الفاصلة
الشيء الاخر وهو المهم عندما تكتب جملة وتضع اي اشارة هنا انت تخرج من التكست بوكس وللعودة الى وضع الكتابة مرة اخرى ستضطر لوضع الماوس في نهاية النص وهذا ايضا يمكننا حله ساعمل لك مثال وادرجه لكن بطريقتي انتظرني ياغالي

الله يسعد قلبك أخى ابراهيم...

لا تتعب نفسك حبيب قلبى فالأستاذ عاصم حل الموضوع بفضل الله...

مقدر شهامتك أخى مع الجميع.

[asemshahen5]

تعديل بسيط بناءا عما قاله الاخ ابراهيم عن تحديد التكست بعدالضغط على الزر .

PHP كود :

   Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Clipboard.SetText("،")
        TextBox1.Paste()
        TextBox1.Focus()
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Clipboard.SetText(".")
        TextBox1.Paste()
        TextBox1.Focus()
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Clipboard.SetText("()")
        TextBox1.Paste()
        TextBox1.Focus()
    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Clipboard.SetText("-:")
        TextBox1.Paste()
        TextBox1.Focus()
    End Sub
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        Clipboard.SetText("""""")
        TextBox1.Paste()
        TextBox1.Focus()
    End Sub
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        Clipboard.SetText("?")
        TextBox1.Paste()
        TextBox1.Focus()
    End Sub 


---

الله يسلمك ويحفظك .

[سعود]

اخواني التركيز قبل اللصق الكود التالي معكوس

PHP كود :

TextBox1.Paste()
 TextBox1.Focus() 


يعني اجعل
Focus 
قبل
  Paste

[ابراهيم ايبو]

السلام عليكم اخي ابو روضة
الاخ الغالي عاصم جزاك الله عنا كل خير
مازالت هنا مشكلة لم تلحطها اخي ابو روضة وقد اشرت اليها في ردي وهي 
بعد اضافة العلامة ستضطر لوضع الماوس مرة اخرى في نهاية مربع النص لتتابع الكتابة
ولحل هذا الاشكال عدل كود الاخ عاصم الى التالي

كود :

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Clipboard.SetText("،")
       TextBox1.Paste()
       TextBox1.Select(TextBox1.TextLength, 0)
       TextBox1.Focus()
   End Sub

او يمكنك استخدام هذا الكود وهو مختصر سطر

كود :

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       TextBox1.Text = TextBox1.Text + "-: "
       TextBox1.Select(TextBox1.TextLength, 0)
       TextBox1.Focus()
   End Sub

اليك المثال

[سعود]

اخواني الكرام
ما رايكم بالكود التالي اليس يوفر؟:

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click
        TextBox1.AppendText(sender.text)
    End Sub 


كل الازرار يتم هندلتها مع اول زر