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

[تنبيه - عنوان غير مناسب : ]الله يرزقكم الجنه طريقه الحفظ المعلومات انقذوني فيها

مغلق
بدأه مايميزني لقب في 11 مايو 2007 · 2 رد · 510 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

lahdah-87ea0cd121.gif

عندي مجموعه من معلومات شخص وابغى احفظها اضع

هذا الكود

  Private Sub mnuCustomerAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCustomerAdd.Click

Dim MyCustomer As String

MyCustomer = txtNumber.Text & txtCity.Text & txtPhone.Text & txtAddress.Text &

With SaveFileDialog1

.DefaultExt = "txt"

.Filter = "Text Files (*.txt)|*.txt|All Files(*.*)|*.*"

.FilterIndex = 1

.Title = "Demo Save File Dialog"

End With

'Show the Save dialog and if the user click the add button ,Save the File

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

Dim FilePath As String

FilePath = System.IO.Path.Combine(-My.Computer.FileSystem.SpecialDirectories.MyDocuments, -"StrFileName.txt")

( My.Computer.FileSystem.WriteAllText(FilePath, MyCustomer, False

btnOrder.Enabled = True

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

وزر order ينقل للفور التي تليها بشر ط ان يكون حميع الخانات معبيه ولا اي واحد فاضي

انا كتبت هذا الكود بس ينتقل للفورم التي تليها دون التشيك ع الخانات فما الخطأ

Dim emptyboll As Boolean

Dim i As Integer

For i = 0 To MyText.Length - 1

If MyText(i).Text = "" Then

emptyboll = True

If emptyboll Then

MessageBox.Show("data not complite")

End If

Else

Form2.Show()

End If

Next

فما الخطا ارجو تصويبي والرد لذلك فانا بحاجه اليه

انا بانتظاركم

#2

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

------------------

أخي الكريم اليك هذه المقالات التي توضح لك ما تريده ... وأن تغلبت انا موجود ......وياريت في المرة القادمة ترسل لي الملف ...أفضل

الاول من موقع freeVbCoode

الثاني حفظ وأسترجاع البيانات من وإلى RichtextBox أضغط هنا

رَبِّ لَا تَذَرْنِي فَرْداً وَأَنتَ خَيْرُ الْوَارِثِينَ

#3

العنوان غير مناسب

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

قواعد المشاركة

/index.php?showtopic=29343

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

هذا الموضوع مغلق.

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…