استفسار من اعضاء الفريق العربي

اقتباس

بعد ذلك غيرت الكلمة المكتوبة في تكست بوكس 1

و ضغت علي الزر

الواضح أن الزر يقوم بنسخ النص من تكست بوكس إلى المتغير one

وفي كل مرة تضغط فيها على الزر يقوم البرنامج بتفريغ محتويات المتغير one وملئها بما هو موجود لحظيا في تكست بوكس

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

عرف هذا المتغير في أعلى الكلاس

Dim x As New ListBox

في حدث الضغط على الزر أكتب الآتي

x.Items.Add(textbox1.text)

أنشئ زر آخر وفي حدث الضغط على الزر أكتب الآتي

dim i as integer=0

do while i < x.items.Count

msgbox (x.Items(i))

i+=1

loop

أنظر المثال المرفق

WindowsApplication1.rar

بسم الله الرحمن الرحيم

على حسب علمي هناك نوعين من المتغيرات متغيرات ذات قيمة Value Type والمتغيرات المرجعية .Reference Type Variables فالمتغير string من النوع المرجعي ويعني ذلك أنك عندما تعرف متغير

Dim Nam As String = "محمد "

Dim Name As String = Nam

كل المتغيرين يشيران إلى نفس المتغير المعرف "محمد" في الذاكرة

ممكن الاضافة على المتغير بالطريقة التالية

Dim Nam As String = "كلمة" & textbox1.text

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

بص يا أخى أنا فاهم قصدك

بص هتكتب الكود ده فى public Class Form1

Public Class Form1

Public X(20) As String

Public C As Integer = 0

والكود ده هتكون نتيجته إن البرنامج هيحجز متغير إسمه X

نوعه نصى وهيعمل منه 21 متغير فرعى مرقمين من أول 0 حتى 20

وطبعا حضرتك ممكن تغير رقم 20 وتحط الرقم اللى محتاجه لو عايز تعمل من

X

100متغير إكتب 100 فاهمنى ؟

وهتحجز متغير إسمه C

نوعه رقمى وخليه يساوى0

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

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

X(C) = TextBox1.Text

C = C + 1

End Sub

وده معناه

إن البرنامج هيخلى المتغير الفرعى اللى رقمه صفر من إكس

هيساوى القيمة الموجودة فى التكست بوكس

وبعدين هيزود قيمة الC

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

جرب الأكواد ورد عليا

ولو طلعت مش هى اللى تقصدها ياريت تكون إستافادت منها

وتكون معلومة جديدة وإضافة ليك

مع السلامة يا أخى