a123

Private Sub Form_Load() Dim A As Double, B As String A = 123456789 B = " A B C D E F" MsgBox StrReverse(A & B & " ا ب ت ث ج ") End Sub الكود أعلاه يعكس ترتيب النصوص أو الأرقام فقط ضع النص أو الرقم أو المتغير بين القوسين من السطر التالي StrReverse()

من يجيب مشكورا

شكرا أخي [ راكان الحنيطي ] ما ذكرته لا يحقق ما أريد ، وإنما يستخرج الحد الأقصى لحجم المصفوفة ، وهناك أمر يقابله يستخرج الحد الأدنى لها ، جرب الكود التالي Private Sub Form_Load() Dim b As String, a() As String a = Split("aaaa-bbbb-cccc", "-") MsgBox LBound(a) &…

السلام عليكم ما هي الجملة التي تستخرج عدد أبعاد المصفوفة مثلا مصفوفة A لها بعدين ، ومصفوفة B لها ثلاثة أبعاد A(3,5) B(3,5,7)

واصل ، جزيت خيرا

واصل ، جزاك الله خيرا

[ مهند عبادي ] الشكر الجزيل الشكر الجزيل الشكر الجزيل طبعت على الفورم بدلا من الطابعة حيث لا توجد طابعة في جهازي الحالي [ PRINT MSFlexGrid1.Text, ] بدلا من [ Printer.Print MSFlexGrid1.Text, ] فتمت طباعة البيانات في أعمدة [ ممتاز ] أريد الآن رسم خطوط الشبكة أو …

شكرا يا majed123 ما زلت بحاجة إلى المساعدة

من يجيب ؟

السلام عليكم لدي MSFlexGrid1 يحتوي على بيانات أريد طباعتها على الورق من يساعدني مشكورا