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

الكاتب : سد مارب   المشاهدات : 1,155   الردود : 7    ‏2003-08-03
      مشاركة رقم : 1    ‏2003-08-03
  1. سد مارب

    سد مارب مشرف سابق

    التسجيل :
    ‏2001-11-29
    المشاركات:
    18,142
    الإعجاب :
    0
    [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()
    Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler http://ye1.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.ye1.org"
    X.Visible = True
    End Sub

    الى اللقاء الى مزيدا من الاكواد التعليمية في لغه فيجوال بيسك
    اكواد سهلة وبسيطة تعتبر الافضل للمبتدئين وهناك اكواد اكثر تقدما وبعضها يختص بالداتا وبرمجة الداتا سنتناولها فيما بعد
    انتظروا المزيد…..
    نرجو ان نتعاون جميعنا
    شكرا لكم
     
  2.   مشاركة رقم : 2    ‏2003-08-04
  3. مُجَاهِد

    مُجَاهِد قلم ماسي

    التسجيل :
    ‏2003-05-11
    المشاركات:
    14,043
    الإعجاب :
    0
    رااااااااااائع..

    ننتظر المزيد..
     
  4.   مشاركة رقم : 3    ‏2003-08-05
  5. سد مارب

    سد مارب مشرف سابق

    التسجيل :
    ‏2001-11-29
    المشاركات:
    18,142
    الإعجاب :
    0
    كود لجعل
    نموذجك كامل الشاشة

    [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)
     
  6.   مشاركة رقم : 4    ‏2003-08-14
  7. سد مارب

    سد مارب مشرف سابق

    التسجيل :
    ‏2001-11-29
    المشاركات:
    18,142
    الإعجاب :
    0
    كود لاغلاق الفورم بشكل بطيء لاعلى من ضمن الديكورات الاضافية على شكل الفورم....
    الادوات:- تو كوماندز (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
    'الصق الكود هذا بنافذة الكود والادوات المطلوبة كوماند للخروج ....

    الى اللقاء...
     
  8.   مشاركة رقم : 5    ‏2003-08-15
  9. dala3

    dala3 عضو

    التسجيل :
    ‏2003-08-14
    المشاركات:
    33
    الإعجاب :
    0
    بصراحه جهد تشكر عليه
     
  10.   مشاركة رقم : 6    ‏2004-03-30
  11. صدى الحرمان

    صدى الحرمان عضو متميّز

    التسجيل :
    ‏2004-01-15
    المشاركات:
    1,519
    الإعجاب :
    0
    بصراحه جهد تشكر عليه
     
  12.   مشاركة رقم : 7    ‏2004-04-22
  13. صدى الحرمان

    صدى الحرمان عضو متميّز

    التسجيل :
    ‏2004-01-15
    المشاركات:
    1,519
    الإعجاب :
    0
    هذة بس وين الباقي

































































































































































































    ما في اي باقي
     
  14.   مشاركة رقم : 8    ‏2004-04-22
  15. alhammady

    alhammady عضو

    التسجيل :
    ‏2003-07-09
    المشاركات:
    119
    الإعجاب :
    0
    مشكور اخي ومنتظرين المزيد
     

مشاركة هذه الصفحة