سلسله من اكواد VB التعليمية

[سد مارب]

اضافه نص متحرك
الادوات 2 TIMER AND LEBEL
' ضع هذا الكود في الفورم
Dim Llabel As Integer

Private Sub Form_Load()
Form1.ScaleMode = 3
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Llabel = Llabel + 10
Label1.Left = Llabel
If Llabel > 300 Then
Timer1.Interval = 0
Timer2.Interval = 100
End If
End Sub

Private Sub Timer2_Timer()
Llabel = Llabel - 10
Label1.Left = Llabel
If Llabel < 0 Then
Timer1.Interval = 100
Timer2.Interval = 0
End If
End Sub

********

لاضافه ملف صوتي من نوع MDI
Private Sub Form_Load()
MMControl1.Visible = False
MMControl1.DeviceType = "sequencer"
MMControl1.FileName = ("c:\FileName.mid")
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub
*****
حذف اي ملف
Private Sub Command1_Click()
Kill ("C:\FileName.fnm")
End Sub
****
اضافة ملف جديد
Private Sub Command1_Click()
open "c:\FileName.txt" for append as #1
Print #1,"Willkommen auf die Erde"
Close #1
End Sub
*****
معرفة الوقت والتاريخ
الادوات timer +lebel
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1 = Time & Date
End Sub
****
فتح صفحة انترنت
الادوات تو كوماند2 command
' ضع هذا الكود في الفورم
Private Sub Command1_Click()
****l "RUNDLL32.EXE URL.DLL,FileProtocolHandler http://al-yemen.org/vb/forumdisplay.php?forumid=42", vbNormalFocus
End Sub

Private Sub Command2_Click()
Dim X As Object
Set X = CreateObject("InternetExplorer.Application")
X.Navigate "www.al-yemen.com"
X.Visible = True
End Sub

الى اللقاء الى مزيدا من الاكواد التعليمية في لغه فيجوال بيسك
اكواد سهلة وبسيطة تعتبر الافضل للمبتدئين وهناك اكواد اكثر تقدما وبعضها يختص بالداتا وبرمجة الداتا سنتناولها فيما بعد
انتظروا المزيد…..
نرجو ان نتعاون جميعنا
شكرا لكم

[مُجَاهِد]

رااااااااااائع..

ننتظر المزيد..

[سد مارب]

كود لجعل
نموذجك كامل الشاشة

Private 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
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Const HWND_TOP = 0
Const SWP_SHOWWINDOW = &H40 الشفرة
Dim cx As Long
Dim cy As Long
Dim RetVal As Long
' Determine if screen is already maximized.
If Me.WindowState = vbMaximized Then
' Set window to normal size
Me.WindowState = vbNormal
End If ' Get full screen width.
cx = GetSystemMetrics(SM_CXSCREEN) ' Get full screen height.
cy = GetSystemMetrics(SM_CYSCREEN)
' Call API to set new size of window.
RetVal = SetWindowPos(Me.hwnd, HWND_TOP, 0, 0, cx, cy, SWP_SHOWWINDOW)

[سد مارب]

كود لاغلاق الفورم بشكل بطيء لاعلى من ضمن الديكورات الاضافية على شكل الفورم....
الادوات:- تو كوماندز (2) وبقية الموثرات على الفورم من خلال الخصائص كم تشاء
للمبتدئين

Private Sub Command1_Click()
msg = MsgBox("هل ترغب بالخروج", vbOKCancel, "خروج")
If msg = vbOK Then
For I = 1 To 9000
For J = 1 To 4000
Next
Form1.Height = Form1.Height - 1
Next I
Unload Me
End If
End Sub

Private Sub Form_Load()
Form1.WindowState = 0
Form1.Width = 12000
Form1.Height = 9000
End Sub
'الصق الكود هذا بنافذة الكود والادوات المطلوبة كوماند للخروج ....

الى اللقاء...

[dala3]

بصراحه جهد تشكر عليه

[صدى الحرمان]

بصراحه جهد تشكر عليه

[صدى الحرمان]

هذة بس وين الباقي

































































































































































































ما في اي باقي

[alhammady]

مشكور اخي ومنتظرين المزيد