[ALIGN=LEFT]اضافه نص متحرك الادوات 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 الى اللقاء الى مزيدا من الاكواد التعليمية في لغه فيجوال بيسك اكواد سهلة وبسيطة تعتبر الافضل للمبتدئين وهناك اكواد اكثر تقدما وبعضها يختص بالداتا وبرمجة الداتا سنتناولها فيما بعد انتظروا المزيد….. نرجو ان نتعاون جميعنا شكرا لكم[/ALIGN]

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

كود لجعل نموذجك كامل الشاشة [ALIGN=LEFT]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) [/ALIGN]

كود لاغلاق الفورم بشكل بطيء لاعلى من ضمن الديكورات الاضافية على شكل الفورم.... الادوات:- تو كوماندز (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 'الصق الكود هذا بنافذة الكود والادوات المطلوبة كوماند للخروج .... الى اللقاء...

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

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

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

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