منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف يمكن تثبيت رقم داخل مربع النص والنموذج فى وضع العرض

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

[attachment=12958]

لا اعرف اذا تفهمت سؤالك
لكن يمكنة استخدام خواص TextBox واستخدام خاصية Text وتقوم بنغير القيمة
اما اذا كنت تقصد الثوابت يمكن من خلال الكود

PHP كود :

     Const x As Integer = 3.14
      TextBox1.Text = x 

واذا اردت تغير قيمة ال TextBox يمكنك عمل متغر Boolean او عمل شرط True or False من خلال اداة اما CheckBox او متغير فى الكود

PHP كود :

Dim y As Boolean
        Dim z As Integer
        Const x As Integer = 3.14
        If y = True Then
            TextBox1.Text = x
        Else
            TextBox1.Text = z
        End If 

[attachment=12960]
شكرا اخي الفاضل علي ردك

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

وعدم مسح الرقم عند اغلاق النموذج او البرنامج ككل

السلام عليكم ورحمة الله وبركاتة
اذا كنت تريد ان يتم حفظ ما تكتبه داخل التكست بوكس حتى بعد اغلاق البرنامج واعادة فتحه فأليك الكود
أولاً : تذهب على خصائص المشروع وتذهب Settings
ثانياً: تضيف التالي كما بالصورة
Setting1
Setting2
Setting3
Setting4
[attachment=12966]

اضف الاكواد التالية في زر Button1

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ''(Settings)لحفظ ما بداخل التكست بوكس في 

        My.Settings.Setting1 = TextBox1.Text

        My.Settings.Setting2 = TextBox2.Text

        My.Settings.Setting3 = TextBox3.Text

        My.Settings.Setting4 = TextBox4.Text

        My.Settings.Save()

    End Sub

وفي حدث Form1_Load للفورم اضف الكود التالي

كود :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '' في التكست بوكس(Settings)لاستعراض ما بداخل 

        TextBox1.Text = My.Settings.Setting1

        TextBox2.Text = My.Settings.Setting2

        TextBox3.Text = My.Settings.Setting3

        TextBox4.Text = My.Settings.Setting4

    End Sub

تم ارفق المشروع لتجربه وفهم الكود بشكل صحيح وشكراً

شكرا اخي الفاضل

هو المطلوب

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

السيد الجوهري

كفاح

السيد الجوهري

m22sf

السيد الجوهري