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

$عقارية المدينة ينتهي في 12\12\1429 هـ$	$عطري الخاص احدث و اجود و افضل و اروع العطورات الفرنسية 23\12\1429 هـ$
$شرفات الورد ينتهي في 17\11\1429 هـ$	$حراج سيارات شراء استبدال بيع جديدة و مستعملة جميع أنواع السيارات ينتهي في 12\5\1430 هـ$	$الحمادين ينتهي في 8\10\1429 هـ$
$خزامى نجد محاورة شعر شعبي ادب لقاءات ديوان الشعراء 25\12\1429هـ$	$جويا تنتهي في 20\11\1429 هـ$
	$دلوعتي ينتهي في 12\12\1429 هـ$

احصائيات سريعة

الرئيسية
اضافة
اتصل بنا
mnu1

اقسام على الموقع

البحث في المواد

اكثر المحتويات زيارة

الدوال في الاكسل (8,250 مشاهده)
ربط قاعدة بيانات أكسس (MS Access) مع برنامج الفيجوال بيسك بطريقة(ODBC) (5,712 مشاهده)
تعريف الفن التشكيلي: (5,156 مشاهده)
الدرس الثالث : بعض تطبيقات الدوال في اكسل (3,925 مشاهده)
تغيير لغة واجهة التطبيق من عربي الى انجليزي وبالعكس لـ Windows-based applications (3,628 مشاهده)
شرح طريقة استعمال الأوتلوك مع بريد الهوتميل (3,615 مشاهده)
أنواع العلاقات وطريقة الربط بين الجداول. (3,580 مشاهده)
تعريف الاستعلام وطريقة عرضه في آكسس، أنواع الاستعلامات، نافذة تحديد الاستعلام! (3,268 مشاهده)
دروس في الأوفيس الأكسس - Access0- (3,064 مشاهده)
الدرس الثاني: بعض الحيل لتسهيل برنامج اكسل (3,057 مشاهده)
اضافه صوت ونص لخلفيه في باور بوينت (2,636 مشاهده)
أنشئ قاعدة بياناتك التي ستستند إليها في تعلم طريقة ربط الجداول والاستعلامات. (2,503 مشاهده)
كيفية حل مشاكل الانترنت اكسبلور Internet Explorer (2,401 مشاهده)
مقدمة عامة حول الاكسل وحيل خاصة بالاكسل (2,362 مشاهده)
الدرس الأول : عمل شريحة في البوربوينت (2,340 مشاهده)
المنظور الفوتوغرافي Perspective Drawing (2,260 مشاهده)
شرح طريقة التجميع Grouping في برنامج الاكسل (2,177 مشاهده)
الدرس الثاني : عمل خلفيات ملونة لشرائح (2,164 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس .0--- (2,163 مشاهده)
ما هو المات لاب MATLAB؟ (1,985 مشاهده)
إنشاء موقع ويب جديد0--- (1,948 مشاهده)
برنامج Windows Movie Maker لتكوين أفلام (1,920 مشاهده)
التعرف على مكونات الكمبيوتر (1,914 مشاهده)
تحويل ملف من مايكروسوفت ورد إلى اكروبات (1,909 مشاهده)
ما هو برنامج الاكسل -00 (1,846 مشاهده)

جديد مواد مع عشوائي

التحويل التلقائي للحروف ل- ل- ه إلى اسم الجلالة0---- (1,182 مشاهده)
النسبة المئوية لا تظهر بالخط العربي & الشدة وألف المد في لفظ الجلالة0---النسبة المئوية لا تظهر بالخط العربي & الشدة وألف المد في لفظ الجلالة0--- (759 مشاهده)
ضبط خيارات اللغة فى الـ Microsoft Word0--- (996 مشاهده)
استخدام لوحة المفاتيح في الـ Word0---- (1,126 مشاهده)
إضافة كلمة سر إلي ملفات الورد دون استخدام برامج0--- (1,143 مشاهده)
دمج المراسلات0-- (650 مشاهده)
وضع صورة كخلفية للنص0-- (875 مشاهده)
السماح للمستخدمين بتعديل أجزاء من ملف وورد محمي (Word2003)0--- (623 مشاهده)
كتابة الأرقام الكسرية ورموز المعادلات0-- (975 مشاهده)
درس كامل عن الدمج السهل من لوحة المفاتيح ف0-ي برنامج الـ Word (662 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس .0--- (2,163 مشاهده)
دورة الأكسيس : الدرس الرابع : العلاقات0---- (1,086 مشاهده)
أساسيات في Access0--0 (888 مشاهده)
تصميم تقرير لطباعة البيانات0---- (870 مشاهده)
تصميم نموذج استعراض البيانات‏0--تصميم نموذج استعراض البيانات‏0-- (783 مشاهده)
تصميم نموذج إدخال‎ ‎البيانات0--- (880 مشاهده)
إنشاء قوائم خاصة باستخدام الماكرو(1)0-- (760 مشاهده)
خطوات إنشاء الماكرو في تذييل النموذج (2)0-- (608 مشاهده)
خطوات إنشاء الماكرو في تذييل النموذج (1)0- (569 مشاهده)
استعلامات SQL في Access - تعديل الجداول وإضافة الحقول0- (833 مشاهده)
استعلامات SQL في Access - تحديث البيانات الجدولية0-- (645 مشاهده)
الاستعلامات الإجرائية -4 (استعلام الحذف)0--- (418 مشاهده)
الاستعلامات الإجرائية -2 (استعلام الإلحاق)0--- (542 مشاهده)
تصميم تقرير لطباعة الإجمالي0--- (515 مشاهده)
استعلامات التحديد Select Query مع أمثله (1)0--- (732 مشاهده)

دروس كمبيوتر وصيانة دروس حاسب دروس مجلة درس نيوك phpnuke الدروس دروس مسنجر MSN - yahoo - Gmail دروس منتديات vBulletin دروس الجوالات والهواتف دروس السي بنل cpanel دروس اكسس access دروس بيونت شوب برو - point shop pro دروس برمجة php - mysql دروس برامج منوعة software دروس ثري دي ماكس 3D max دروس جافا سكريبت JavaScript دروس دريم ويفر DreamWeaver دروس شبكات Networks دروس سويش - swish دروس فلاش - flash دروس فيجوال بيسك Visual Basic دروس فرونت بيج - frontpage دروس فوتوشوب photoshop دروس هكر hacker crack virus > لفيجوال بيسك - Visual Basic > فوائد متنوعة لكافة المبرمجين (2)

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

مرات القرائه: 232 مرة/مرات

التقييم:

قم بدعوة صديق

اعلانات في الموقع على جميع الصفحات

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

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

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

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

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

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

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

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

كيف تجعل النص يظهر بشكل عمودي في الأداة 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')

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

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

أضف هذه المادة في موقعك:

مواد مشابهة:

	طريقة فتح الفيجوال بيسك و بعض الاساسيات طريقة فتح الفيجوال بيسك و بعض الاساسيات (مرات المشاهدة: 429 مرات)
	(1) لغة الإستعلام SQL (1) لغة الإستعلام SQL (مرات المشاهدة: 723 مرات)
	برمجة Dao من خلال فيجوال بيسك (2/4) برمجة Dao من خلال فيجوال بيسك (2/4) (مرات المشاهدة: 310 مرات)
	التعامل مع الأخطاء التعامل مع الأخطاء (مرات المشاهدة: 228 مرات)
	كيفية عمل برنامج تنصيب لبرنامجك كيفية عمل برنامج تنصيب لبرنامجك (مرات المشاهدة: 983 مرات)
	استعمل ADO وفيجول بيسك 6 للقراءة والكتابة في قاعدة البيانات استعمل ADO وفيجول بيسك 6 للقراءة والكتابة في قاعدة البيانات (مرات المشاهدة: 624 مرات)
	خوارزم البحث عن قيمة ما في مصفوفة باستخدام مفهوم البحث المتتالي خوارزم البحث عن قيمة ما في مصفوفة باستخدام مفهوم البحث المتتالي (مرات المشاهدة: 187 مرات)
	التعامل مع Label و Text التعامل مع Label و Text (مرات المشاهدة: 317 مرات)
	ربط قاعدة البيانات بإستخدام المعالج السحري 1 ربط قاعدة البيانات بإستخدام المعالج السحري 1 (مرات المشاهدة: 312 مرات)
	مشاكل البرمجة بلغة الفيجوال بيسك وحلولها مشاكل البرمجة بلغة الفيجوال بيسك وحلولها (مرات المشاهدة: 872 مرات)

فوائد متنوعة لكافة المبرمجين (2) - لفيجوال بيسك - Visual Basic

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