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

[مخالف]مساعده اذا ممكن

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

محتاجه أحد يشرحلي أكووووووااااااااااااااااااااااد مهمه لأن مناقشتي قربت

بليز وببدأ بعرض الكود

1) Dim filename As String

Dim result As DialogResult = SaveFileDialog1.ShowDialog()

SaveFileDialog1.CheckFileExists = False

If result = Windows.Forms.DialogResult.Cancel Then

Return

End If

filename = SaveFileDialog1.FileName

If filename = "" OrElse filename = Nothing Then

MessageBox.Show("invalid file name", "error", MessageBoxButtons.OK, MessageBoxIcon.Error)

Else

Dim stream As IO.StreamWriter

stream = New IO.StreamWriter(filename)

stream.Write(TextBox1.Text)

stream.Write(TextBox2.Text)

stream.Write(TextBox3.Text)

stream.Write(TextBox4.Text)

stream.Write(TextBox5.Text)

stream.Write(TextBox6.Text)

stream.Write(TextBox7.Text)

stream.Write(TextBox8.Text)

stream.Write(TextBox9.Text)

stream.Write(TextBox10.Text)

stream.Close()

End If

End Sub

وجزا الله خير من يساعدني

#2

الأخ الكريم/الأخت الكريمة

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

مرحباً بكم في منتدى الفريق العربي للبرمجة

تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات .

قواعد طرح المشاركات

/index.php?showtopic=29343

شاكرين لكم حُسن تعاونكم

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

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