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

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

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

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

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

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

الدوال في الاكسل (14,836 مشاهده)
تعريف الفن التشكيلي: (14,801 مشاهده)
ربط قاعدة بيانات أكسس (MS Access) مع برنامج الفيجوال بيسك بطريقة(ODBC) (10,761 مشاهده)
دروس في الأوفيس الأكسس - Access0- (10,235 مشاهده)
أنواع العلاقات وطريقة الربط بين الجداول. (10,165 مشاهده)
شرح طريقة استعمال الأوتلوك مع بريد الهوتميل (7,342 مشاهده)
تغيير لغة واجهة التطبيق من عربي الى انجليزي وبالعكس لـ Windows-based applications (7,336 مشاهده)
ما هي شبكة الانترنت: (6,452 مشاهده)
الدرس الثالث : بعض تطبيقات الدوال في اكسل (6,207 مشاهده)
تعريف الاستعلام وطريقة عرضه في آكسس، أنواع الاستعلامات، نافذة تحديد الاستعلام! (6,194 مشاهده)
اضافه صوت ونص لخلفيه في باور بوينت (6,183 مشاهده)
المنظور الفوتوغرافي Perspective Drawing (6,131 مشاهده)
ما هو برنامج الاكسل -00 (5,994 مشاهده)
أنشئ قاعدة بياناتك التي ستستند إليها في تعلم طريقة ربط الجداول والاستعلامات. (5,752 مشاهده)
الدرس الثاني : عمل خلفيات ملونة لشرائح (5,534 مشاهده)
نظام التشغيل (Windows) (5,531 مشاهده)
الدرس الأول : عمل شريحة في البوربوينت (5,432 مشاهده)
الدرس الثاني: بعض الحيل لتسهيل برنامج اكسل (5,426 مشاهده)
لإجراء العمليات الحسابية (4,946 مشاهده)
مقدمة عامة حول الاكسل وحيل خاصة بالاكسل0-- (4,914 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس .0--- (4,871 مشاهده)
كيفية تنصيب Turbo C++ وتشغيل برنامج بلغة السي عليه!- (4,830 مشاهده)
vالدرس الأول : عمل شريحة في البوربوينت (4,820 مشاهده)
الدرس الثالث: كيفية عمل مراحل انتقالية للشرائح (4,810 مشاهده)
اضافة الحركات للصور والنصوص (4,746 مشاهده)

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

التحويل التلقائي للحروف ل- ل- ه إلى اسم الجلالة0---- (2,361 مشاهده)
النسبة المئوية لا تظهر بالخط العربي & الشدة وألف المد في لفظ الجلالة0---النسبة المئوية لا تظهر بالخط العربي & الشدة وألف المد في لفظ الجلالة0--- (1,776 مشاهده)
ضبط خيارات اللغة فى الـ Microsoft Word0--- (2,190 مشاهده)
استخدام لوحة المفاتيح في الـ Word0---- (2,383 مشاهده)
إضافة كلمة سر إلي ملفات الورد دون استخدام برامج0--- (2,320 مشاهده)
دمج المراسلات0-- (1,430 مشاهده)
وضع صورة كخلفية للنص0-- (1,870 مشاهده)
السماح للمستخدمين بتعديل أجزاء من ملف وورد محمي (Word2003)0--- (1,447 مشاهده)
كتابة الأرقام الكسرية ورموز المعادلات0-- (2,057 مشاهده)
درس كامل عن الدمج السهل من لوحة المفاتيح ف0-ي برنامج الـ Word (1,612 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس .0--- (4,871 مشاهده)
دورة الأكسيس : الدرس الرابع : العلاقات0---- (2,661 مشاهده)
أساسيات في Access0--0 (2,376 مشاهده)
تصميم تقرير لطباعة البيانات0---- (2,233 مشاهده)
تصميم نموذج استعراض البيانات‏0--تصميم نموذج استعراض البيانات‏0-- (1,993 مشاهده)
تصميم نموذج إدخال‎ ‎البيانات0--- (2,240 مشاهده)
إنشاء قوائم خاصة باستخدام الماكرو(1)0-- (1,928 مشاهده)
خطوات إنشاء الماكرو في تذييل النموذج (2)0-- (1,440 مشاهده)
خطوات إنشاء الماكرو في تذييل النموذج (1)0- (1,510 مشاهده)
استعلامات SQL في Access - تعديل الجداول وإضافة الحقول0- (2,102 مشاهده)
استعلامات SQL في Access - تحديث البيانات الجدولية0-- (1,713 مشاهده)
الاستعلامات الإجرائية -4 (استعلام الحذف)0--- (1,169 مشاهده)
الاستعلامات الإجرائية -2 (استعلام الإلحاق)0--- (1,315 مشاهده)
تصميم تقرير لطباعة الإجمالي0--- (1,420 مشاهده)
استعلامات التحديد Select Query مع أمثله (1)0--- (1,876 مشاهده)

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

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

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

التقييم:

قم بدعوة صديق

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

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

فوائد متنوعة لكافة مبرمجي الفيجوال بيسك (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

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

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

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

مواد مشابهة:

	شرح صندوق كتابة الشيفرة والأحداث شرح صندوق كتابة الشيفرة والأحداث (مرات المشاهدة: 675 مرات)
	المصفوفات (الدرس الثاني) المصفوفات (الدرس الثاني) (مرات المشاهدة: 1,197 مرات)
	كيف تجعل برنامجك أكثر تألقا وجمالا باستخدام أداة Active Skin كيف تجعل برنامجك أكثر تألقا وجمالا باستخدام أداة Active Skin (مرات المشاهدة: 2,410 مرات)
	طريقة حفظ العمل كبرنامج تنفيذي طريقة حفظ العمل كبرنامج تنفيذي (مرات المشاهدة: 1,469 مرات)
	التعامل مع الأخطاء التعامل مع الأخطاء (مرات المشاهدة: 681 مرات)
	التعامل مع أشرطة التمرير التعامل مع أشرطة التمرير (مرات المشاهدة: 895 مرات)
	Visual Basic (3) Visual Basic (3) (مرات المشاهدة: 360 مرات)
	الدرس الثالث.. الدرس الثالث.. (مرات المشاهدة: 328 مرات)
	معنى الخصائص ، ضبط الخصائص معنى الخصائص ، ضبط الخصائص (مرات المشاهدة: 1,150 مرات)
	مقدمة عن ربط قاعدة البيانات بالكود 2 مقدمة عن ربط قاعدة البيانات بالكود 2 (مرات المشاهدة: 1,318 مرات)

About