فوائد متنوعة لكافة مبرمجي الفيجوال بيسك (1)

[بومبه]

طريقة جعل برنامجك فوق النوافذ الأخرى (دوماً في المقدمة)
إنسخ الشيفرة التالية إلى Module

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) للفورم

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


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



تحريك النافذة عند النقر والسحب فوق الفورم أو أي عنصر
1- أنشيء فورم وضع فيه أداة CommandButton .
2- أعلن عن المتغيرات التاليه في قسم General :

Dim vX, vY
Dim vM As Boolean

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

vX = X
vY = Y
vM = True

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

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

Vm = False

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

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

تشغيل حافظة الشاشة
إصنع فورم وأضف إليه زر Command1

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

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 كما هي



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 ) وآختر احد الأزارير .


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 وإنسخ مايلي الى الشيفرة


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 أي وحدة نمطية



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
CTRL+ALT+DEL كيفية ابطال عمل مفاتيح

ويهدف هذا الإجراء إلى منع المستخدم من إغلاق برنامجك أثناء التنفيذ حيث أن الضغط على هذه المفاتيح يمكنه من إنهاء البرنامج أو إنهاء ويندوز بكاملها

ويتم ذلك باستخدام الأسطر التالية

Declarations ضع التعريفين التاليين في قسم التعريفات

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
لإبطال عمل المفاتيح ضع السطر التالي في المكان المناسب

Call DisableCtrlAltDelete(True)

لإعادة عمل المفاتيح ضع السطر التالي في المكان المناسب

Call DisableCtrlAltDelete(False)

هـل الملف موجود أم لا ؟

قد يحتاج برنامجك في بعض الأحيان أن يعرف عن أحد الملفات كونه موجوداً على القرص أم لا ، يمكن عمل ذلك باستخدام الأسطر التالية :

If Dir(myfilename, vbNormal or vbReadOnly or vbHidden or vbSystem or vbArchive) = "" then
Msgbox "الملف غير موجود"
Else
Msgbox "الملف موجود"
End If

عدل السطور السابقة حسب احتياج برنامجك

[CODE] تخصيص مفتاح HotKey لصندوق نص

[بومبه]

تابع
يمكنك تخصيص مفتاح ساخن HotKey لصندوق نص TextBox بالطريقة التالية : أنشيء أداة من نوع Label و ضع لها المفتاح الساخن الذي تريده لصندوق النص ثم عدل خاصية TabIndex لها لتكون أقل بواحد من قيمة نفس الخاصية في صندوق النص ( مثال : إذا كانت قيمة TabIndex لصندوق النص هي 4 فاجعل قيمتها للأداة من نوع Label الرقم 3 )
[/CODE]

كيف تجعل النص يظهر بشكل عمودي في الأداة Label
يمكن عمل ذلك باستخدام الرمز vbCrLf ، حيث يوضع بعد كل حرف في محتوى الأداة Label كما يلي :

Private Sub Form_Activate()
Dim s As String
For i = 1 To Len(Label1)
s = s & Mid$(Label1, i, 1) & vbCrLf
Next
Label1 = s
End Sub

كيفية إغلاق ويندوز من داخل البرنامج أو إعادة تشغيل ويندوز

قد تحتاج في بعض البرامج أن تقوم بإعادة تشغيل ويندوز بعد قيام المستخدم بتعديل بعض الخيارات أو لدواع أمنية أو غير ذلك

لعمل ذلك ألصق الأسطر التالية في قسم التعريفات من برنامجك

Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Declare Function ExitWindowsEx Lib "user32" Alias _
"ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved _
As Long) As Long

وفي المكان المناسب ، ضع السطر التالي و الذي يقوم بإغلاق ويندوز

t& = ExitWindowsEx(EWX_REBOOT, 0)

EWX_REBOOT و يلاحظ أنه يمكن وضع أي من المتغيرات الموجودة أعلاه بدلاً من




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

تحديد النص في صندوق النص ذاتياً عند الضغط على زر مثلاً

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

Text1.SelStart = 0
Text1.SelLength = Len(Text1)

Text1.SetFocus



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

إخفاء مؤشر الفأرة في تطبيق فيجوال بيسك

تستطيع إخفاء مؤشر الفأرة في موضع معين من برنامجك باستخدام الدالة ShowCursor و التي يتم تعريفها في قسم التعريفات أعلى البرنامج لأنها من دوال واجهة برمجة التطبيقات API على النحو التالي :

Private Declare Function ShowCursor Lib "user32" _
(ByVal bShow As Long) As Long



ومن ثم تستطيع اخفاء المؤشر بتنفيذ الدالة بالشكل التالي

x = ShowCursor(False)

و تستطيع إعادة إظهار المؤشر بتنفيذ الدالة بالشكل التالي

x = ShowCursor(True)


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

هل يحتوي مشغل الأقراص المدمجة على قرص أم لا ؟؟
تستطيع من خلال إضافة السطور التالية إلى برنامجك تحديد ما إذا كان مشغل الأقراص المدمجة يحتوي على قرص أم لا

Dim FSO As FileSystemObject
Dim aDrive As Drive
Set FSO = New FileSystemObject
For Each aDrive In FSO.Drives
If aDrive.DriveType = CDRom And aDrive.IsReady = False Then
MsgBox "لا يوجد قرص في المشغل"
Exit For
ElseIf aDrive.DriveType = CDRom Then
MsgBox aDrive.VolumeName
Exit For
End If
Next
Set FSO = Nothing



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

تحديد ما إذا كان تاريخان في نفس الشهر أم لا
تستطيع أن تحدد في برنامجك ما إذا كان تاريخان مدخلان يقعان في نفس الشهر أم لا باستخدام الدالة DateDiff
المثال التالي يوضح كيفية ذلك

Date1 = "01/02/1999"

Date2 = "15/02/1999"

If DateDiff("m", Date1, Date2) Then
MsgBox "التاريخان في شهرين مختلفين"
Else
MsgBox "التاريخان في نفس الشهر"
End If



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

تحديد دقة عرض الشاشة في جهاز المستخدم
تستطيع من خلال أسطر بسيطة تضيفها إلى برنامجك أن تحدد دقة عرض الشاشة في جهاز المستخدم وذلك كما يلي

Dim x,y As Integer
x = Screen.Width / 15
y = Screen.Height / 15
If x = 640 And y = 480 Then MsgBox ("640 * 480")
If x = 800 And y = 600 Then MsgBox ("800 * 600")
If x = 1024 And y = 768 Then MsgBox ("1024 * 768")
جعل البرنامج يتوقف عن الإستجابة لفترة معينة

إنسخ السطر التالي إلى قسم التصريحات General

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

أكتب مايلي في Command1

Sleep 3000

يمكنك تغيير القيمة 3000 وهي جزء من الثانية


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

طريق هز الفورم:

أضف الكود التالي في قسم التصريحات General


Const FLASHW_STOP = 0
Const FLASHW_CAPTION = &H1
Const FLASHW_TRAY = &H2
Const FLASHW_ALL = (FLASHW_CAPTION Or FLASHW_TRAY)
Const FLASHW_TIMER = &H4
Const FLASHW_TIMERNOFG = &HC
Private Type FLASHWINFO
cbSize As Long
hwnd As Long
dwFlags As Long
uCount As Long
dwTimeout As Long
End Type
Private Declare Function FlashWindowEx Lib "user32" (pfwi As FLASHWINFO) As Boolean

أضف الكود التالي إلى حدث Load للفورم


Dim FlashInfo As FLASHWINFO

FlashInfo.cbSize = Len(FlashInfo)

FlashInfo.dwFlags = FLASHW_ALL Or FLASHW_TIMER

FlashInfo.dwTimeout = 0

FlashInfo.hwnd = Me.hwnd

FlashInfo.uCount = 0
FlashWindowEx FlashInfo

أضف أداة التوقيت Timer وغير خاصية Interval إلى 50 مثلاً وأكتب الكود التالي:

Me.Visible = Not Me.Visible




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

ظهور رسالة MsgBox في وقت معين:

أضف زر أمر Command1

ضع الكود التالي في قسم التصريحات General:

Public Sub Delay(HowLong As Date)
TempTime = DateAdd("s", HowLong, Now)
While TempTime > Now
DoEvents
Wend
End Sub

ضع السطر التالي في الزر أو في أي مكان أخر


Delay 5
MsgBox " خالد الزعبي", vbExclamation, " النمر"

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

تلاشي أداة النصوص Label
أضف إلى الفورم Label1 وTimer1 وغير خاصية Interval إلى 50 مثلاً

أضف الكود اتالي إلى قسم التصريحات General:

Dim a As Integer
Dim b As Boolean

أضف الكود التالي إلى التايمر

If a > 455 Then b = True
If a < 10 Then b = False
If b Then a = a - 10 Else a = a + 10
Label1.ForeColor = RGB(a, a, a)

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

إخراج وإدخال السواقة الليزرية
أضف زرين Command و وحدة نمطية Module

إنسخ الأسطر التالية إلى المديول:

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

ضع هذه التصريحات في قسم General

Dim lngReturn As Long
Dim strReturn As Long

لفتح السواقة ضع هذا الكود في الزر الأول


lngReturn = mciSendString("set CDAudio door open", strReturn, 127, 0)

ضع هذا الكود في الزر الثاني للإغلاق:


lngReturn = mciSendString("set CDAudio door closed", strReturn, 127, 0)

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

تدرج اللون لصندوق الصورة Picture
أضف Picture1 و زر أمر Command1

إنسخ الكود التالي إلى زر الأمر Command1

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

[ROSE]

رائع ماشاء الله عليك

يزاك الله كل خير

[الملك]

كلام كبير

[بومبه]

رائع ماشاء الله عليك

يزاك الله كل خير
اجمعين يا UAE_ROSE

[بومبه]

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

[ضحاياالحب]

لقد تعرفنا في الدرس السابق على طريقة فتح الفيجوال بيسك و على بعض الاساسيات وسنتعرف اليوم على شئ جديد يعرف بمتصفح التطبيقات, فماذا تنتظر فلنبدا....
http://www.c4arab.com/images/lessons/programming/visualbasic/1164/image005.gif
في الشكل بالاسفل نشاهد نافذة Project Explorer
http://www.c4arab.com/images/lessons/programming/visualbasic/1164/image006.gif
في متصفح التطبيقات يستعمل الترتيب المتفرع و لفتح الملفات
1-عند الضغط على اشارة (+) بجانب الملف ستخرج لك الملفات التي بداخلها و تتحول الاشارة من موجب الى سالب و عند الضغط على اشارة(–)سوف تختفي الملفات الداخلية وتتحول الاشارة من سالب الى موجب
2-الضغط مرتان متتاليتان على الملف لفتح ما بداخله
س- ما فائدة هذه النافذة اثناء عملي؟
ج- هذه النافذة تساعدك في عرض محتويات الملف الذي تعمل عليه و فائدتها الكبرى عند العمل على اكثر من form واحد
ملاحظة: ستلاحظ وجود ثلاث ازرار في النافذة عند تاشير الزر ستلاحظ ظهور كتابة.
http://www.c4arab.com/images/lessons/programming/visualbasic/1164/image007.gif
1 - سنبدا من اليمين الى اليسار بشرحهاتقوم باظهار جميع الملفات الموجودة في التطبيق و التجربة ستوضح الامر اكثر ومعناها في الانجليزي Toggle folders button
2- بالنسبة للزر الثاني view object button فهو سوف يظهر باذن الله الازرار التي من الممكن استعمالها في Tool bar و سيغير لونها من الرصاصي الى لون اخر و لكي تحصل على هذه النتيجة اضغط على form 1 في متصفح التطبيقات (اخر ملف) ضغطة و احدة لتظليله ثم اضغط على الزر
http://www.c4arab.com/images/lessons/programming/visualbasic/1164/image008.gifالذي نقوم يشرحه و راقب ما يحدث في toolbar وعليك الدقة و السرعة في النظر, ستلاحظ تغير لون بعض الازرار من الرصاصي الى لونها الطبيعي
ملاحظة مهمة: الزر ذو اللون الرصاصي لن يعمل عند الضغط عليه و هذه امثلة لبعض الازرار الرصاصية اللون
http://www.c4arab.com/images/lessons/programming/visualbasic/1164/image009.gif
3- الزر الثالث هو من اهم الاكواد وهو يعرض الكود الكلي الخاص بالتطبيق view code button اضغط عليه و ستخرج الشاشة التالية ان شاء الله
http://www.c4arab.com/images/lessons/programming/visualbasic/1164/image010.gif
ملاحظة: قد تكون الصفحة الخاصة بالكود لديك فارغة لعدم وجود برمجة في ال form
اخفاء و تحريك و تغيير حجم متصفح التطبيقات
في بعض الاحيان تريد ان تخفي متصفح التطبيقات لعدم حاجتك له او لاخذه مساحة من الشاشة
1- اخفاء متصفح التطبيقات
هناك طريقتان لاخفاء متصفح التطبيقات
أ-اضغط الزر close من الجانب الشمال الشرقي في متصفح التطبيقات
ب-اضغط الزر الايمن للفارة باي مكان في متصفح التطبيقات و اختر اخفاء (Hide)
استرجاع متصفح التطبيقات
أ-اذهب الى قائمة view في Manu bar اضغط على Project Explorer
ب- اضغط ctrl + R
ج-اضغط على الصورة التالية في
http://www.c4arab.com/images/lessons/programming/visualbasic/1164/gdgdfg.jpgTool bar
تحريك متصفح التطبيقات
اضغط على Title bar الخاص بمتصفح التطبيقات و استمر بالضغط عليه و سحبه اينما اردت و Title bar هو الشريط الازرق المكتوب عليه Project-project1))
كما في الصور الاتية
http://www.c4arab.com/images/lessons/programming/visualbasic/1164/image013.jpghttp://www.c4arab.com/images/lessons/programming/visualbasic/1164/image014.jpghttp://www.c4arab.com/images/lessons/programming/visualbasic/1164/image015.jpg
وهناك طرق اخرى و لكن هذه الطريقة الاكثر شيوعا و لا حاجة لمعرفة جميع الطرق
تمرين
حرك مكان النافذة الخاصة بمتصفح التطبيقات الى اي مكان في الشاشة ثم اضغط مرتان على Title bar الخاص به مرتان بزر الفارة الايسر و لاحظ ماذا يحدث
ملاحظة مهمة: عند الضغط على الزر الايمن على متصفح التطبيقات ستجد علامة صح بجانب كلمة dockable عند ابعاد هذه العلامة ستفقد النافذة خاصية الرجوع عند الضغط مرتان عليها بل سيزداد حجمها و ينقص عند الضغط عليها مرتان كعمل restore في اي نافذة في الكمبيوتر و لارجاعها الى و ضعها الطبيعي اضغط الزر الايمن للفارة على متصفح التطبيقات ثم اضغط علىDockable و اضغط مرتان على Title bar و ستلاحظ رجوع الامر طبيعي
تغيير حجم متصفح التطبيقات
في بعض البرامج الكبيرة يوجد العديد من الملفات و لعرض جميع الملفات في متصفح التطبيقات دون استخدام
http://www.c4arab.com/images/lessons/programming/visualbasic/1164/scrollcar.jpgScrollbar
اشر سهم الفارة الى حافة متصفح التطبيقات السفلية او من الجانب الايسر ستلاحظ تحول موشرالفارة الى شكل سهمين متعاكسين انقر بالفارة و اضغط واسحب للاتجاه الذي يحلو لك
اخيرا انتهى هذا الدرس الطويل ولكنه بسيط جدا و اتمنى للجميع الفائدة

بناء على طلب روز

[ضحاياالحب]

طريقة فتح الفيجوال بيسك و بعض الاساسيات
قبل التخيل في البرامج التي يمكنك عملها بالفيجوال بيسك يجب ان تعرف طريقة فتح البرنامج
لفتح البرنامج :-
اذهب الى زر start اختر programs ثم اضغط على ملف الفيجوال بيسك واختر الفيجوال بيسك 6.0 Microsoft visual basic 6.0
ملاحظة : الكثير من الاحيان يكون الفيجوال بيسك مدمج مع الفيجوال ستوديو وفي هذه الحالة
اذهب الى اذهب الى زر start اختر programs ثم Microsoft visual studio 6.0 ثم Microsoft visual basic 6.0
بهذا سيفتح البرنامج وفي العادة تخرج لك النافذة الاتية
http://www.c4arab.com/images/lessons/programming/visualbasic/1159/image001.png
نلاحظ 3 صفحات Tabs
1-new :اختيار نوع الملف الذي تريد فتحه و سنتعامل عادة مع الاختيار المظلل في الاعلى
2- Existing : لجلب ملف فيجوال بيسك و العمل عليه و يكون الملف بالكمبيوتر بالتاكيد
3- Recent : الملفات التي تم العمل عليها سابقا
ملاحظة مهمة : عند وضع صح على المربع الذي ينص Don’t show this dialog in the future لن تظهر هذه النافذة مرة اخرى
1- عليك الذهاب الى قائمة File ثم new project او اضغط Ctrl + N ستلاحظ عدم ظهور الصفحتين الاخريتين Existing و Recent
2-لالغاء خاصية عدم ظهور النافذة اذهب الى tools من menu bar ثم options ثم صفحة Environment في الاعلى اشر اضغط على prompt for project في when visual basic starts
http://www.c4arab.com/images/lessons/programming/visualbasic/1159/image003.gif
1- الضغط على زر الخروج close http://www.c4arab.com/images/lessons/programming/visualbasic/1159/image004.gif
- Alt +F4 اضغط
3- اختر من File men
exit
4- Alt+Q اضغط
اتمنى ان يكون الدرس قد اعجبكم فانتقلوا الى الدرس التالي
اتمني ان يعجبكم :)

[ضحاياالحب]

قد تبدو نافذة الفيجوال بيسك مليئة بعض الشيء و لكنها – لحسن الحظ - سهلة الاستخدام و سنتعرف على كل جزء من أجزاءها بالتفصيل إن شاء الله . لاحظ كيف تبدو نافذة الفيجوال بيسك كما في الشكل التالي :
http://www.c4arab.com/images/lessons/programming/visualbasic/vb1.jpg
Tool Bar شريط الأدوات
هو الجزء العلوي من الفيجوال بيسك أسفل شريط القوائم مباشرة .. انظر الشكل التالي :
http://www.c4arab.com/images/lessons/programming/visualbasic/vb2.jpg
وهذا الشريط يتغير بحسب الوظيفة التي تقوم بها في أي وقت .
Tool Box صندوق الأدوات
يحتوي على العديد من الأدوات التي يمكنك سحبها و وضعها على نافذة برنامجك
http://www.c4arab.com/images/lessons/programming/visualbasic/vb7.jpg
هذا هو صندوق الأدوات القياسي ، وبما أنه قياسي فهذا يعني أنه يمكننا أن نضيف بعض التعديلات على هذا الصندوق كما سوف نعرف.
و سنتعرف على كيفية إضافة هذه الأدوات إلى نافذة البرنامج في الدروس اللاحقة إن شاء الله .
نافذة البرنامج
http://www.c4arab.com/images/lessons/programming/visualbasic/vb3.jpg
أو مايسميه الفيجوال بيسك بالفورم (Form) و سيكون معظم عملك في الفيجوال بيسك داخل هذه النافذة .. في الحقيقة ، هذه النافذة تمثل النافذة التي ستظهر للمستخدم عند انتهاء برنامجك و ستتعلم كيف تضيف إليها الأدوات المختلفة لتبدو مثل نوافذ برامج ويندوز في الدروس اللاحقة إن شاء الله .لاحظ أن برنامجك قد يحتوي على أكثر من نافذة .
نافذة المشروع
http://www.c4arab.com/images/lessons/programming/visualbasic/vb4.jpg
و تحتوي على الملفات المختلفة التي يتضمنها برنامجك .
نافذة الخصائص
http://www.c4arab.com/images/lessons/programming/visualbasic/vb5.jpg
تقوم نافذة الخصائص بعرض خصائص الكائن المحدد حاليا . لاحظ أن اسم الكائن يظهر في أعلى هذه النافذة و أن خصائصه تظهر في منتصف النافذة ( و تحتل المساحة الكبرى ) و يظهر في الأسفل شرح عن هذا الكائن .
نافذة تخطيط النوافذ :Form layout
http://www.c4arab.com/images/lessons/programming/visualbasic/vb6.jpg
هل ترى تلك الشاشة الصغيرة داخل نافذة تخطيط النوافذ ؟؟ إنها تمثل شاشة المستخدم و المربع الذي بداخلها يمثل نافذة برنامجك .. كما تلاحظ بالشكل فإن نافذة برنامجك تقع في الجهة اليسرى العليا و هو المكان الذي ستظهر به نافذتك عندما تقوم بتنفيذ البرنامج و يمكنك التحكم بمكان النافذة إما عن طريق نافذة تخطيط النوافذ ( بالسحب و الافلات ) أو بإضافة أوامر برمجية ( سنتعلمها لاحقاً ) .
ان شاء الله واضح الشرح

[ضحاياالحب]

في هذا الدرس سوف نكمل ما توصلنا إليه في الدرس السابق و سنتعرف على حقيقة ماسنحصل عليه باستخدام معالج البرامج .. فلننطلق معاً
هل تذكر أين توقفنا في الدرس السابق ؟ لقد انتقلنا سوياً إلى المربع الحالي .. هذا المربع يسمح لك بإضافة العديد من النوافذ الرائعة إلى برنامجك و هي كالتالي :
* Splash screen : و هي النافذة التي تراها في بعض البرامج وقت تحميل البرامج و قد تحتوي على شعار البرنامج مثلاُ أو ما شابه .
* Login dialog : هل يحتاج برنامجك لكلمة مرور قبل الدخول ؟ إذاً هذا هو ما تبحث عنه .
* Options dialog : تحتوي الكثير من البرامج الكبيرة على مربع حوار يعطي المستخدم بعض الحرية في التصرف بشكل البرنامج وو ظائفه .. ببساطة يمكنك إضافة شيء مشابه في برنامجك باستخدام هذا الخيار .
* About box : حاول اختيار أمر about من قائمة Help في متصفحك .. يمكنك إضافة نافذة مشابهة في برنامجك باستخدام هذا الخيار .
و الآن من فضلك قم باختيار الخيار about box فقط و لا تضف باقي الخيارات في هذه الخطوة ثم انقر التالي next .
انقر زر next لإن المربع الحالي يتيح لك التعامل مع قواعد البيانات و هو مالا نحتاجه في برنامجنا التجريبي الأول .
و الآن .. دعني أهنئك .. لقد وصلنا إلى النهاية و يمكنك أن تنقر زر Finish ليقوم الفيجوال بيسك بإنشاء البرنامج بالمواصفات التي طلبتها .
هل أنت متحمس لرؤية النتيجة ؟ و أنا كذلك .. إذاً فلنقم بتشغيل برنامجنا الأول و ذلك باختيار أمر start من قائمة run . انظر ما حصلت عليه .. هل حصلت على نتيجة مشابهة ؟ :)
http://www.c4arab.com/images/lessons/programming/visualbasic/vb_les1.gif
لا تنسى أن تجرب أمر about من قائمة Help في برنامجك هذه المرة فهو الخيار الوحيد الذي يعمل بصورة صحيحة أما الأوامر الأخرى مثل cut أو paste فإنها تحتاج لإضافة أوامر برمجية على برنامجك حتى تعمل بشكل صحيح .. إذاً تعلمنا في هذا الدرس كيف ننشأ شكلاً عاماً للبرنامج و لكنه بالتأكيد لا يعمل بصورة كاملة إلا إذا تعلمنا إضافة الأوامر البرمجية عليه و هو ماسنفعله في دروس قادمة بإذن الله . لإيقاف البرنامج قم باختيار أمر Exit من قائمة File من داخل برنامجك ثم اختر أمر Exit من قائمة File في فيجوال بيسك و عندها سيسألك إن كنت تريد حفظ برنامجك فإذا كنت من أولئك الناس الذين يعتزون بأول برنامج لهم فقم بحفظ البرنامج باختيار الأمر yes أو إذا كان هذا الموضوع لا يستهويك فاختر No .
أعرف ماتقوله الآن : كم كان درساً شاقاً و طويلاً .. هذا صحيح و لكننا تعلمنا الكثير و الآن أنا سأبقى في انتظارك هنا و سأنتظر عودتك لقراءة الدرس التالي فلا تتأخر :) .
مشاركة: معالج البرامج - متقدم

[ضحاياالحب]

السلام عليكم ورحمة الله وبركاته ,,
هذا الموضوع هو الدرس الثاني في سلسلة التعامل مع البيانات من خلال الفيجوال بيسك 6
في هذا الدرس سوف اشرح كيف نتصل في قاعدة البيانات وسحب المعلومات منها .
بعد تطبيق الدرس الاول سوف تظهر لكم هذه الشاشة :
صورة 1 :
http://www.c4arab.com/images/lessons/programming/visualbasic/saleh/vb1.jpg
نقوم بفتح Form1 كما يظهر في الصورة اعلاه , واضافة زر واحد Command و نقوم باضافة Listbox :
صورة 2 :
http://www.c4arab.com/images/lessons/programming/visualbasic/saleh/vb2.jpg
بعد ذلك نقوم بالدخول الى الحدث Command1_Click بالضغط على الزر مرتين ونقوم بكتابة الكود كما يظهر بالصورة :
صورة 3 :
http://www.c4arab.com/images/lessons/programming/visualbasic/saleh/vb3.jpg
نقوم بتعريف متغير من نوع Connection لكي يتكفل بالاتصال بقاعدة البيانات :
Dim Conn As New Connection
بعد ذلك نقوم بتعريف متغير من نوع Recordset لكي يقوم بالتعامل مع البيانات :
Dim Rs As New Recordset
والمتغير strSQL هو متغير نص String سوف ندخل اليه جملة SQL التي تمثل البيانات التي نريد سحبها .
Dim strSQL As String
سوف نخرج من خلال جملة SQL اسماء المدن الموجوده في القاعدة :
strSQL = "Select CityName From Cities" << SQL
نتصل اولا بقاعدة البيانات
Conn.Open "Database" << Connection
بعد ذلك نخبر ال Rs بالمعلومات التي نريد اخراجها strSQL ونخبره ايضا باسم المتصل
Rs.Open strSQL, Conn
والان وقد فتح الاتصال واستطاع ال Rs الى المعلومات سوف نسأل اذا كان هناك معلومات اصلا :)
Rs.EOF معنى ذلك هل وصلنا الى النهاية ؟ اذا كان الجواب نعم True فليس هناك اي نتيجة وسوف اخرج رسالة No Fields
If Rs.EOF = True Then
اما اذا كان هناك معلومات فسوف نخرج الرسالة Yes .
بعد النهاية من كتابة الكود اضغط F5 لترى نتيجة العمل .
صورة 4 :
http://www.c4arab.com/images/lessons/programming/visualbasic/saleh/vb4.jpg
يبدو اني نسيت ان ادخل بعض البيانات :)
نقوم بعدها باضافة زر جديد Command وسوف يكون عمله ادخال اسماء المدن الى Listbox وهذا بعد ان قمت بادخال اسماء المدن طبعا :) الى قاعدة البيانات
صورة 5 :
http://www.c4arab.com/images/lessons/programming/visualbasic/saleh/vb5.jpg
بعد اضافتك لزر اضغط عليه مرتين لتدخل الى حدث Command2_Click
وقم بكتابة الكود الذي يظهر بالصورة
صورة 6 :
http://www.c4arab.com/images/lessons/programming/visualbasic/saleh/vb6.jpg
نفس الكود ولكن هنا نستخدم الحلقة Do Until Loop.
ما دام Rs لم يصل الى نهاية السجلات فادخل الى الحلقة .
Do Until Rs.EOF
بعد ذلك نقوم باضافة اسماء المدن الى Listbox .
List1.AddItem Rs.Fields("CityName") << Listbox
Rs.MoveNext تعني انتقل الى السجل التالي.
وستكون النتيجة كتالي , بعد الضغط على الزر 2 .
صورة 7 :
http://www.c4arab.com/images/lessons/programming/visualbasic/saleh/vb7.jpg
هنا ينهتي الدرس , ان شاء الله يكون واضح ومفهوم .
مشاركة: التعامل مع البيانات بطريقة Odbc فيجوال بيسك 6 الدرس الثاني

[ضحاياالحب]

لكتابة برنامج في فيجوال بيسك لديك خياران : إما أن تبدأ من فراغ و تقوم بكتابة البرنامج من الألف إلى الياء أو أن تستخدم معالج البرامج ليقوم بإنشاء أساسيات البرنامج و تقوم أنت بملء النواقص فيما بعد .. المعالج برنامج صغير يسألك عدة أسئلة و بناء على إجاباتك يتولى هو القيام بالمهام الصعبة عنك
إذاً فلنبدأ قم بتشغيل برنامج الفيجوال بيسك سيظهر لك مربع حوار ، تفحص هذا المربع ، إنه يحتوي على ثلاث تبويبات و هي :
-new :
لإنشاء برنامج جديد .
-Existing :
لفتح أحد البرامج الموجودة على جهازك .
- Recent :
لفتح البرامج التي استخدمتها مؤخراً
http://www.c4arab.com/images/lessons/programming/visualbasic/Image3.gif
فلنعد لموضوعنا هل خمنت كيف نستطيع تشغيل معالج البرامج ؟ نعم بالتأكيد نقوم بالنقر المزدوج على رمز
http://www.c4arab.com/images/lessons/programming/visualbasic/vb8.jpg
من التبويبة
بالطبع بعد أن تنقر نقراً مزدوجاً على الرمز السابق فإن المعالج سيبدأ بالعمل و يظهر مربع ترحيبي انقر رمز التالي لتبدأ بالعمل أول مربع حوار سيواجهك يسألك عن نوع الواجهة التي تريدها لبرنامجك . أمامك ثلاث خيارات
-Multiple Document Interface (MDI):
استخدم هذا الخيار إذا كنت تريد إنشاء برنامج يستطيع فتح أكثر من نافذة في نفس الوقت
-Single Document Interface(SDI):
لإنشاء برنامج يحتوي على نافذة واحدة فقط
-Explorer Style :
لإنشاء برنامج بنافذة شبيهة بمستكشف ويندوز أي أنها تحتوي على تفاصيل المواضيع في الجهة اليمنى و ملخصاً لهذه المواضيع أو رؤوس أقلام في الجهة اليسرى افتح مستكشف الويندوز حتى تصلك الفكرة التي أحاول إيصالها
قم باختيار الخيار الأوسط [خير الأمور أوسطها :) ] ثم اختر اسماً لبرنامجك و اكتبه في المستطيل المسمى
What name do you want for the application?
FirstApp اختر الاسم
لاحظ أنه يجب أن لا تترك مسافات بيضاء في الاسم المختار ثم انقر التالي
Next .
المربع الحالي يطلب منك اختيار القوائم التي تريد إضافتها إلى شريط القوائم في برنامجك .. اترك جميع الخيارات كما هي ثم انقر زر
Next .
المربع الحالي مسؤول عن شريط الأدوات هذه المرة . ينقسم مربع الحوار إلى قسمين : القسم الأيسر يعرض جميع الأزرار المضافة في برنامجك . اترك جميع الخيارات كما هي و انقر زر
Next .
المربع الحالي يسألك هل يضع موارد البرنامج
Resources
في ملف منفصل أم يضعها في نفس الملف .اختر
No
Next ثم انقر
في هذا المربع تستطيع أن تحدد خيارات الاتصال بالإنترنت و إضافة واجهة تتيح الاتصال بالإنترنت من داخل برنامجك وحيث أننا نقوم بإنشاء برنامج بسيط فلا داعي لتفعيل هذا الخيار
Next انقر زر
دون تغيير الخيارات الافتراضية .
في الدرس القادم سنتعلم بعض الخيارات المتقدمة في معالج البرامج و سنشرح مانحصل عليه باستخدامه بشكل أوسع إن شاء الله ..فإلى هناك
ابتعد عن الشاشة قليلاً و تمتع بعشر ثواني للراحة ثم انقر التالي
مشاركة: استخدام معالج البرامج لإنشاء أول برنامج لك-الجزء الأول

[ضحاياالحب]

السلام عليكم ورحمة الله وبركاته
إخواني أخواتي مبرمجي الفيجوال بيسك Visual Basic6.0 وأعضاء موسوعتنا العربية الغالية أقدم لكم هذا الدرس الجميل والذي يهدف لتجميل شكل برنامجك
وكما هو عنوان الدرس :- كيف تجعل برنامجك أكثر تألقا وجمالا باستخدام أداة Active Skin
فإن هذا الدرس يهدف لتجميل برنامجك ...ولمعرفة كيفية عمل ذلك تتبع معنا الدرس خطوة خطوة
الأدوات المطلوبة.
1- أداة Active Skin
يمكن الحصول على هذه الأداة من هنا
2- مجموعة من الSkins
يمكن الحصول على هذه المجموعة من 1 2 3
بداية الدرس.
1- أفتح برنامج الفيجوال بيسك Microsoft Visual Basic 6.0
2- بعد فتح البرنامج سوف تظهر لك نافذة حوار ... أختار منها Standard EXE أي فتح مشروع جديد تنفيذي كما في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/skin/Pic1.gif
3- أضغط على الزر Open أو أضغط Double Click على صورة Standard EXEلفتح المشروع
4- بعد فتح المشروع سوف يفتح لك المشروع كما في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/skin/Pic2.gif
5- بعدما ان تم فتح المشروع وكما تلاحظ في الصورة السابقة قم بضغط الزر الأيمن للماوسRight Click على صندوق الأدواتToolbox وسوف تظهر لك نافذة صغيرة اختار منها الأمر Components
أو يمكنك بعد فتح المشروع الضغط على Ctrl+T من لوحة المفاتيح
6- بعد الضغط على الأمر Components أو بعد الضغط على Ctrl+T سوف تظهر لك شاشة حوار كما في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/skin/Pic3.gif
7- بعد فتح نافدة ال Components قم بضغط على زر Browse وبعد الضغط عليه سوف تظهر لك نافذة صغيرة قم فيها بالإشارة إلي مكان الأداة التي قمت بتحميلها مند قليل مع الإشارة بأن اسم الأداة هو ACTSKIN4.OCX
8- بعد الإشارة إلي مكانها سوف تظهر لك النافذة السابقة ولكن مع أسم ألأداة الجديدة كما في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/skin/Pic4.gif
ثم اضغط على OK سوف تلاحظ في شريط الأدوات أنه تم إضافة أداتين جديدتين فيها كما في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/skin/Pic5.gif
كما تلاحظ في الصورة السابقة تم إضافة أداتين جديدتين وهم
1- Skin
2- Skin Label
9- قم بوضع أداة الSkin على سطح الفورم المراد تجميلها كما سوف تلاحظ في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/skin/Pic6.gif
10- قم بالضغط على سطح الفورم Form مرتين باستخدام الماوسDouble Click أو افتح شاشة الكود Codeبنفسك وباي طريقة تحبها لانه يوجد اكثر من طريقة لفتحها
11- بعد فتح شاشة الكود Code اكتب الأمر التالي كما هو موجود في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/skin/Pic7.gif
12- قم بتخزين ملفات المشروع في أي ملف تختره شرط أن يكون Icqpro.Skn موجود في نفس مسار ملفات المشروع كما في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/skin/Pic8.gif
ألان قم بتشغيل فورم البرنامج عن طريق زر Start الموجود بالشريط العلوي لبرنامج الفيجوال بيسك Visual Basic 6.0 وهذا هو شكل الفورم الجديد
http://www.c4arab.com/images/lessons/programming/visualbasic/skin/Pic9.gif
وهناك المزيد من الإشكال الرائعة ... أترككم تتعرفون عليها... وإن شاء الله تعجبكم
ملاحظة هامة :- هذه الأداة لا تدعم أداة الLabel الافتراضية ولكن لكي تستطيع الكتابة في الفورم استخدام الأداة الثانية الموجودة في الصورة رقم ( 5 )
أرجو أن يكون الدرس قد نال رضاكم واستحسانكم

مشاركة: كيف تجعل برنامجك أكثر تألقا وجمالا باستخدام أداة Active Skin

[ضحاياالحب]

السلام عليكم ورحمة الله وبركاته
إخواني أخواتي مبرمجي الفيجوال بيسك Visual Basic 6.0 وأعضاء موسوعتنا العربية الغالية أقدم لكم هذا الدرس الجميل والذي يهدف لتجميل شكل برنامجك
وكما هو عنوان الدرس :- كيف تجعل برنامجك أكثر تألقا وجمالا باستخدام أداة Visual Creations Form Shape Control
فإن هذا الدرس يهدف لتجميل برنامجك ...ولمعرفة كيفية عمل ذلك تتبع معنا الدرس خطوة خطوة
الأدوات المطلوبة.
1- أداة Visual Creations Form Shape Control يمكن الحصول على هذه الأداة من هنا
2- الصورة التي تريد جعلها تاخد شكل الفورم ...أنا هنا استخدمت هذه الصورة لتاخد شكل الفورم
http://www.c4arab.com/images/lessons/programming/visualbasic/creative/Image1.gif
بداية الدرس.
1- أفتح برنامج الفيجوال بيسك Microsoft Visual Basic 6.0
2- بعد فتح البرنامج سوف تظهر لك نافذة حوار ... أختار منها Standard EXE أي فتح مشروع جديد تنفيذي كما في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/creative/Image2.gif
3- أضغط على الزر Open أو أضغط Double Click على صورة Standard EXEلفتح المشروع
4- بعد فتح المشروع سوف يفتح لك المشروع كما في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/creative/untitled.gif
5- بعدما ان تم فتح المشروع وكما تلاحظ في الصورة السابقة قم بضغط الزر الأيمن للماوسRight Click على صندوق الأدواتToolbox وسوف تظهر لك نافذة صغيرة اختار منها الأمر Components
أو يمكنك بعد فتح المشروع الضغط على Ctrl+T من لوحة المفاتيح
6- بعد الضغط على الأمر Components أو بعد الضغط على Ctrl+T سوف تظهر لك شاشة حوار كما في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/creative/untitled1.gif
7- بعد فتح نافدة ال Components قم بضغط على زر Browse وبعد الضغط عليه سوف تظهر لك نافذة صغيرة قم فيها بالإشارة إلي مكان الأداة التي قمت بتحميلها مند قليل مع الإشارة بأن اسم الأداة هو vcFRMSHAPECTL.Ocx
كما سوف تلاحظ في هذه الصورة
http://www.c4arab.com/images/lessons/programming/visualbasic/creative/Image5.gif
ثم اضغط Open
بعد الإشارة إلي مكان الأداة سوف تظهر لك النافذة السابقة ولكن مع أسم ألأداة الجديدة كما في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/creative/untitled2.gif
ثم اضغط على OK سوف تلاحظ في شريط الأدوات أنه تم إضافة الأداة الجديدة فيها كما في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/creative/untitled3.gif
كما تلاحظ في الصورة السابقة فقد تم إضافة الأداة vcFRMSHAPECTL
8- قم بوضع أداة ال vcFRMSHAPECTL على سطح الفورم المراد تجميلها كما سوف تلاحظ في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/creative/untitled4.gif
كما تلاحظ فقد أصبحت الفورم بعد وضع الأداة الجديدة خاليا من الإطار الخارجي ... وهذه هي البداية
بعد ذلك نختار الخاصية Picture للأداة الجديدة vcFRMSHAPECTL كما في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/creative/untitled5.gif
كما تلاحظ في الصورة السابقة قم بتحديد الصورة التي تريدها تاخد شكل الفورم من خلال الخاصية Picture كما ذكرنا سابقا
بعد اختيار الصورة المطلوبة نقوم باختيار الخاصية Mask ونضع اللون المطلوب إخفاءه كما في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/creative/untitled6.gif
9- بعد ذلك قم بالضغط على سطح الفورم Form مرتين باستخدام الماوسDouble Click أو افتح شاشة الكود Codeبنفسك وباي طريقة تحبها لأنه يوجد اكثر من طريقة لفتحها
10- بعد فتح شاشة الكود Code اكتب الأمر التالي كما هو موجود في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/creative/untitled7.gif
ألان قم بتشغيل فورم البرنامج عن طريق زر Start الموجود بالشريط العلوي لبرنامج الفيجوال بيسك Visual Basic 6.0 ...وألان سوف تشاهد شكل الفورم الجديد كما في الصورة التالية
http://www.c4arab.com/images/lessons/programming/visualbasic/creative/untitled8.gif
كما تلاحظ فقد أصبحت الفورم بهذا الشكل ,اليست جميلة؟
هنا يكون الدرس قد انتهاء بحمد الله وتوفيقه
* نهاية الدرس *
أرجو أن يكون الدرس قد نال رضاكم واستحسانكم
::تحياتي::
مشاركة: كيف تجعل برنامجك أكثر تألقا وجمالا باستخدام أداة Visual Creations Form Shape Control

[ضحاياالحب]

وظيفة البرنامج
برنامج يعمل لعدد معين من الايام برنامج سهل عمله

' بسم الله الرحمن الرحيم
'أسهل برنامج تجريبي يعمل لعدد معين من الايام
'عيد فتحي عيد
'خريج الجامعه العماليه
'جمهورية مصر العربيه
'محافظة الدقهليه
'مركز ميت غمر
'قرية ميت الفرماوي
'مواليد \\\25//9//1982
'سنحتاج الادوات الاتيه
'1-label1==يكتب التاريخ الحالي
'2-label2==يكتب تاريخ أنشاء الملف التنفيذي
'3-label3
'4-command1
'سنحتاج إلى ثلاث دوال
'1-Now=تكتب التاريخ والوقت الحالي معا
'2-FileDateTime=تعبر عن تاريخ الملف التنفيذي
'3-DateDiff=تكتب الفرق بين تاريخين
'الدالهDateDiff لها ثلاث معاملات
'الاول وسيط التمرير كاليوم أو السنه أو الشهر
'ومعامل التمرير لليوم هو=="d"
'الثاني التاريخ الاول وسيكون تاريخ أنشاء الملف التنفيذي
'الثالث التاريخ الثاني وسيكون الوقت الحالي
Private Sub Command1_Click()
Label1.Caption = Now
Label2.Caption = FileDateTime(App.Path & "\عيد.exe")
Label3.Caption = DateDiff("d", Label2.Caption, Label1.Caption)
'الشرط هنا يحدد عدد الايام
If Label1.Caption <= "10" Then
Command1.Enabled = False
Else
Unload Form1
Form2.Show
End if
End Sub
كنت اتمني ان يكون في الصندوق السحري كود بي اتش بي
مشاركة: برنامج يعمل لعدد معين من الايام برنامج سهل عمله

[ضحاياالحب]

وظيفة البرنامج
برنامج مسطرة المتوازيات يستخدم بكثره في برامج الجرفيك


بسم الله الرحمن الرحــيم
المصصـــم /////////عــيد فتحي عــيــد
مــصـــري
حاصل على بكاليوس الجامعه العــالـــيه
محافظة ///الدقـــهليه
مركز ومدينة ////ميت غــــمر
قـــــرية ////ميت الفـــرماوي
موالــــيد ////1982/9/25
Private Sub Form_Load()
Me.AutoRedraw = True
'يساعد علي زيادة التذكر
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'يمثل حركة الخط الرأسي
Line1.X1 = X
Line1.X2 = X
'يمثل حركة الخط الافقي
Line2.Y1 = Y
Line2.Y2 = Y
End Sub
'الحدث resize يساعد في أبقاء الخط مع تغيير حجم النافذه
Private Sub Form_Resize()
'طول الخط الرأسي يساوي طول النموذج
Line1.Y1 = 0
Line1.Y2 = Me.Height
'طول الخط الافقي يساوي عرض النافذه
Line2.X1 = 0
Line2.X2 = Me.Width
End Sub
مشاركة: برنامج مسطرة المتوازيات يستخدم بكثره في برامج الجرفيك

[ضحاياالحب]

فتح السيدي روم واغلاقه CD:ROM


Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Sub OpenCDDriveDoor(ByVal State As Boolean)
If State = True Then
Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
Else
Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)
End If
End Sub
Private Sub Command1_Click()
OpenCDDriveDoor (True)
End Sub
Private Sub Command2_Click()
OpenCDDriveDoor (False)
End Sub
مشاركة: فتح السيدي روم واغلاقه Cd:rom

[ضحاياالحب]

وظيفة البرنامج
كود لساعة عقارب


Const PI = 3.14159
Private Sub Command1_Click()
frmClock.Width = 7670
End Sub
Private Sub Command2_Click()
frmClock.Width = 5000
End Sub
Private Sub Form_Load()
Call tmrQuartz_Timer
End Sub
Private Sub Timer1_Timer()
If Image1.Visible = True Then
Image1.Visible = False
Else
Image1.Visible = True
End If
End Sub
Private Sub tmrQuartz_Timer()
Dim Hours As Single, Minutes As Single, Seconds As Single
Dim TrueHours As Single
lblTime.Caption = Time
'Beep
Hours = Hour(Time)
Minutes = Minute(Time)
Seconds = Second(Time)
TrueHours = Hours + Minutes / 60
' I made all the X1 and Y1 equal in the form
LineHour.X2 = 1000 * Cos(PI / 180 * (30 * TrueHours - 90)) + LineHour.X1
LineHour.Y2 = 1000 * Sin(PI / 180 * (30 * TrueHours - 90)) + LineHour.Y1
LineMinute.X2 = 1500 * Cos(PI / 180 * (6 * Minutes - 90)) + LineHour.X1
LineMinute.Y2 = 1500 * Sin(PI / 180 * (6 * Minutes - 90)) + LineHour.Y1
LineSecond.X2 = 1600 * Cos(PI / 180 * (6 * Seconds - 90)) + LineHour.X1
LineSecond.Y2 = 1600 * Sin(PI / 180 * (6 * Seconds - 90)) + LineHour.Y1
End Sub
مشاركة: كود لساعة عقارب

[ضحاياالحب]

وظيفة البرنامج
إخفاء برنامجك من قائمة Ctrl+Alt+Del


اكتب الكود الكود التالي في Genral:
Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" _
(ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Sub HideApp(Hide As Boolean)
Dim ProcessID As Long
ProcessID = GetCurrentProcessId()
If Hide Then
retval = RegisterServiceProcess(ProcessID, RSP_SIMPLE_SERVICE)
Else
retval = RegisterServiceProcess(ProcessID, RSP_UNREGISTER_SERVICE)
End If
End Sub
و هذه في كود الفورم:
Private Sub Form_Load()
HideApp (True)
End Sub
مشاركة: إخفاء برنامجك من قائمة Ctrl+Alt+Del

[ضحاياالحب]

وظيفة البرنامج
إذا ضغطت Enter فوق مربع النص Text1 يعمل كأنك ضغطت فوق زر أمر command1

في الإجراء Text1
افتح الحدث keypress
ثم اكتب الكود التالي
if keyascii=13 then comman1_click
مشاركة: إذا ضغطت Enter فوق مربع النص Text1 يعمل كأنك ضغطت فوق زر أمر command1

[ضحاياالحب]

وظيفة البرنامج
يعمل الكود على اضافة قية فى الريجسترى ومن اهم فوائدة يساعد على عملية برامج التى تحتاج الى كلمة مرور


'This program needs 3 buttons
Const REG_SZ = 1 ' Unicode nul terminated string
Const REG_BINARY = 3 ' Free form binary
Const HKEY_CURRENT_USER = &H80000001
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String) As String
Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As Long
'retrieve nformation about the key
lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0, lDataBufSize)
If lResult = 0 Then
If lValueType = REG_SZ Then
'Create a buffer
strBuf = String(lDataBufSize, Chr$(0))
'retrieve the key's content
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf, lDataBufSize)
If lResult = 0 Then
'Remove the unnecessary chr$(0)'s
RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)
End If
ElseIf lValueType = REG_BINARY Then
Dim strData As Integer
'retrieve the key's value
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData, lDataBufSize)
If lResult = 0 Then
RegQueryStringValue = strData
End If
End If
End If
End Function
Function GetString(hKey As Long, strPath As String, strValue As String)
Dim Ret
'Open the key
RegOpenKey hKey, strPath, Ret
'Get the key's content
GetString = RegQueryStringValue(Ret, strValue)
'Close the key
RegCloseKey Ret
End Function
Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String)
Dim Ret
'Create a new key
RegCreateKey hKey, strPath, Ret
'Save a string to the key
RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)
'close the key
RegCloseKey Ret
End Sub
Sub DelSetting(hKey As Long, strPath As String, strValue As String)
Dim Ret
'Create a new key
RegCreateKey hKey, strPath, Ret
'Delete the key's value
RegDeleteValue Ret, strValue
'close the key
RegCloseKey Ret
End Sub
Private Sub Command1_Click()
'Save the value to the registry
SaveString HKEY_CURRENT_USER, "software\toto", "password", "Mohamed"
End Sub
Private Sub Command2_Click()
'Get a string from the registry
Ret = GetString(HKEY_CURRENT_USER, "software\toto", "password")
If Ret = "" Then MsgBox "No value found !", vbExclamation + vbOKOnly, App.Title: Exit Sub
MsgBox "The value is " + Ret, vbOKOnly + vbInformation, App.Title
End Sub
Private Sub Command3_Click()
'Delete the setting from the registry
DelSetting HKEY_CURRENT_USER, "software\toto", "password"
MsgBox "The value was deleted ...", vbInformation + vbOKOnly, App.Title
End Sub
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Command1.Caption = "Set Value"
Command2.Caption = "Get Value"
Command3.Caption = "Delete Value"
End Sub
مشاركة: يعمل الكود على اضافة قية فى الريجسترى ومن اهم فوائدة يساعد على عملية برامج التى تحتاج

[ضحاياالحب]

وظيفة البرنامج
فتح الملفات ذات امتدادEXE بدون الاداة OLE او OCX


Private Sub Command1_Click()
Dim retval As Long
retval = Shell("C:\WINDOWS\CALC.EXE", 1)
End Sub
مشاركة: فتح الملفات ذات امتدادexe بدون الاداة Ole او Ocx

-----------------------------
نواصل اذا في طلب ان شاء الله انا اعرف ان الفجول بيسك صعب جدا ويمكن الي يعرفون حق هذا البرنامج في هذا المنتدي ينعدون على اليد الوحده ف اذا صار في طلب حاظر ومن عيوني مو بس اكواد اخلي اخلي برامج مفتوحه كي يعدل عليها وتكتب باسمه البرامج وشكرا

[ضحاياالحب]

على سبيل المثال
هذا برنامج للتحويل بين الهجري والميلادي
ماعليك الا ان تكتب اسمك على البرنامج وتضغطه اي اكس اي exe واذا حبيت تضيف عليه شىء طيب عموما بيكون البرنامج بأسمك:)
برنامج مفتوح في المرفقات

[ضحاياالحب]

هذا اذا اردت ان تعمل شات باسمك تفضل هذا برنامج مفتوح عدل فيه مثل ما تبي :)
http://www.moq3.com/pics/up/b_01_05_06/961e488384.gif

[ضحاياالحب]

http://www.moq3.com/pics/up/b_01_05_06/32606b05d3.jpg

[ضحاياالحب]

اممممممممم مافي احد يعرف الظاهر :( كنت ابي اجرب وياه سيرفرات الشات بس مع الأسف ....