boshkash

ويقوم الكود التالي أيضا بنفس العمل السابق 1.لإعادة تشغيل الكمبيوتر shell "RUNDLL.EXE user.exe,exitwindowsexec" 2.لإطفاء الكمبيوتر نهائياً shell "RUNDLL.EXE user.exe,exitwindows" 3. لتغيير المستخدم (لوغ اوف) "RUNDLL.EXE shell32.dll,SHExitWindowsEx 0"

شكرا gaf علي فكرة المشكلة في البحث في وضع العنوان المناسب

أجيبوني كيف اغير من دقة عرض الشاشة علي سبيل المثال إذا كانت 840*460 كيف أجعلها 800 * 600 وكيف أعرق الحالة الموجودة عليها الشاشة الأن

لا يمكن عرض أكثر من حقل واحد باستخدام هذه الادوات في الوقت الواحد ولكن يمكن تغيير الحقل باستخدام الكود DbCombo.listfield= "اسم الحقل" اسف إن قاطعت أحد

لا شكر علي واجب والكود الثاني أيضا رائع شكراgaf58

يقوم هذا الكود بغلق او اعدة تشغيل الجهاز Const EWX_SHUTDOWN = 1 Const EWX_REBOOT = 2 Const EWX_LOGOFF = 0 Const EWX_FORCE = 4 Private Declare Function ExitWindowsEx Lib "user32(ByVal uFlags As Long, _ ByVal dwReserved As Long) As Long الشفرة 'cmdRestart اصنع ز…

جرب اخي الكريم هذا الرايط http://www.vb4arab.com/vb/showthread.php?t=40134 فهو برنامج لاستخدام المودم

رائع Prof دائما لديك الحل

يقوم هذا الكود بغلق او اعدة تشغيل الجهاز Const EWX_SHUTDOWN = 1 Const EWX_REBOOT = 2 Const EWX_LOGOFF = 0 Const EWX_FORCE = 4 Private Declare Function ExitWindowsEx Lib "user32(ByVal uFlags As Long, _ ByVal dwReserved As Long) As Long الشفرة 'cmdRestart اصنع ز…

ويقوم هذا الكود برسم مستطيل خلف كل كائن لعمل ظل له Public Sub Shadow(f As Form, c As Control, clr As Long) 'This SubRoutine draws a shadow below and to the 'the right of a control.It's quite a simple exmpl 'of drawing in form ! 'Example : Shadow Me,Text1,vbBla…

يقوم هذا الكود بتحريك النافذة التي ليس لها شريط عنوان 'Write the code below to the forms mouse_down event: CurX = X CurY = Y 'Write this code below to the forms mouse_move event: If button = 1 then 'use mouse_left_button Me.move Me.left + (X - CurX), Me.top + …

وكود آخر لتنظيف كل text Boxs في النافذة Public Sub ClearTextBoxes(frmClearMe As Form) Dim txt As Control 'clear the text boxes For Each txt In frmClearMe If TypeOf txt Is TextBox Then txt.Text = "" Next End Sub

إضافة تأثير ثلاثي الأبعاد علي مكونات الفورم وعلي الفورم 'Form 3D objects code Copyright © 2003 Ahmad farag. 'All Rights Reserved. ahm_farag@hotmail.com ' First I need to thank the owner of the site for this service Sub PaintControl3D(frm As Form, Ctl As Contro…

رائع أخي HnHn سبقتني بالاجابة وذكرتني بها أرجو لك التوفيق

أنا أيضا لدي مجموعة من الكتب الخاصة بتعليم البرمجة باستخدام vb6 وعلي اتم استعداد لتحميلها ، كما لدي خبرة غير كبيرة ب web desgin واجيد بعض اللغات مثل html والتصميم باستخدام flash & front Page ولغات أخري