سؤال في كود يقوم بحفظ الكمات المدخلة في التكست بوكس إلى النوت باد

اتمنى ان اجد إجابة لديكم لإستفساري ..

شكرا لكم ...

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

الاخ العزيز الموضوع سهل, صراحة انا لم اكن اعرف الاجابة قبل سؤالك)

الحل:

1- عندفتح الملف للكتابة يوجد باراميتر اختياري, اذا كان true, تصبح العملية اضافة للملف النصي, واذا كان false تكون العملية كتابة فوق ما موجود, والقيمة الافتراضية هي false.

2- لماذا تستعمل حلقة تكرار لتكتب حرف حرف تستطيع كتابة محتويات صندوق النصوص دفعة واحدة وكما في الكود التالي:

'Imports System.Data.OleDb
Public Class Form1

    '   Dim CON As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; data source=|datadirectory|\savewordapp.mdb")
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim reault = MsgBox("Are you sure you want to save this text?", MsgBoxStyle.YesNo, "Save")
        If reault = MsgBoxResult.Yes Then

            'Dim CMD As OleDbCommand
            'CMD = New OleDbCommand("INSERT INTO words ( NewWord  ) VALUES  ('" & TextBox1.Text & "')", CON)
            'CON.Open()
            'CMD.ExecuteNonQuery()
            'CON.Close()

            TextBox1.Focus()
            Dim myWriter As New System.IO.StreamWriter("savewordapp.txt", True)
            myWriter.WriteLine(TextBox1.Text)

            'For Each item As String In Me.TextBox1.Text
            'myWriter.WriteLine(item)
            'Next

            myWriter.Flush()
            myWriter.Close()
            myWriter.Dispose()
        Else
            Exit Sub
        End If
    End Sub

End Class

ارجو ان تكون اجابتي مفيدة لك

شكرا لك أخي الكريم ..

بالفعل حذفت حلقة التكرار

واشتغل الكود كما اريد ..

جزاك الله خير :)