Как реализовать имитацию загрузки

@saintjeka · Регистрация: 25.12.2012

Студворк — интернет-сервис помощи студентам

Как в visual basic сделать имитацию загрузки? Если можно то как установить время имитации (ползунка)?

@Cricket93 · 30.12.2012, 10:08

Сообщение от saintjeka

загрузки

Progressbar??? Как при установке программы?
Кидаешь на форму CommandButton, timer и progressbar.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
Dim lngTime As Long
Private Sub Command1_Click()
Me.Timer1.Interval = (100)
Me.Command1.Enabled = (False)
End Sub
Private Sub Form_Load()
Me.Caption = ("Test") 'Имя заголовка формы
Me.Command1.Caption = ("Start") 'Надпись кнопки
 
'Устанавливаем свойства для ProgressBar1
With Me.ProgressBar1
.Min = (0): .Max = (100) 'Устанавливаем минимальное и максимальное значения
.Value = (0) 'По умолчанию ставим с нуля
.Appearance = (0): .BorderStyle = (1)
End With
End Sub
 
Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
 
End Sub
 
Private Sub Timer1_Timer()
lngTime = (lngTime + 1)
 
Me.ProgressBar1.Value = (lngTime)
 
If lngTime = (100) Then
Me.Timer1.Interval = (0) 'Устанавливаем интервал таймера на ноль
 
lngTime = (0) 'Обнуляем переменную
 
Me.Command1.Enabled = (True)
 
Me.ProgressBar1.Value = (0) 'Устанавливаем с нуля
 
End If
End Sub

dev.Free · 30.12.2012, 10:48

Cricket93, Офигеть ты понаписал тут, всего надо было 4 строки кода максимум!

@Cricket93 · 30.12.2012, 11:00

inv.DS, Я это для своей проги писал давно... Лень переписывать... Может ему и это пригодится

@saintjeka · 30.12.2012, 16:14 **[ТС]**

Сообщение от inv.DS

Cricket93, Офигеть ты понаписал тут, всего надо было 4 строки кода максимум!

Будь добр,напиши поменьше)

@Cricket93 · 30.12.2012, 16:23

Сообщение от saintjeka

напиши поменьше

Ну удали лишние строки и все..

@saintjeka · 30.12.2012, 17:03 **[ТС]**

Сообщение от Cricket93

Ну удали лишние строки и все..

понимаете) я дно в байсике)

@Cricket93 · 30.12.2012, 17:07

Сообщение от saintjeka

я дно в байсике

Все когда-то было дном)) Главное научится

@saintjeka · 30.12.2012, 18:17 **[ТС]**

а как же сделать что бы после окончания "загрузки" вылезало что-то типа massagebox (окошко "готово" или что-то в этом роде)

dev.Free · 30.12.2012, 18:45

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Timer1_Timer()
lngTime = (lngTime + 1)
 
Me.ProgressBar1.Value = (lngTime)
 
If lngTime = (100) Then
Me.Timer1.Interval = (0) 'Устанавливаем интервал таймера на ноль
 
lngTime = (0) 'Обнуляем переменную
 
Me.Command1.Enabled = (True)
 
Me.ProgressBar1.Value = (0) 'Устанавливаем с нуля
 
MsgBox "Готово"
 
End If
End Sub

@saintjeka · 30.12.2012, 20:00 **[ТС]**

Сообщение от inv.DS

Visual Basic
1
MsgBox "Готово"

спасибо)

@saintjeka · 02.01.2013, 04:10 **[ТС]**

Сообщение от inv.DS

Visual Basic
1
2
3
4
5
6
Private Sub Timer1_Timer()
 
MsgBox "Готово"
 
End If
End Sub

не могу поменять название окна (msgbox)....

dev.Free · 02.01.2013, 09:04

Visual Basic
1
MsgBox "Готово", , "Название окна"

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@saintjeka -7 / 0 / 0 Регистрация: 25.12.2012 Сообщений: 32

	Как реализовать имитацию загрузки 30.12.2012, 01:32. Показов 1881. Ответов 12 Метки нет (Все метки) Как в visual basic сделать имитацию загрузки? Если можно то как установить время имитации (ползунка)? 0

dev.Free Заблокирован
	30.12.2012, 10:48
	Cricket93, Офигеть ты понаписал тут, всего надо было 4 строки кода максимум! 0

@Cricket93 145 / 46 / 1 Регистрация: 06.11.2012 Сообщений: 283
	30.12.2012, 11:00
	inv.DS, Я это для своей проги писал давно... Лень переписывать... Может ему и это пригодится 0

@saintjeka -7 / 0 / 0 Регистрация: 25.12.2012 Сообщений: 32
	30.12.2012, 18:17 [ТС]
	а как же сделать что бы после окончания "загрузки" вылезало что-то типа massagebox (окошко "готово" или что-то в этом роде) 0