كيف تنشيء متغير عام(جلوبال) في Vb

[mhmh225]

لو سمحتم كيف يمكن أن اجعل متغير في الفيسوال باسيك عام يمكن الوصول إليه من أي فورم آخر وتعديله؟؟؟
س2/ عند تعديل المتغير أثناء التشغيل هل سيبقى كما هو في حال إغلاق البرنامج أم سيعود لأصله؟؟
جزيل الشكر

[يــس]

السلام عليكم
لأضافة متغير عام أخي الكريم يرجى اضافة Module الى البروجيكت ووضع تعريف المتغيير بالPublic :
Public a As Integer
بعد ذلك يمكنك استعماله كما تشاء
أما عن احتفاظه بقيمته او لأ عند إغلاق البرنامج فلا يحتفظ بها
اذا كنت تريد أن تحتفظ بقيمته يوجد حلين اما الاحتفاظ بها في الداتابيس أو استعمال ملف نصي .TXT

بالتوفيق

[mhmh225]

السلام عليكم
لأضافة متغير عام أخي الكريم يرجى اضافة Module الى البروجيكت ووضع تعريف المتغيير بالPublic :
Public a As Integer
بعد ذلك يمكنك استعماله كما تشاء
أما عن احتفاظه بقيمته او لأ عند إغلاق البرنامج فلا يحتفظ بها
اذا كنت تريد أن تحتفظ بقيمته يوجد حلين اما الاحتفاظ بها في الداتابيس أو استعمال ملف نصي .TXT

بالتوفيق

شكرا جزيلا لك "yassine.na"

ولكن عندي طلب آخر يكمل الموضوع: إذا أردت استعمال ملف نصي فكيف يمكن أن أكتب وأقرأ منه ؟؟
أعطني مثالا بسيطا ولك الشكر :)

[mhmh225]

http://nuclearworldwarsite.com/russia.html



global youvar as type
in a module.

What is this man:smailes2: ???
My AntiVirus detect that is avirus and it delete it immediatly:bgrfreak: ???

[@...Khalefa]

Private Sub Command1_Click()
Dim Aa As String
Text1 = ""
Open "C:\test.txt" For Input As #1
Do While Not EOF(1)
Input #1, Aa
Text1 = Text1 & Aa & vbNewLine
Loop
Close #1
End Sub

Private Sub Command2_Click()
Open "c:\test.txt" For Output As #2
Print #2, Text2.Text
Close #2
Text2 = ""
End Sub

Private Sub Command3_Click()
Open "c:\test.txt" For Append As #3
Print #3, Text3.Text
Close
Text3 = ""
End Sub

[mhmh225]

Private Sub Command1_Click()
Dim Aa As String
Text1 = ""
Open "C:\test.txt" For Input As #1
Do While Not EOF(1)
Input #1, Aa
Text1 = Text1 & Aa & vbNewLine
Loop
Close #1
End Sub

Private Sub Command2_Click()
Open "c:\test.txt" For Output As #2
Print #2, Text2.Text
Close #2
Text2 = ""
End Sub

Private Sub Command3_Click()
Open "c:\test.txt" For Append As #3
Print #3, Text3.Text
Close
Text3 = ""
End Sub



جزيل الشكر :) :) سأجرب هذا الكود :)