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

مرحبا أخ رمضان

أنا سويت لك برنامج صغير تجده في المرفقات 

أرجو أن يعجبك . واعطني رأيك .

لم يفتح التطبيق ممكن وضع كامل الكود هنا ولا تغير اسم الادوات

تفضل الكود

لكن قبل تنفيذه يجب أن تنشئ 9 صناديق TextBox وتنشئ زر واحد Button

هذا تضعه في Form1_Load
وهذا تضعه في زر Button

(02-07-22, 03:13 PM)أبو خالد الشكري كتب : [ -> ]تفضل الكود

لكن قبل تنفيذه يجب أن تنشئ 9 صناديق TextBox وتنشئ زر واحد Button

هذا تضعه في Form1_Load

كود :

 
       Dim Text1 As String = GetSetting(Application.StartupPath, "Settings", "Text1") : TextBox1.Text = Text1
       Dim Text2 As String = GetSetting(Application.StartupPath, "Settings", "Text2") : TextBox2.Text = Text2
       Dim Text3 As String = GetSetting(Application.StartupPath, "Settings", "Text3") : TextBox3.Text = Text3
       Dim Text4 As String = GetSetting(Application.StartupPath, "Settings", "Text4") : TextBox4.Text = Text4
       Dim Text5 As String = GetSetting(Application.StartupPath, "Settings", "Text5") : TextBox5.Text = Text5
       Dim Text6 As String = GetSetting(Application.StartupPath, "Settings", "Text6") : TextBox6.Text = Text6
       Dim Text7 As String = GetSetting(Application.StartupPath, "Settings", "Text7") : TextBox7.Text = Text7
       Dim Text8 As String = GetSetting(Application.StartupPath, "Settings", "Text8") : TextBox8.Text = Text8
       Dim Text9 As String = GetSetting(Application.StartupPath, "Settings", "Text9") : TextBox9.Text = Text9

   

وهذا تضعه في زر Button

كود :

       SaveSetting(Application.StartupPath, "Settings", "Text1", Trim(TextBox1.Text))
       SaveSetting(Application.StartupPath, "Settings", "Text2", Trim(TextBox2.Text))
       SaveSetting(Application.StartupPath, "Settings", "Text3", Trim(TextBox3.Text))
       SaveSetting(Application.StartupPath, "Settings", "Text4", Trim(TextBox4.Text))
       SaveSetting(Application.StartupPath, "Settings", "Text5", Trim(TextBox5.Text))
       SaveSetting(Application.StartupPath, "Settings", "Text6", Trim(TextBox6.Text))
       SaveSetting(Application.StartupPath, "Settings", "Text7", Trim(TextBox7.Text))
       SaveSetting(Application.StartupPath, "Settings", "Text8", Trim(TextBox8.Text))
       SaveSetting(Application.StartupPath, "Settings", "Text9", Trim(TextBox9.Text))

       MsgBox("تم حفظ البيانات", MsgBoxStyle.Information, "حفظ")

عمل الكود الحمد لله 100%  جزاك الله كل خير

بس يوجد مشكلة في TextBox  كيف اكتب اكثر من سطر فيه

نفترض عندي TextBox وابغى اكتب فيه الثلاثه سطور بنفس الترتيب
بسم الله الرحمن الرحيم
اهلا اخي الكريم
اما بعد مع السلامه

غير خصائص جميع TextBox التسعة !
بحيث تجعل خاصية Multiline تساوي True



بعد ذلك يمكنك أن تغير حجم TextBox إلى الحجم الذي يناسبك
وذلك بالسحب من المربعات الصغيرة التي على حدود التكست بوكس



كما ينكنك ضبط خصائص حجم الخط
ولون الخط
ولون خلفية النص
وأن تجعله خط سميك 
وأيضا تحته خط 
وأيضا تضبط اسم الخط .... الخ

أظن (والله أعلم) أن البيانات يتم حفظها في الريجستري
ولهذا لن تستطيع نقلها إلى كمبيوتر آخر .

(03-07-22, 06:21 PM)أبو خالد الشكري كتب : [ -> ]أظن (والله أعلم) أن البيانات يتم حفظها في الريجستري
ولهذا لن تستطيع نقلها إلى كمبيوتر آخر .

لا اعتقد هذا السبب والدليل
قبل شوي بنفس الكمبيوتر اللي معمول فيه التطبيق انقل من مجلد إلى  مجلد آخر وتظهر نفس المشكلة

(03-07-22, 07:37 PM)رمضان محمد كتب : [ -> ]

(03-07-22, 06:21 PM)أبو خالد الشكري كتب : [ -> ]أظن (والله أعلم) أن البيانات يتم حفظها في الريجستري
ولهذا لن تستطيع نقلها إلى كمبيوتر آخر .

لا اعتقد هذا السبب والدليل
قبل شوي بنفس الكمبيوتر اللي معمول فيه التطبيق انقل من مجلد إلى  مجلد آخر وتظهر نفس المشكلة