كل عام وانتم بخير 
من طرف بسم الله الرحمن الرحيم
ساقوم بشرح طريقة برمجة برنامج يعرض لمستخدمه علم الدولة + اسم الدولة ... كما في برامج الاختراق البيزون والبيفروست ... طبعا هذا الشرح مبسط لمعرفة طريقة الحصول على العلم ونستطيع ربط البرنامج باداة الوينسوك التي ستتعرف على الاي بي . يعني البرنامج قابل للتطوير ..
نبدا بفتح مشروع جديد عن طريق الفجوال بيسك 6 وندرج التالي كما هو موضح
طريقة ادراج ListVew و ImageList كالتالي :
Project>>>Components>>>Microsoft Window Common Controls 6
وستظهر لك في شريط الادوات الاداتين ...
ثانيا : سنجمع بعض اعلام الدول في مجلد ثم نذهب الي اداة ImageList وبزر الفارة الايمن نضغط على خصائص هذه الاداة ونذهب كما بالصورة التالية
انتهينا من هذه الاداة وسننتقل الي اداة اللست فيو وبزر الفارة الايمن على الاداة ونذهب الي خصائصها Properties ونغير التالي :
ثم
ثم
بهذا انتهينا من الاداتين وخصائصها بقي لدينا فقط اضافة في محرر القوائم .. نذهب من اعلى القائمة الي Tools ثم Menu Editor ستظهر كما الصورة التالية اتبعها بتركيز :
اعمل كما بالصورة ولا تؤشر على خانة visibel لاننا لو اخترناه ستظهر قائمة في الفورم وليست في اللست ... بعد ان تنتهي من المرحلة الاولى من محرر القوائم اضغط التالي : Next ثم اذهب الي الاسهم الاربعة واختر الثاني لكي تصبح هكذا (........) ثم املئ البيانات caption وتستطيع تسمية اي شي لانه سيظهر في قائمة اللست اثناء الضغط بزر الماوس الايمن .... نتابع الصورة
بهذا انتهينا من عملية الادراج والتعديل بقي لدينا كتابة الشيفرة وستكون سهلة ان شاء الله نضيف Module مع المشروع ونكتب فيه هذه الشيفرة :
كود:
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Const LOCALE_SYSTEM_DEFAULT As Long = &H400
Private Const LOCALE_SENGCOUNTRY = &H1002
Public Function GetMyCountry() As String 'اجراء بمتغير نصي
Dim Names As String * 256, Info As Long 'تصريح بمتغير نصي وطولي
Info = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SENGCOUNTRY, ByVal Names, Len(Names))
GetMyCountry = Left(Names, Info - 1)
End Function
Public Function GetFlag(MyCountry As String) As Integer
'اجراء بمتغير نصي
Select Case (MyCountry)
Case "Saudi Arabia":
GetFlag = 1
Case "Algeria":
GetFlag = 2
Case "Canada":
GetFlag = 3
Case "Iraq":
GetFlag = 4
Case "Kweit":
GetFlag = 5
Case "Lebanon":
GetFlag = 6
End Select
End Function
Private Sub GetFlagCountry_Click()
ListView1.ListItems.Add , , GetMyCountry, , GetFlag(GetMyCountry)
End Sub
If Button = 2 Then Me.PopupMenu menuFile
ساقوم بشرح طريقة برمجة برنامج يعرض لمستخدمه علم الدولة + اسم الدولة ... كما في برامج الاختراق البيزون والبيفروست ... طبعا هذا الشرح مبسط لمعرفة طريقة الحصول على العلم ونستطيع ربط البرنامج باداة الوينسوك التي ستتعرف على الاي بي . يعني البرنامج قابل للتطوير ..
نبدا بفتح مشروع جديد عن طريق الفجوال بيسك 6 وندرج التالي كما هو موضح
طريقة ادراج ListVew و ImageList كالتالي :
Project>>>Components>>>Microsoft Window Common Controls 6
وستظهر لك في شريط الادوات الاداتين ...
ثانيا : سنجمع بعض اعلام الدول في مجلد ثم نذهب الي اداة ImageList وبزر الفارة الايمن نضغط على خصائص هذه الاداة ونذهب كما بالصورة التالية
انتهينا من هذه الاداة وسننتقل الي اداة اللست فيو وبزر الفارة الايمن على الاداة ونذهب الي خصائصها Properties ونغير التالي :
ثم
ثم
بهذا انتهينا من الاداتين وخصائصها بقي لدينا فقط اضافة في محرر القوائم .. نذهب من اعلى القائمة الي Tools ثم Menu Editor ستظهر كما الصورة التالية اتبعها بتركيز :
اعمل كما بالصورة ولا تؤشر على خانة visibel لاننا لو اخترناه ستظهر قائمة في الفورم وليست في اللست ... بعد ان تنتهي من المرحلة الاولى من محرر القوائم اضغط التالي : Next ثم اذهب الي الاسهم الاربعة واختر الثاني لكي تصبح هكذا (........) ثم املئ البيانات caption وتستطيع تسمية اي شي لانه سيظهر في قائمة اللست اثناء الضغط بزر الماوس الايمن .... نتابع الصورة
بهذا انتهينا من عملية الادراج والتعديل بقي لدينا كتابة الشيفرة وستكون سهلة ان شاء الله نضيف Module مع المشروع ونكتب فيه هذه الشيفرة :
كود:
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Const LOCALE_SYSTEM_DEFAULT As Long = &H400
Private Const LOCALE_SENGCOUNTRY = &H1002
Public Function GetMyCountry() As String 'اجراء بمتغير نصي
Dim Names As String * 256, Info As Long 'تصريح بمتغير نصي وطولي
Info = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SENGCOUNTRY, ByVal Names, Len(Names))
GetMyCountry = Left(Names, Info - 1)
End Function
Public Function GetFlag(MyCountry As String) As Integer
'اجراء بمتغير نصي
Select Case (MyCountry)
Case "Saudi Arabia":
GetFlag = 1
Case "Algeria":
GetFlag = 2
Case "Canada":
GetFlag = 3
Case "Iraq":
GetFlag = 4
Case "Kweit":
GetFlag = 5
Case "Lebanon":
GetFlag = 6
End Select
End Function
شرح بسيط للكود ::
استخدمنا اجراء خاص في الكود الاول private لنحصر رؤية الاجراء في الحصول على المعلومات بمتغيرات نصية وطولية ....
بعدها انشانا اجراء جديد عام puplic وصرحنا بمتغيرين هما names كمتغير نصي ثم Info كمتغير طولي ..
ثم انشانا اجراء عام وهو الحصول على العلم كمتغير نصي
استخدمنا عبارة Select case
Get flag يرمز الي رقم صورة العلم
هذا بالنسبة للموديل انتهينا من شفرته وسننتقل الي الفورم ومعنا شيفرتين كالتالي
لابد ان نتذكر ما كتبناه في في محرر القوائم المرحلة الثانية العنصر GetFlagCountry
سيظهر لك من صفحة الشيفرة وساكتبه بالشيفرة كاملة ليتضح لكم
كود:استخدمنا اجراء خاص في الكود الاول private لنحصر رؤية الاجراء في الحصول على المعلومات بمتغيرات نصية وطولية ....
بعدها انشانا اجراء جديد عام puplic وصرحنا بمتغيرين هما names كمتغير نصي ثم Info كمتغير طولي ..
ثم انشانا اجراء عام وهو الحصول على العلم كمتغير نصي
استخدمنا عبارة Select case
Get flag يرمز الي رقم صورة العلم
هذا بالنسبة للموديل انتهينا من شفرته وسننتقل الي الفورم ومعنا شيفرتين كالتالي
لابد ان نتذكر ما كتبناه في في محرر القوائم المرحلة الثانية العنصر GetFlagCountry
سيظهر لك من صفحة الشيفرة وساكتبه بالشيفرة كاملة ليتضح لكم
Private Sub GetFlagCountry_Click()
ListView1.ListItems.Add , , GetMyCountry, , GetFlag(GetMyCountry)
End Sub
في حدث Click وهنا يتم اضافة العلم الي القائمة
الكود الثاني سيكون في حدث اللست اجراء MouseDown كالتالي
كود:الكود الثاني سيكون في حدث اللست اجراء MouseDown كالتالي
If Button = 2 Then Me.PopupMenu menuFile
وهنا ربطنا اللست بمحرر القوائم والعنصر menufile عند الضغط عليه بزر الماوس
سنخرج البرنامج الي عالم النت وسيظهر لنا كالتالي
هذا كل مافي الشرح اتمنى لكم تطبيقا ممتعا
سنخرج البرنامج الي عالم النت وسيظهر لنا كالتالي
هذا كل مافي الشرح اتمنى لكم تطبيقا ممتعا
