منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > كتابة علامات التنصيص والاقواس
نسخة كاملة : كتابة علامات التنصيص والاقواس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

ابو روضة

18-04-20, 08:04 PM
السلام عليكم ورحمة الله وبركاتة.
اخوتى لدى 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


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

ابراهيم ايبو

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

ابو روضة

18-04-20, 11:40 PM
إقتباس :لو اوضحت الغاية والهدف من ماتريد ربما نجد لك طريقة افضل
دمت بخير
أهلا بك أخى الكريم ابراهيم..

أريد حين الكتابة داخل التكست بوكس على سبيل المثال كلام هكذا
وجعلنا من الماء كل شيء حي.
وأردت مثلا وضع فاصلة بعد كلمة شيئ
يكون الناتج هكذا  
وجعلنا من الماء كل شيء , حي
وهكذا فى باقى العلامات والاقواس ,
يكون القوس أو علامة الاستفهام أو أو  بعد الكلمة مباشرة ليس بنهاية الكلام

asemshahen5

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

ابو روضة

19-04-20, 12:00 AM
(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

19-04-20, 12:19 AM
تعديل بسيط بناءا عما قاله الاخ ابراهيم عن تحديد التكست بعدالضغط على الزر .

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 
الله يسلمك ويحفظك .

سعود

19-04-20, 12:24 AM
اخواني التركيز قبل اللصق الكود التالي معكوسSmile





PHP كود :
TextBox1.Paste()
 TextBox1.Focus() 
يعني اجعل
Focus 
قبل
  Paste

ابراهيم ايبو

19-04-20, 12:25 AM
السلام عليكم اخي ابو روضة
الاخ الغالي عاصم جزاك الله عنا كل خير
مازالت هنا مشكلة لم تلحطها اخي ابو روضة وقد اشرت اليها في ردي وهي 
بعد اضافة العلامة ستضطر لوضع الماوس مرة اخرى في نهاية مربع النص لتتابع الكتابة
ولحل هذا الاشكال عدل كود الاخ عاصم الى التالي
كود :
  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
اليك المثال

سعود

19-04-20, 12:37 AM
اخواني الكرام
ما رايكم بالكود التالي اليس يوفر؟:
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 
كل الازرار يتم هندلتها مع اول زرSmile
الصفحات : 1 2
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > كتابة علامات التنصيص والاقواس