اكواد فيجول بيزك

هذا كود للتأكد من وجود ملف ، فإذا كان موجوداً تظهر رسالة مكتوب فيها الرقم 1 أما إذا لم يكن موجوداً فتظهر لك رسالة مكتوب فيها الرقم 0



private Declare Function SHFileExists Lib "shell32" Alias "#45" (ByVal szPath As String) As Long
Private Sub Form_Load()
MsgBox Str$(SHFileExists("c:\autoexec.bat"))
End Sub
-------------------------------------------------------------
كود لتحويل ألوان الصور إلى الرمادي
أضف زر كوماند ومربع صورة واكتب في الكوماند الكود التالي
Picture1.ScaleMode = vbPixels
x = Picture1.ScaleWidth
y = Picture1.ScaleHeight
For i = 0 To y - 1
For j = 0 To x - 1
pixel = Picture1.Point(j, i)
red = pixel Mod 256
green = ((pixel And &HFF00) / 256) Mod 256
blue = (pixel And &HFF0000) / 65536
g = ((red * 30) + (green * 60) + (blue * 20)) / 100
Picture1.PSet (j, i), RGB(g, g, g)
Next
Next
Picture1.ScaleMode = vbTwips
-------------------------------------
هذا الكود لمعرفة هل أنت متصل بالإنترنت أم لا
ضع هذا في قم التصريحات General
Private Declare Function InternetGetConnectedState _
Lib "wininet.dll" (ByRef lpSFlags As Long, _
ByVal dwReserved As Long) As Long
Private Function Online() As Boolean
Online = InternetGetConnectedState(0&, 0&)
End Function
أضف زر كوماند واكتب الكود التالي
MsgBox Online()
تحياتي..
----------------------------------------------
لإلغاء تحميل فورم ما وليكن
Form2 إستعمل الكود
Unload Form2
--------------------------------
لتشغيل حدث معين عند الضغط على مفتاح Enter وليكن ظهور رسالة إكتب الكود التالي
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
MsgBox "Syphonfilter مع تحيات"
End If
End Sub
-------------------------------------
ما هو التصريح ؟
التصريح هو كلام تكتبه مع الكود من غير إحتسابه كود أي لا يتعامل معه فيجوال بيسيك ككود ولاكن كتصريح .
ماذا نستفيد من التصريح ؟
يمكنك من خلال التصريح توصيل معلومة أو ملاحظة للمستخدم البرنامج إذا كنت لم تحول البرنامج إلى إمتداد EXE
لوضع تصريح ما عليك إلا كتابة الرمز (') ثم كتابة الكلام الذي تريد .
تحياتي
---------------------------------------
هل تريد مسح الكتابة المحدد في اليست إذاً إكتب الكود
If List1.ListIndex > -1 Then
List1.RemoveItem List1.ListIndex
End If
تحياتي
--------------------------------------
هل تريد جعل الفورم في حجم واحد لا يتغير إستخدم الكود التالي
Private Sub Form_Resize()
Width = 3000
Height = 3000
End Sub
----------------------------------------
هل تريد حذف النص المحدد في ال TextBox إكتب الكود
Text1.Seltext = Clear
تحياتي
----------------------------------------
هل تريد تشغيل كود زر الأمر بمجرد الضغط على مفتاح Enter من لوحة المفاتيح ما عليك تحديد زر الأمر ومن ثم تغيير خاصية Default إلى True
تحياتي
-----------------------------------------
هل فكرة يوماً أن تغير لون زر الأمر Command ، تستطيع ذلك من خلال تغيير خاصية Style إلى 1 ثم اختيار اللون الذي تريد من خلال خاصية BackGround
تحياتي
-------------------------------------------------------
هل سمعة عن أداة ما ولم تجدها في صندوق الأدوات ، تستطيع إضافة الأداة التي تريد وذلك من خلال الضغط على Ctrl+t ثم اختيار الأدات التي ترد بوع علامة صح أمام الآدات ثم الضغط على Enter
تحياتي
------------------------------------------------------------
هل تريد فتح ملف نصي تلقائياً في برنامج ال Notepad أضف الكود التالي مع تغيير المسار إلى مسار الملف الذي تريد
Shell "notepad.exe" & " " & "C:\windows\desktop\books.txt", vbNormalFocus
تحياتي
---------------------------------------------
هل تريد عمل رقم سري لبرنامجك ؟ هذا الكود يمكنك من عمل ذلك ( كلمة السر هي فلسطين )
[a = InputBox("إدخل الرقم السري", "الرقم السري")
If a = "فلسطين" Then '
MsgBox "كلمة السر صحيحة"
Else
MsgBox "كلمة السر خاطئة"
End If
تحيات
-----------------------------------------------
هذا الكود لإظهار رسالة للمستخدم عند الضغط بزر الفأرة الأيمن
ضع الكود في حدث MouseMove
IF Button = 2 then
MsgBox "ممنوع الضغط بزر الفأرة الأيمن"
End if
------------------------------------------
إذا كنت تريد ظهور رسالة عند الضغط بزر الفأرة الأيسر إكتب الكود التالي في حدث MouseMove
IF Button = 1 then
MsgBox "ممنوع الضغط بزر الفأرة الأيسر"
End if
------------------------------------------
لإضافة النص من التسكت بوكس إلى اليست بوكس إتبع الآتي :
1- أضف زر Command .
2- أضف TextBox و ListBox .
3- إكتب الكود التالي في زر الأمر Command في حدث Click
List1.AddItem Text1.text
تحياتي
----------------------------------------
هل تريد عمل ساعة رقمية ؟؟ هذا الكود يمكنك من ذلك ؟!
إتبع الخطواة التالية :
1- أضف Timer إلى الفورم .
2- أضف Label إلى الفورم وامسح الكتابة الموجودة في خاصية Caption أي إجعله بدون إسم .
3- إجعل خاصية Enterval للتايمر بقيمة 100 .
4- أضف الكود التالي للتايمر :
Label1.Caption = Time
تحياتي
------------------------------------------
لجعل الخط في التكست بوكس غامق
Text1.FontBold = True
تحياتي
-----------------------------------
لجعل الخط مائل
Text1.FontItalic = True
لجعل خط تحت الكلمات في التكست بوكس
Text1.FontUnderline = True
تحياتي
------------------------------------
لتغيير لون الخط في التكست بوكس ما عليك إلا كتابة الكود
Text1.ForeColor = Color
مع تغيير كلمة Color إلى شفرة اللون الذي تريد
تحياتي..
---------------------------------------
هذا الكود يحول الحروف الإنجليزية لإحرف كبيرة
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr$(KeyAscii)))
End Sub
--------------------------------------------------------------------------------
هل تريد إدارج التاريخ في التكست بوكس ..إذاً إكتب الكود التالي
Text1.text = Date
--------------------------------------------------------------------------------
هذا الكود لإضافة الوقت للتكست بوكس
Text1.text = Time
--------------------------------------------------------------------------------
هذا الكود لإظهار رسالة للمستخدم
MsgBox "String", vbInformation, "Title"
حيث String تضع فيها جسم الرسالة من نوع بيانات String و vbInformation نوع الرسالة أي رسالة خطأ أو معلومات فهنا وضعت شكل رسالة معلومات تستطيع تبديلها لتكون vbyesno أي زر نعم أو لا
و ال Title هو العنوان
-----------------------------------------------------------------------------
هذا الكود لقلب الصورة بشكل عمودي
Picture2.PaintPicture Picture1.Picture, 0, 0, _
Picture1.Width, Picture1.Height, 0, Picture1.Height, _
Picture1.Width, -Picture1.Height, vbSrcCopy
--------------------------------------------------------------------------------
هذا الكود لمعرفة مجلد الملفات الؤقته
strTempDir = Environ$("temp")
MsgBox strTempDir
--------------------------------------------------------------------------------
هذا الكود لطباعة النص الموجود في التكست بوكس
Printer.Print Text1.Text
--------------------------------------------------------------------------------
هذا الكود لمعرفة عدد الأسطر في التكست بوكس
ضع هذا في قسم التصريحات General

code:--------------------------------------------------------------------------------
Private Declare Function SendMessageLong Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const EM_GETLINECOUNT = &HBA
--------------------------------------------------------------------------------
وهذا في زر Command مثلاً
Dim lineCount As Long
On Local Error Resume Next
lineCount = SendMessageLong(Text1.hwnd, EM_GETLINECOUNT, 0&, 0)
MsgBox Format$(lineCount, "##,###")
--------------------------------------------------------------------------------
هذا الكود لإبطال عمل مفاتيح Ctrl+Del+Shift
ضع هذا في قسم التصريحات General
Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
--------------------------------------------------------------------------------
لإبطال عمل المفاتيح
code:--------------------------------------------------------------------------------
Call DisableCtrlAltDelete(True)
--------------------------------------------------------------------------------
لإرجاعها

Call DisableCtrlAltDelete(False)
--------------------------------------------------------------------------------
ا الكود لمعرفة مجلد الويندوز
Dim winPath As String
winPath = Environ$("windir")
--------------------------------------------------------------------------------
هذا الكود لمنع إستخدام المسافة في صندوق النص
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
KeyAscii = 0
End If
End Sub
تستطيع منع مفتاح آخر من لوحة المفاتيح وذلك بتغيير القيمة 32 إلى قيمة المفتاح الذي تريد منعه
--------------------------------------------------------------------------------
هذا الكود للربط بين صندوق اليسة مع صندوق ليسة بوكس آخر
List2.ListIndex = List1.ListIndex
--------------------------------------------------------------------------------
هل تريد معرفة دقة الشاشة عندك ..ضع هذا الكود في Command
Dim intWidth As Integer
Dim intHeight As Integer
intWidth = Screen.Width \ Screen.TwipsPerPixelX
intHeight = Screen.Height \ Screen.TwipsPerPixelY
MsgBox "Screen Resolution:" + Str$(intWidth) + " x" + Str$(intHeight)