1. الرئيسية
  2. الإحصائيات
  3. البحث
  4. جديد الدروس
  5. أخبر صديقك
  6. اتصل بنا

مدرسة هاني الطنبور » لغة الفيجوال بيسك visual basic » أكواد منوعة للمبرمجين الجزء الأول

 أكواد منوعة للمبرمجين الجزء الأول  أضيف في: 22/07/2010
طريقة جعل برنامجك فوق النوافذ الأخرى (دوماً في المقدمة)

إنسخ الشيفرة التالية إلى Module


CODE:
0001
0002
0003

Public Declare Function 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) As Long



ثم أضف الشيفرة التالية في حدث التحميل (Load) للفورم


CODE:
0001
0002
0003
0004
0005


Dim vWindowPos As Long
vWindowPos = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, 1 Or 2)



تحريك النافذة عند النقر والسحب فوق الفورم أو أي عنصر


1- أنشيء فورم وضع فيه أداة CommandButton .


2- أعلن عن المتغيرات التاليه في قسم General :

CODE:
0001
0002
0003

Dim vX, vY
Dim vM As Boolean


3- إكتب الشفره التاليه في حدث MouseDown للأداة Command1


CODE:
0001
0002
0003
0004

vX = X
vY = Y
vM = True


4- ثم أضف التالي في الحدث MouseMove للأداة Command1


CODE:
0001
0002
0003
0004
0005
0006
0007
0008
0009


Dim frmX, frmY
frmX = Form1.Left + (X - vX)
frmY = Form1.Top + (Y - vY)
If vM = True Then
Form1.Move frmX, frmY
End If



- أخيراً أضف الكود التالي للحدث MouseUp التابع للأداة Command1


CODE:
0001
0002

Vm = False


لاحظ أنه يمكنك تغيير موقع زر أوصورة بنفس الطريقة ولاكن أكتب إسم العنصر الذي تريد تحريكه بدلاً


من Form1

--------------------------------------------------------------------------------

تشغيل حافظة الشاشة

إصنع فورم وأضف إليه زر Command1


وإنسخ الكود التالي إلى كود الفورم دون النقر فوق الفورم مرتين أي في قسم General


CODE:
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013

Option Explicit
Private Const WM_SYSCOMMAND = &H112
Private Const SC_SCREENSAVE = &HF140&
Private Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
LaunchScreenSaver Me.hwnd
End Sub

Sub LaunchScreenSaver(pl_OwnerFormHwnd As Long)
Call SendMessage(pl_OwnerFormHwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
End Sub




--------------------------------------------------------------------------------

كود يعطيك معلومات عن محرك الأقراص . إسمه ' نظام ملفاته ' رقمه التسلسلي


أنسخ الأسطر التالية في قسم Module كما هي


CODE:
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021

Declare Function GetVolumeInformation Lib 'kernel32.dll' Alias _
'GetVolumeInformationA' (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long


Function GetDiskProperties(strDrive As String, DiskName As String, DiskSystemFiles As String, DiskSerialNumber As Long) As Long
Dim Res As Long
DiskName = String$(255, Chr$(0))
DiskSystemFiles = String$(255, Chr$(0))
Res = GetVolumeInformation(strDrive, DiskName, _
Len(DiskName), DiskSerialNumber, 0, 0, DiskSystemFiles, Len(DiskSystemFiles))
GetDiskProperties = Res
End Function




ثم أضف للفورم ثلاث زر Command1 و ثلاث خانات نص Text1 و Text2 و Text3 و قائمة


منسدلة Combo1

ثم أنسخ الكود التالي وأضفة للفورم ، ثم نفذ( F5 ) وآختر احد الأزارير .


CODE:
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023

Dim NamDisk As String, SysFile As String, SerNum As Long

Dim Drive As String

Private Sub Form_Load()

Combo1.AddItem 'A:'
Combo1.AddItem 'B:'
Combo1.AddItem 'C:'
Combo1.AddItem 'D:'
Combo1.AddItem 'E:'
Combo1.AddItem 'F:'

Combo1.ListIndex = 0

End Sub


Private Sub Command1_Click()

Drive = Combo1.Text

Re = GetDiskProperties(Drive, NamDisk, SysFile, SerNum)

Text1.Text = NamDisk
Text2.Text = SysFile
Text3.Text = SerNum

End Sub





نبض الفورم


1 - اصنع فورم Form1 وضع فيه زر أمر Command1 وأدات التوقيت Timer1 وإنسخ مايلي


الى الشيفرة


CODE:
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
Option Explicit
Private Declare Function FlashWindow Lib 'user32' (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private mb_Flashing As Boolean

Private Sub Command1_Click()

mb_Flashing = Not mb_Flashing
Timer1.Enabled = mb_Flashing

If mb_Flashing = False Then
Call FlashWindow(Me.hwnd, 0)
End If

End Sub

Private Sub Timer1_Timer()

Call FlashWindow(Me.hwnd, 1)

End Sub



طريقة تشغيل موقع ويب وبريد الكتروني من داخل برنامجك(هام)


ضع الشيفرة التالية في Module أي وحدة نمطية


CODE:
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
Option Explicit
' by kaled alzeeby alnamer soft

Public Const URL = 'http://www.kaled1.jeeran.com'
Public Const email = 'nemer_11@hotmail.com'
Public Declare Function ShellExecute Lib 'shell32.dll' Alias 'ShellExecuteA' (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1

Public Sub gotoweb()
Dim Success As Long

Success = ShellExecute(0&, vbNullString, URL, vbNullString, 'C:', SW_SHOWNORMAL)

End Sub

Public Sub sendemail()
Dim Success As Long

Success = ShellExecute(0&, vbNullString, 'mailto:' & email, vbNullString, 'C:', SW_SHOWNORMAL)

End Sub



اصنع فورم Form1 أضف اليه زرين Command1 _ Command2


أكتب في الأول الشيفرة التالية : gotoweb أكتب في الثاني الشيفرة التالية : sendemail



وبالتوفيق للجميع


الكاتب: admin انقر هنا لمراسلة admin أنقر هنا للإنتقال إلى موقع admin إضافة للمفضلة إضافة لمفضلة Google إضافة لمفضلة Delicious إضافة لمفضلة Digg إضافة لمفضلة Facebook
خيارات الدرس : ارسل الدرس لصديق ارسل الدرس لصديق  طباعة الدرس طباعة الدرس