تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعده
#1
Exclamation 
السلام عليكم ورحمه الله وبركاته

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: asemshahen5 , عبد العزيز البسكري
#3
الف الف شكر ياغالى على الشرح الممتاذ دا

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

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




كود :
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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو تعديل الكود بواستطة الاجراء المخزن new_programer 3 673 03-04-25, 02:44 PM
آخر رد: princelovelorn
  ارجو تعديل الكود جلب البيانات عن طريق اجراء مخزن - مرفق مثال new_programer 0 619 05-02-25, 01:51 AM
آخر رد: new_programer
  ارجو تقيم الكود المرفق - جلب اعلي رقم لتسلسل نصي للباركود new_programer 4 601 30-01-25, 08:26 AM
آخر رد: new_programer
  ارجو المساعدة في فك تسفير ملف xml mimomassa17 0 209 15-09-24, 03:23 PM
آخر رد: mimomassa17
  ارجو المساعدة في كود مقارنة عامود داخل الداتا جريد فيو alachk 11 1,068 11-08-24, 11:44 AM
آخر رد: alachk
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 517 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  ارجو الافادة للضرورة mohamed sabry 1 316 13-01-24, 03:37 AM
آخر رد: Taha Okla
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 1,185 09-01-24, 08:41 PM
آخر رد: new_programer
  اجو المساعده فى عمل تقرير خالد كامل1 3 619 24-12-23, 04:12 PM
آخر رد: خالد كامل1
  [سؤال] اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت nazarakrawi 8 4,456 21-08-23, 11:11 PM
آخر رد: mohamed Matrix

التنقل السريع :


يقوم بقرائة الموضوع: