خارطة الموقع برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة الرئيسية من نحن اتصل بنا English
Yazsys.com
منذ عام 2012 - 2018
Skip Navigation Links
نظام إدارة المبيعات
|
تعليم & شروحاتExpand تعليم & شروحات
 
كود حفظ نص من TextBoxإلى ملف نصي TXT
بواسطة احمد عادل موسى
2014-12-20
  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
 
 
إعلان ... لأصحاب المتجار فقط - برنامج تنفيذي وليس سورس كود
تحميل برنامج مبيعات وجرد المستودعات

 
 
الصفحة الرئيسية
اتصل بنا
نبذة عن هذا الموقع
خارطة الموقع
مشاريع برمجة متنوعة مفتوحة المصدر
مواضيع ودروس تعليمية
 
 
نظام YAZSYS لإدارة المبيعات