الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية حفظ محتوى textbox بدون انشاء ملفات نصية.

بدأه adam master في 12 أغسطس 2011 · 5 رد · 1,023 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ...

سؤالي هو كيفية حفظ محتويات textbox دون استخدام قاعدة بيانات او ملفات نصية ...

مثلا اذا تم كتابة كلمة "ADAM" في الtextbox1 اريد كود يقوم بحفظ هذه الكتابة اي عندما اغلق او افتح البرنامج تبقي هذه الكتابة كما هي في الTextBox1

تحياتي لكم.

***ملاحظة : انا استعمل visual basic .NET 2005 ***

تم تعديل هذه المشاركة بواسطة adam master في 12 أغسطس 2011 في 10:34

#2

السلام عليكم

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

وهذا مثال على ذلك

http://www.4shared.com/file/LI1oAk3B/Save_Setting.html

منحة للخريجين وطلاب الجامعات و المعاهد

دبلومة لتخريج مبرمج متخصص في هندسة صناعة البرمجيات وتصميم وبرمجة تطبيقات الأنترنت

سبحان الله وبحمده سبحان الله العظيم

#3

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

اخي قم بكتابة الكود التالي في حدث الـ Form_Closing

Dim sw As New StreamWriter("Data.txt")
sw.WriteLine(txtName.Text)
sw.Close()

والكود التالي في حدث الـ Form_Load

Dim sr As New StreamReader("Data.txt")
txtName.Text=sr.ReadToEnd()
sr.Close()

.:: Wish to become better and better ::.

#4

اخي Mady-AGC شكرا على مساعدتك و لكني لا اريد اضافة معلومات الى الريجيستري..

اخي VB helper في المثال تم انشاء ملف نصي و لكن انا اريد ان يتم حفظ المحتوى بدون ملف نصي

شكرا على مساعدتكم اخواني و شكرا خاص ل VB Helper لمساعداته الدائمة

#5

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

اخي لم توضح في سؤالك انك لاتريد استخدام الملفات؟!! فيمكنك استخدام الريجستر كما اشار الاخ سابقا او ملف الاعدادات ... الخ

.:: Wish to become better and better ::.

#6

@الأخ Mady-AGC

هذا قسم VB.NET وليس VB6

المشروع الذى أرفقته هو مشروع VB6

@الأخ آدم:

الحل باستخدام الريجيسترى كما أشار الإخوة

Imports Microsoft.Win32

Public Class Form1

    Dim key As RegistryKey

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        key.SetValue("TestValue", TextBox1.Text, RegistryValueKind.String)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        key = Registry.CurrentUser.CreateSubKey("Software\TestApp")
        TextBox1.Text = key.GetValue("TestValue", "")
    End Sub
End Class

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

feed.1.gif

مواضيع مشابهة