YAZSYS.COM, Pos, Pop, Point Of Sale إعلان لاصحاب المتاجر ... تحميل افضل واسرع واسهل نظام مبيعات ونقاط البيع انقر هنا
مشاريع برمجة متنوعة مفتوحة المصدر | مواضيع ودروس تعليمية
 
Search in Google
كود حفظ نص من TextBoxإلى ملف نصي TXT
  SaveFileDialog1.ShowDialog()
 
        ' the application will check if the file is already exists, if exists, it will ask the user if they want to replace it
 
        If My.Computer.FileSystem.FileExists(SaveFileDialog1.FileName) Then
 
            Dim ask As MsgBoxResult
 
            ask = MsgBox("File already exists, would you like to replace it?", MsgBoxStyle.YesNo, "File Exists")
 
            'if the user decides not to replace the existing file
 
            If ask = MsgBoxResult.No Then
 
                SaveFileDialog1.ShowDialog()
 
                'if the user decides to replace the existing file
 
            ElseIf ask = MsgBoxResult.Yes Then
 
                My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, False)
 
            End If
 
            'if the file doesn't exist
 
        Else
            Try
                My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, False)
            Catch ex As Exception
 
            End Try
 
 
 
 
        End If
 
 

 
 
 
برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة خارطة الموقع