السلام عليكم ورحمه الله وبركاته
عندى كذا اسفسار عن كود يحفظ التكست بوكس فى ملف خارجى بصيغه تكست وكل ماكتب حاجه فى التكست بوكس ودوس حفظ يضيف السطر اللى كتبته فى التكست بوكس فى الملف الخارجى مع الاحتفاظ بالسطر المحفوظ فى التكست من غير مايمسح القديم ويحط الجديد
وكمان عايز اعمل زرار كل مادوس عليه كليك يغير الحدث ادوس تانى يغير الحدث مثلا يكتب نص فى التكست بوكس وكل مادوس كليك يغير النص اللى فى التكست بوكس زى مانا هارتبهم وكمان معلش كنت عايز اعرف ازاى لما ادوس مثلا على بوتين 1 يعمل بوتين 2 فى وضع كليك وهكذا ارجو الرد ضرورى للأهميه القصوى وجزاكم الله كل خير
وعليكم السلام ورحمة الله وبركاته
بخصوص تحرير ملف من نوع text وهو ملف Notepad
فالقي نظرة على هذا الموضوع السورس كود بالمرفق وظيفته
تحرير الملف للاضافة عليه والحذف
بخصوص فى كل مرة يتم تنفيذ كلك على زر يقوم بكتابة نص معين يتم ادخاله يدوياً
كل ما عليك اضافة هذا السطر خارج اى حدث
كود :
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