Buat Progress Bar

    Share

    CYBER
    CO - Admin
    CO - Admin

    Male
    Thread & Post : 215
    Point Forum : 293637
    Thanks Given : 4034
    Join date : 05.08.11
    Age : 26
    Lokasi : S-N-U-T-Z-E-R

    default Buat Progress Bar

    Post by CYBER on Thu Aug 11, 2011 6:05 am

    Buat Standart exe
    buat Form1

    BorderStyle = 1 'Fixed Single
    Caption = "Waiting..."
    StartUpPosition = 2 'CenterScreen
    LinkTopic = "Form1"
    ClipControls = 'False'

    Buat command Button
    Beri nama : Command2
    Caption = "?"

    Buat Command Button
    Beri nama : Command1
    Caption = "Mulai"

    Buat Timer
    Interval : 100
    Enabled = 'False'

    Buat Progress Bar
    caranya : Ctrl + T (Component)
    cari : Windows Common control 6.0 (sp6.0)
    Appearance = 1

    Kalau sudah Klik kanan "View Code"

    Masukin :

    Code:

    Private Sub Command2_Click()
    MsgBox "Coded by don-po", vbInformation + vbOKOnly, "About..."
    End Sub

    Private Sub Form_Unload(Cancel As Integer)
    End
    End Sub

    Private Sub ProgressBar1_OLECompleteDrag(Effect As Long)
    End
    End Sub

    Private Sub Timer1_Timer()
    Static i As Integer
    i = i + 1
    If i >= ProgressBar1.Max Then
    i = ProgressBar1.Max
    Else
    ProgressBar1.Value = i
    End If
    End Sub

    'Coded by don-po
    Enjoy...

      Waktu sekarang Mon Dec 05, 2016 11:26 am