نجوم المشاركات

إخواني لو سمحتم أريد مساعدة في إضافه الكمية و الإجمالي في الفاتورة و البرنامج مرفق و فيه فاتورة واحدة فقط و لكم مني جزيل الشكر AmjMaint4.rar

أرجو برنامج لتحويل ملف PDF المكتوب باللغة العربية إلى ملف Word هام جداً جداً محتاجة فى الشغل من فضلكم وأرجو أن يكون برنامج جيد جداً لتحويل اللغة العربية بشكل سليم 100% هام مع السيريال والشرح المبسط لطريقة عمل البرنامج فى الإنتظار ........

الشكل الاول Private Sub CommandButton1_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationGetTechy End With End Sub الشكل الثاني Private Sub CommandButton2_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationCheckingSomething End With End Sub الشكل الثالث Private Sub CommandButton3_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationListensToComputer End With End Sub الشكل الرابع Private Sub CommandButton4_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationSearching End With End Sub الشكل الخامس Private Sub CommandButton5_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationThinking End With End Sub الشكل السادس Private Sub CommandButton6_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationWorkingAtSomething End With End Sub الشكل السابع Private Sub CommandButton7_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationWritingNotingSomething End With End Sub مع تحياتى & قنديل الصياد &