حلواني

الأمر shell يشغل الملفات التنفيذية فقط أي ذات الامتداد exe. ولتشغيل ملف غير تنفيذي كملف الباور بوينت لديك فعليك باستخدام الإجرائية التالية (API): أولا قم بتعريف الإجرائية في قسم التعريفات للفورم أو في موديول بالشكل التالي: Declare Function ShellExecute Lib "sh…

أما بالنسبة للسؤال لأول: If IsNull(rs![iD]) then 'Some Code... Else 'Some Code... End If [/Code2] أما بالنسبة لبقية الأسئلة فدعنا ننتظر الرد سويا(clock)

السلام عليكم أشغل برنامجي ليحصل على قيمة عرض الشاشة من الأمر Screen.Width لنقل أنه يعطي 9600 الآن أشغل لعبة ما (مثل Counter-Strike) -برنامجي لا يزال قيد التشغيل-، أغلق اللعبة وأعود للبرنامج للحصول على عرض الشاشة من جديد باستخدام التعليمة Screen.Width ليعطيني ق…

السلام عليكم حسب علمي حتى أكتب كود فيجول بيسيك أسبق الكود بعبارة code محاطة بأقواس متوسطة [] وفي نهاية الكود أغلقها بعبارة /code محاطة بأقواس [] أيضا، ولكن عندما أستعملها يظهر الكود على سطر واحد كما يلي: Dim a as String Dim i AS Integer, j AS Integer For i = 0…

آسف لكتابة الكود به>ه الطريقة ولكن أمر (code) لا يعمل بشكل صحيح Dim tempStr as String Dim i As Integer tempStr = Text1.Text For i = 0 to len(tempStr) List1.AddItem Mid(tempStr, 1) Next

باستخدام الدالة التالية Private Declare Function ShellExecuteEx Lib "shell32.dll" Alias "ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long وإليك وصلة لمثال عن استخدامها من موقع www.allapi.net http://www.allapi.net/apilist/example.php?...ample=ShowProps

أنا شخصيا أرسل القيم مرة واحدة وأفصل بينها بفاصل مثل ; مثلا لإرسال الأسم و العمر أكتب: winsck1.SendData TheName & ";" & TheAge وعند الطرف الآخر (الاستقبال) أكتب: Dim pos as Integer Dim DataResieved as String Dim S_Name AS String Dim S_Age as String pos = instr…

لا أعتقد ذلك فقد نصبت برنامجي على بعض الأجهزة بنضام Local و Enabled والمشكلة بقيت كما هي. أنا متأكد أن هذا الملف VBame.dll يأتي مع نسخة MS Office وهو ليس بحاجة إلى تسجيل فقط انسخه إلى مجلد النظام system لديك. أتمنى الفائدة للجميع (f)

السلام عليكم من المعروف أنه لجعل القوائم تظهر إلى اليمين وبتنسيق من اليمين إلى اليسار نضع خاصية RightToLeft للفورم إلى True وستظهر القائمة المستدعاة بتعليمة PopUpMenu أيضا من اليمين إلى اليسار ولكن عند جعل القائمة الرئيسية مخفية وبالتالي لن تظهر أي قائمة في ال…

السلام عليكم لقد وضعت موضوع (سؤال في هذا المنتدى) بعنوان "out of memory" طرحت فيه أن برنامجي يعطي رسالة الخطأ "Out of memory" في بعض الأجهزة، والآن قد وجدت السبب والحل ويا له من سبب، السبب هو خاصية RightToLeft في المنزلقة الشاقولية VScroll1 ولماذا على بعض الأج…

أما بالنسبة للمشكلة فقد وجدت السبب أخيرا ولم أصدق ما اكتشفت فالمشكلة كانت في شريط تمرير عمودي كان مضافا للفورم -هل تصدق- وحللت المشكلة بمجرد حذف هذا الشريط علما أنه لم يتم تغيير شيئ من خصائص الشريط ما عدا وضع خاصتي max و min إلى 0 يا إلهي... أمضيت لمعرفة سبب ا…

السلام عليكم لا أعتقد أن هذا هو السبب لأن البرنامج بسيط وصغير وهو عادي جدا لا يختلف عن أي برنامج آخر على كل أشكرك على ردك وسأرفق البرنامج كاملا مع هذا الرد (محذوفا منه الأصوات فقط من أجل توفير الحجم) لعل أحدا يستطيع مساعدتي في إيجاد المشكلة والحل

هذه تستخدم لإظهار الفورم والانتظار حتى إغلاقه، يظهر في المقدمة صحيح ولكن بالنسبة للفورم الذي وضع فيه أمر التحميل السابق وليس بالنسبة لنوافذ البرنامج الأخرى أو برامج أخرى.

السلام عليكم قمت بإنجاز برنامج صغير يقوم بالتحكم ببرنامج آخر موجود على جهاز آخر على الشبكة كان البرنامج يعمل بشكل جيد وبدون مشاكل ولكن فجأة بعد إجراء بعض التعديلات البسيطة والغير أساسية لم يعد البرنامج يعمل على جميع الأجهزة (على جهازي لا توجد أي مشكلة في تشغيل…

في قسم التعريفات: 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 Const HWND_TOPMOST = -1 Private Const HWND_N…

أعتقد أن السابق يفي بالغرض.

لإضافة الملف إلى البرنامج يجب تحميل التالي: Add-InAdd-In Manager...VB6 Resource Editor أو شيئ مماثل في الفجول بيسيك 5 ثم استخدامه لإضافة ملف الصوت تحت اسم WAVE وبرقم ما خاص لكل ملف صوت مثلا 101 - 102 - 103 ... ثم يتم حفظ الملف كملف REC والذي سيتم إضافته أوتامي…