عبد الله فتحي

راجع موضوعي (أكواد للمبتدئين) ستجد طريقة التحكم في رفع وخفض الصوت ... وإليك تحياتي

غريبة :confused: بصراحة ما أقدر أحكم على المشكلة نظرياً دون أن أعاينها ... لكن أعتقد أنها مشكلة بسيطة فقط راجع الأمور مرة أخرى وتأكد من كل شيء ... وبالتوفيق(f)

أهلاً بك أبو صقر ... وإن شاء الله من الموفقين.. وإن كان هناك نصيحة فلن تكون أكثر من أن تكون صبوراً، حيث كما تعلم أن تعلم أي لغة يحتاج إلى المزيد من الوقت والجهد ... وإليك تحياتي (f)

هل تقصد من ناحية تصميم الواجهة ... أم ماذا بالضبط :confused:

أخي العزيز طلال بالنسبة لحل مشكلتك فليس صعباً ،،، بل هو سهل فبإمكانك تحديد مسار الملف بواسطة الدالة App.path وربما تكون أخطأت في استخدامها ،،، كما أنه يوجد هناك أيضاً طرق أخرى لمعرفة مسار السيدي روم ،، جرب مرة أخرى ... وإذا احتجت المساعدة فأنا مستعد ... وإليك …

أخي (f) محمد بدوي (f) المنافسة الشريفة هي أساس النجاح :) ولم يكن هناك داع لهذا ... أرجو إنك ما تزعل (f) من حقي أن أقول رأيي .. وأنا لا أقوله إلا من واقع حبي لك ... وإليك تحياتي ...

أخي العزيز سمير ... الخطأ رقم 13 يظهر عند حدوث تعارض في نوعية البيانات ،، على سبيل المثال لو قمنا بتعريف متغير على أنه رقمي Integer أو Long ، فلو حاولنا وضع نص فيه سيظهر الخطأ 13 ،،، ويمكن أن يحدث ذلك في الجداول حين تتعارض نوعية بيانات الحقول ... تأكد من ذلك و…

:D:D:D:D انظر إلى الرابط أخي عرفة :eek: :P :mad:

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

أهلا بك أخي alroqy :) سأجرب البرنامج وأعطيك رأيي لاحقاً ... وإليك تحياتي (f)(f)

جزاك الله كل خير(f)(f)

بعد التحية أخي مختار، راجع موضوعي (أكواد للمبتدئين) صفحة سبعة الكود رقم 52 ربما يكون هو المطلوب ولك تحياتي....

وأنا موجود هنا وهناك;)

الله يكسر من أمثاله:P

أنت الأروع Bibo2002 ... وبالتوفيق للجميع :)

الكود الثامن بعد المائة لإنشاء مربع نص وقت تنفيذ البرنامج. Private Sub Form_Load() Form1.Controls.Add "VB.textbox", "Textcreate", Form1 Form1!Textcreate.Visible = True End Sub

(f)الكود السابع بعد المائة(f) لمسح ما يوجد داخل كل مربعات النص الموجودة على الفورم. Public Sub ClearTextBoxes(frm As Form) Dim c As Control For Each c In frm If TypeOf c Is TextBox Then c.Text = "" Next c End Sub Private Sub Command1_Click() Call ClearTextBoxe…

(f)الكود السادس بعد المائة(f) لصنع فجوة داخل الفورم (دائرة - مربع - مستطيل). Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long Private De…

(f)الكود الخامس بعد المائة(f) لرسم دوائر ملونة رائعة جداً باستخدام الماوس. Private Sub Command1_Click() Form1.Cls End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim i As Integer i = Rnd * 15 If Button = 1 Then…

(f)الكود الرابع بعد المائة(f) كود بسيط لجعل الفورم في المقدمة. Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) Private…