ProgressBar
Private Sub Command1_Click()
Void = &H10A11FA0 = &HF0913FA1 = &HF10A1212 'begin
Void = &H111 = &HF01 = &HF11 'begin
Void = &HF10 = &HF09 = &HF01 'begin
ProgressBar1.Enabled = False
ProgressBar1.Value = 100
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
ProgressBar1.Value = 100
End Sub
Здравствуйте подскажите пожалуйста как сделать так чтобы ProgressBar пробегал не быстро а хотя бы 20 сек.
Visual Basic 6.0
Void = &H10A11FA0 = &HF0913FA1 = &HF10A1212 'begin
Void = &H111 = &HF01 = &HF11 'begin
Void = &HF10 = &HF09 = &HF01 'begin
ProgressBar1.Enabled = False
ProgressBar1.Value = 100
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
ProgressBar1.Value = 100
End Sub
Здравствуйте подскажите пожалуйста как сделать так чтобы ProgressBar пробегал не быстро а хотя бы 20 сек.
Visual Basic 6.0
зачем прогресс бра на такую маленькую задачу, месаджбокса не достаточно что ли, либо статус бар есть на крайний случай
Не буду конкретно на басике писать, условно покажу что надо будет сделать
Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
'тут вставляеть цикл for
for i=1 to 100
ProgressBar1.Value =i
sleep(1000)
next
End Sub
после каждой интерации, прогресу будет присваиваться значение счётчика и происходить задержка.
Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
'тут вставляеть цикл for
for i=1 to 100
ProgressBar1.Value =i
sleep(1000)
next
End Sub
после каждой интерации, прогресу будет присваиваться значение счётчика и происходить задержка.
Kuzya благодарю!
Kuzya а как думаешь,
Void = &H10A11FA0 = &HF0913FA1 = &HF10A1212 'begin
такая комбинация шестнадцатиричного кода в бэйсике устраивает?
просто я читаю и распознаю с лёгкостью шестнадцатиричный код вручную и поэтому хочу попробовать на этом!
компилятор не ругается при этом, означает ли это то что комбинация работает?
Void = &H10A11FA0 = &HF0913FA1 = &HF10A1212 'begin
такая комбинация шестнадцатиричного кода в бэйсике устраивает?
просто я читаю и распознаю с лёгкостью шестнадцатиричный код вручную и поэтому хочу попробовать на этом!
компилятор не ругается при этом, означает ли это то что комбинация работает?
Kuzya отблагодарю на киви если программа сработает, это все вопросы что и нужны были, больше вопросов нет
cronya просто нужно чтобы клиент увидел что программа сработала, поэтому и прогресс бар поставил! :)
Цитата: BagiLR
Kuzya а как думаешь,
Void = &H10A11FA0 = &HF0913FA1 = &HF10A1212 'begin
такая комбинация шестнадцатиричного кода в бэйсике устраивает?
просто я читаю и распознаю с лёгкостью шестнадцатиричный код вручную и поэтому хочу попробовать на этом!
компилятор не ругается при этом, означает ли это то что комбинация работает?
Void = &H10A11FA0 = &HF0913FA1 = &HF10A1212 'begin
такая комбинация шестнадцатиричного кода в бэйсике устраивает?
просто я читаю и распознаю с лёгкостью шестнадцатиричный код вручную и поэтому хочу попробовать на этом!
компилятор не ругается при этом, означает ли это то что комбинация работает?
не знаю, но можешь методом "научного тыка" выяснить.
Цитата: Kuzya
Цитата: BagiLR
Kuzya а как думаешь,
Void = &H10A11FA0 = &HF0913FA1 = &HF10A1212 'begin
такая комбинация шестнадцатиричного кода в бэйсике устраивает?
просто я читаю и распознаю с лёгкостью шестнадцатиричный код вручную и поэтому хочу попробовать на этом!
компилятор не ругается при этом, означает ли это то что комбинация работает?
Void = &H10A11FA0 = &HF0913FA1 = &HF10A1212 'begin
такая комбинация шестнадцатиричного кода в бэйсике устраивает?
просто я читаю и распознаю с лёгкостью шестнадцатиричный код вручную и поэтому хочу попробовать на этом!
компилятор не ругается при этом, означает ли это то что комбинация работает?
не знаю, но можешь методом "научного тыка" выяснить.
а как думаешь? Lazarus или Delphi с шестнадцатиричным кодом лучше сработают?
Цитата: BagiLR
Цитата: Kuzya
Цитата: BagiLR
Kuzya а как думаешь,
Void = &H10A11FA0 = &HF0913FA1 = &HF10A1212 'begin
такая комбинация шестнадцатиричного кода в бэйсике устраивает?
просто я читаю и распознаю с лёгкостью шестнадцатиричный код вручную и поэтому хочу попробовать на этом!
компилятор не ругается при этом, означает ли это то что комбинация работает?
Void = &H10A11FA0 = &HF0913FA1 = &HF10A1212 'begin
такая комбинация шестнадцатиричного кода в бэйсике устраивает?
просто я читаю и распознаю с лёгкостью шестнадцатиричный код вручную и поэтому хочу попробовать на этом!
компилятор не ругается при этом, означает ли это то что комбинация работает?
не знаю, но можешь методом "научного тыка" выяснить.
а как думаешь? Lazarus или Delphi с шестнадцатиричным кодом лучше сработают?
Чесно говоря, не могу понять, что ты представляешь под шеснадцатиричным кодом? Большенство ЯП работают с числами представленными в листинге в hex-виде. Их можно складывать, умножать, делить, ну и т.д. Ты бы написал, что хочешь, может и помогли бы.
BagiLR
Не трахайте мозг себе и другим.
Ваш код выше ЧЕПУХА если дословно Кухня полная.
P/S
На досуге почитайте Достоевского - Идиот (роман)
Не трахайте мозг себе и другим.
Ваш код выше ЧЕПУХА если дословно Кухня полная.
P/S
На досуге почитайте Достоевского - Идиот (роман)
OK
Цитата: UserNet2008
BagiLR
Не трахайте мозг себе и другим.
Ваш код выше ЧЕПУХА если дословно Кухня полная.
P/S
На досуге почитайте Достоевского - Идиот (роман)
Не трахайте мозг себе и другим.
Ваш код выше ЧЕПУХА если дословно Кухня полная.
P/S
На досуге почитайте Достоевского - Идиот (роман)
ОК напиши мне тогда реальный код
Цитата: UserNet2008
BagiLR
Не трахайте мозг себе и другим.
Ваш код выше ЧЕПУХА если дословно Кухня полная.
P/S
На досуге почитайте Достоевского - Идиот (роман)
Не трахайте мозг себе и другим.
Ваш код выше ЧЕПУХА если дословно Кухня полная.
P/S
На досуге почитайте Достоевского - Идиот (роман)
Сможешь разобраться с ProgressBar-ом?