31 Декабрь 2008

Как работать с Прогресс бар?

ProgressBar |  Таги: , ,

Как работать с Прогресс бар?
- CommonDialog(Microsoft Common Dialog Control 6.0);
- ProgressBar(Microsoft Windows Common Controls 6.0);

Option Explicit

Private Sub Command1_Click()
Dim a As String
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName For Binary As 1
    ProgressBar1.Min = 1
    ProgressBar1.Max = LOF(1)
    Text1.Text = CommonDialog1.FileTitle
    Do While Not Loc(1) = LOF(1)
        a = Input$(1, #1)
        ProgressBar1.Value = Loc(1)
    Loop
End If
Close
End Sub

Private Sub Form_Terminate()
Unload Me
End
End Sub

Запись опубликована on 31.12.2008 at 9:00 и размещена в рубрике: ProgressBar. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



У нас куча комментариев (3) на запись “Как работать с Прогресс бар?”

Почему бы Вам не высказать свое мнение! Позвольте нам узнать, что Вы думаете...

  1. 1 On 10.11.2009, Ramzess said:

    Интересненько… Пояснения бы к коду ещё увидеть…

  2. 2 On 16.11.2009, Александр said:

    Вам и так готовый код дают, хоть не много бы напряглись, поэкспериментировали, научились бы сами.
    Учитесь, в этом нет ни чего сложного.

  3. 3 On 16.03.2010, Дмитрий said:

    Не просто програмистам вроде как положено коментарии писать. А разбираться в этом можно, но время жутко убивается…..а как вижу это Visual Pro Editions Controll…не совсем бейзик — в нем больше объектно-ориентированного программирования.

Оставить комментарий

Я не робот.