مجموعة اكواد سهله وبسيطه ومهمه جدا لبرنامجك

[rain lover]

*************************************
كودان لمعالجة المشاكل :
On Error Resume Next
Kill "C:\Exmaple.bmp"
Or
On Error Goto Error
Kill "C:\Exmaple.bmp"
Error:
--------------------------------------------------------------------------------
كود التأكد من وجود ملف :
If Dir(myfilename, vbNormal or vbReadOnly or vbHidden or vbSystem or vbArchive) = "" then
Msgbox "الملف غير موجود"
Else
Msgbox "الملف موجود"
End If
---------------------------------------------------------------------------------
كود اخفاء مؤشر الفأرة في تطبيق الفيجول بيسك :
قسم التعاريف :
Private Declare Function ShowCursor Lib "user32" _
(ByVal bShow As Long) As Long
اخفاء :
x = ShowCursor(False)
اظهار :
x = ShowCursor(True)
--------------------------------------------------------------------------------
إنشاء مربع نص وقت تنفيذ البرنامج

Private Sub Form_Load()
Form1.Controls.Add "VB.textbox", "Textcreate", Form1
Form1!Textcreate.Visible = True
End Sub
---------------------------------------------------------------------------------
مسح ما يوجد داخل كل مربعات النص الموجودة على الفورم

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 ClearTextBoxes(Form1)
End Sub
---------------------------------------------------------------------------------
كود بسيط لالتقاط صورة للشاشة في الحافظة

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
keybd_event vbKeySnapshot, 0, 0, 0
DoEvents
End Sub
---------------------------------------------------------------------------------
تغيير خصائص ملف

Private Sub COMMAND1_CLICK()
SetAttr "C:\data.txt", vbHidden
SetAttr "C:\data.txt", vbReadOnly
SetAttr "C:\data.txt", vbArchive
End Sub
_______________________________________________________

إضافة حدث عند الضغط على زر الماوس الأيمن

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

IF BUTTON=2 THEN
"msgbox " welcome to egyptzoom

END IF
End Sub
_______________________________________________________
___
إبطال مفعول زر X في النافذة

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub
___________________________________________________________

فتح الفورم بشكل جميل
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

.width = (Screen.Width - .Width) / 2
.Top = (Screen.Height - .Height) / 2
End With
Next

End Sub
Private Sub Form_Load()
Explode Me
End Sub
-------------------------------------------------------------------------------------
سوف اقوم بوضع اكواد جديده بعد الرد والمتابعه ان شاء الله .
**************************************

[demoo]

بجد والله مجهود جميل جداً جداً جداً وربنا يوفقك ويجعلك من أحسن الناس ان شاء الله

[rain lover]

مشكور جدا على المرور الجميل ادمن

[ملك الرومانسيه]

ماشاء الله الله ينور عليك يا باشا والى الامام باستمرار ان شاء الله

[rain lover]

مشكور ملك الرومانسيه على المرو الكريم وبانتظار مشاركاتك القيمه ان شاء الله

[b00ny]

مشكوووور جداااااااا بس بليز بليز ممكن تاخدها معانا واحده واحده فى الفيجول بيزك
اشكرك

[rain lover]

مشكور خى الكريم على المرور الكريم وان شاء الله هنبدأ دوره الفيجوال بيسيك من الصفر

[Mona]

السلام عليكم ورحمه الله وبركاته
بارك الله فيك وجعله بميزان حسناتك