Abboodd

وعليكم السلام ورحمة الله يمكنك استعمال Method هي SetPosition لتحريكه إلى وقت محدد، وهو يقاس بالميلي ثانية، يعني 1/1000 بالثانية، فلتحركه إلى الدقيقة العشرين يمكنك مثلاً القيام بالتالي: انسخ الكود Dim A As Long A = 20 * 60 * 1000 RealPlayer1 . SetPosition A هنا…

معاملات And و Or المنطقية مفيدة جداً أثناء البرمجة، وهي تستخدم إما عند التعامل مع تحقق شرطين، أو أحياناً عند التعامل مع عدد ما بالطريقة الثنائية، بالنسبة لتحقق شرطين، فلنضرب مثلاً: انسخ الكود If Text1 = "5" And Text2 = "7" Then MsgBox "Hello" Else MsgBox "Bye"…

تفضل أخي في المثال المرفق، الدالة الأصلية أخذتها من هذا الرابط: /index.php?showtopic=76337 فقط عدلت عليها قليلاً لكي تأخذ الأرقام وتحولها إلى Asc وفقك الله From_Hex.rar ----------------------------- يبدو أني كررت الرد، لكن لم يكن موجوداً وأنا أكتب :)

جزاك الله خيراً، فكرتها جميلة، وفيها تطبيقات مفيدة :)

بالنسبة للسؤال الأول، فالأفضل أن تضع الشفرة في الحدث GotFocus وليس في Click فأنت لا تريد مسح النص في حال ضغط المستخدم على الكود لينسخه مثلاً، وإليك التالي: انسخ الكود Private Sub Text1_GotFocus ( ) Text1 . Text = "" End Sub هل هذا ما تريده؟

استعمال المصفوفات عادي، يمكن تعريف مصفوفة من 8 صفوف و6 أعمدة كالتالي: Dim A(7,5) As Integer هنا اعتبرنا أن المصفوفة من النوع Integer ، طبعاً وضعنا 7 بدل 8 ، و 5 بدل 6، لأن العد يبدأ من الصفر. إذا أردت استدعاء عنصر ما من المصفوفة يمكنك عمل التالي مثلاً: A(3,2) …

يمكنك استعمال الحدث KeyDown للـTextBox، إليك مثالاً يظهر نافذة عند ضغط F1 والذي رقمه على لوحة المفاتيح هو 112: انسخ الكود Private Sub Text1_KeyDown ( KeyCode As Integer , Shift As Integer ) If KeyCode = 112 Then Form2 . Show End Sub وفقك الله

الفكرتان جميلتان، أذكر أنهم أعطونا فكرة حساب معادلة من الدرجة الثانية على الVB في المدرسة.... لكنه كان فاشلاً جداً..... وفقك الله

بالنسبة للتعديل في Resource File برمجياً فهو غير ممكن، فقد أردت فعل هذا منذ فترة، وكانت نتيجة البحث أنه غير ممكن، والله أعلم. بالنسبة للحفظ في ملف نصي، راجع دروس التعامل مع الملفات وهي كثيرة، لعل أجملها درس الأخت (بنت اليمن) ابحث عنه في قسم الدروس والمواضيع ال…

جزاك الله خيراً

أخي أعد طرح موضوعك في القسم الذي ذكره الأخ تحدي في مشاركته في الأعلى. فهذا القسم لـVisual Basic 6 وما قبلها ، أي 98 وما قبل، أما 2008 فهو يدخل في بيئة .Net وفقك الله

أنت قل لي!!! :) تضعه في المكان الذي تريد القيام بالعملية فيه، كما يمكنك وضعه في Module وجعله عملياً أكثر كالتالي: انسخ الكود Public Sub UnloadForms ( ) Dim A As Form For Each A In Forms If A . Name <> MDIForm1 . Name Then Unload A Next End Sub وعند استدعائه هك…

فقط أضف التالي في الحدث DataArrival : انسخ الكود Select Case s Case "1" Command1 ( 0 ) . BackColor = vbRed End Select وهكذا بالنسبة لكل CommandButton وهذا طبعاً بعض أن تضبط خاصية Style له إلى 1-Graphical . وفقك الله

جزاك الله خيراً وتابع، لي عودة لأطلع على موضوعك بإذن الله :)

بصراحة كلامك غير واضح تماماً ، ولكن إذا كنت تريد إنهاء جميع الـForms باستثناء Form10 مثلاً وباستثناء MDIForm فيمكنك كتابة التالي: انسخ الكود Dim A As Form For Each A In Forms If A . Name <> MDIForm1 . Name Then Unload A Next Form10 . Show هل هذا ما تريده؟؟

هذا بريمج بسيط جداً يشرح طريقة فعل هذا، وهو يجعل البرنامج المتصفح الافتراضي للامتداد txt آلية عمله هي ضبط مفتاح في الريجيستري وهو: HKEY_CLASSES_ROOT\.txt واضبط القيمة Default إلى اسم برنامجك، انتبه الاسم وليس المسار لأنه سوف يوجه الويندوز نحو مفتاح يحمل اسم بر…

رسالة الخطأ تشير إلى أنك قد وصلت إما إلى نهاية قاعدة البيانات EOF أو إلى بدايتها BOF . طلب صغير، أرجو أن ترفع المشروع أو الجزء الذي فيه مشكلة ليتم التعديل عليه، لأني تعبان (مو جاي على بالي فكّر) :) وفقك الله

اجعل الأمر في الزر إغلاق لنافذة الحبث كالتالي: انسخ الكود Private Sub Command1_Click ( ) Unload Me Set tb1 = db1 . OpenRecordset ( "amployee" , dbOpenTable ) End Sub إن شاء الله

سهّل علينا قراءة هذا الكود كله، وأخبرنا في أي سطر يكون الخطأ؟ :)

فعلاً أنا آسف، يبدو أن هناك سؤء تفاهم حصل، حيث أن (محمد) هو (مدير)، و(محمد) آخر هو (مدبر) لذلك اختلطت علي المعلومات. :( بالنسبة للبحث بأي مدخل آخر فلا فرق، فقط عدل بما يناسبك. وفقك الله