[على زهران]

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

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

وكمان عايز اعمل زرار كل مادوس عليه كليك يغير الحدث ادوس تانى يغير الحدث  مثلا يكتب نص فى التكست بوكس وكل مادوس كليك يغير النص اللى فى التكست بوكس زى مانا هارتبهم وكمان معلش كنت عايز اعرف ازاى لما ادوس مثلا على بوتين 1 يعمل بوتين 2 فى وضع كليك وهكذا ارجو الرد ضرورى للأهميه القصوى وجزاكم الله كل خير

[elgokr]

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

بخصوص تحرير ملف من نوع text  وهو ملف Notepad

فالقي نظرة على هذا الموضوع السورس كود بالمرفق وظيفته

تحرير الملف للاضافة عليه والحذف

http://vb4arb.com/vb/showthread.php?tid=27942

بخصوص فى كل مرة يتم تنفيذ كلك على زر يقوم بكتابة نص معين يتم ادخاله يدوياً

كل ما عليك اضافة هذا السطر خارج اى حدث

كود :

   Private num As Integer = -1

من ثم قم باضافة هذا الكود داخل حدث الزر

كود :

       Dim str As String() = New String() {
           "النص الاول",
           "النص الثاني",
           "النص الثالث",
           "النص الرابع",
           "النص الخامس",
           "النص السادس",
           "النص السابع"
       }
       num = IIf(num >= str.Count - 1, 0, num + 1)
       TextBox1.Text = str(num)

يمكنك تعديل وتزويد النصوص كما تشاء فى str

ناتى تنفيذ كود زر الثاني بداخل زر الاول كل ما عليك هو استخدام هذا الكود

اليك احد الطرق التالية سيقوم بتنفيذ الامر

كود :

Button2_Click(sender, e)

أو

كود :

Button2.PerformClick()

تحياتى لك

وتمنياتى لك التوفيق

[على زهران]

الف الف شكر ياغالى على الشرح الممتاذ دا

---

معلش مافهمتش الموضوع اللى حضرتك ذكرته انما شرحك فهمته وطبقته الحمد لله 

برضو ماعرفتش اضيف فى التكست بوكس بيمسح ويبدل مكانه بتكست اخر انا جيبت الكود اللى فى برنامجى ارجو التعديل عليه من حضرتك لكى يضيف بدل عمليه الاستبدال اللى بتتم

كود :

Dim SB As New System.Text.StringBuilder

       SB.AppendLine("" & "")
       SB.AppendLine("" & TextBox1.Text & ":" & TextBox2.Text & "###" & TextBox3.Text & "###" & TextBox4.Text & "")
       SB.AppendLine("" & TextBox5.Text & ":" & TextBox6.Text & "###" & TextBox7.Text & "###" & TextBox8.Text & "")

     
       Dim R = GenerateRandomAlphanumeric(10)
       IO.File.CreateText(Application.StartupPath & "\XtreamUserInfo.src").Close()
       IO.File.WriteAllText(Application.StartupPath & "\XtreamUserInfo.src", SB.ToString, System.Text.Encoding.UTF8)
   End Sub
   Public Function GenerateRandomAlphanumeric(ByRef iLength As Integer) As String
       Dim rdm As New Random()
       Dim allowChrs() As Char = "abcdefghijklmnopqrstuvwxyz0123456789".ToCharArray()
       Dim sResult As String = ""

       For i As Integer = 0 To iLength - 1
           sResult += allowChrs(rdm.Next(5, allowChrs.Length))
       Next
       Return sResult
   End Function