YAZSYS.COM, Pos, Pop, Point Of Sale إعلان لاصحاب المتاجر ... تحميل افضل واسرع واسهل نظام مبيعات ونقاط البيع انقر هنا
مشاريع برمجة متنوعة مفتوحة المصدر | مواضيع ودروس تعليمية
 
Search in Google
كود البحث عن نص في TextBox
   Dim a As String
 
        Dim b As String
 
        a = InputBox("Enter text to be found")
 
        b = InStr(TextBox1.Text, a)
 
        If b Then
 
            TextBox1.Focus()
 
            TextBox1.SelectionStart = b - 1
 
            TextBox1.SelectionLength = Len(a)
 
        Else
 
            MsgBox("Text not found.")
 
        End If
 
 
 

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