الرئيسية | مركز الدعم | نبذة عنا | اتصل بنا | تابعنا على فيسبوك | English
YAZSYS.COM, Pos, Pop, Point Of Sale
منذ عام 2012 - 2019 عدد العملاء حتى الأن: 2768
تحميل نظام المبيعات  
 
كود فتح ملف نص TXT في اداة صندوق النص TextBox
  'Check if there's text added to the textbox
        If TextBox1.Modified Then
            'If the text of notepad changed, the program will ask the user if they want to save the changes
            Dim ask As MsgBoxResult
            ask = MsgBox("Do you want to save the changes", MsgBoxStyle.YesNoCancel, "Open Document")
            If ask = MsgBoxResult.No Then
                OpenFileDialog1.ShowDialog()
                TextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
            ElseIf ask = MsgBoxResult.Cancel Then
            ElseIf ask = MsgBoxResult.Yes Then
                SaveFileDialog1.ShowDialog()
                My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, False)
                TextBox1.Clear()
            End If
        Else
            'If textbox's text is still the same, notepad will show the OpenFileDialog
            OpenFileDialog1.ShowDialog()
            Try
                TextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
            Catch ex As Exception
            End Try
        End If
 
 

 
تحميل نظام المبيعات  
 
الصفحة الرئيسية
اتصل بنا
نبذة عن هذا الموقع
خارطة الموقع
مشاريع برمجة متنوعة مفتوحة المصدر
مواضيع ودروس تعليمية
 
 
نظام YAZ الجيل الثالث
مركز الدعم
تابعنا على فيسبوك
برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة خارطة الموقع
 
 
 
تحميل نظام المبيعات