Вопрос № 93902: После компилирования программы,
при пркручивании полосы прокрутки выходит сообщение : Run-time errow "6".
Private Sub Command1_Click()
End
End Sub
Private Sub HSBspeed_Change()
Txtspeed.Text = Str(HSBspeed...
Вопрос № 93.902
После компилирования программы,
при пркручивании полосы прокрутки выходит сообщение : Run-time errow "6".
Private Sub Command1_Click()
End
End Sub
Private Sub HSBspeed_Change()
Txtspeed.Text = Str(HSBspeed.Value) + “km / h”
End Sub
Private Sub Text1_Change()
End Sub
Private Sub HSBspeed_Scroll()
HSBspeed_Change
End Sub
Отвечает: Черников Игорь Владимирович
Здравствуйте, Gvarishvili Giorgi Raulievich!
Вместо строки Private Sub HSBspeed_Change()
нужно написать Function HSBspeed_Change()
и убрать "_Change"
и вместо кавычек "км / ч" вы использовали другие символы! Рекомендую перед км поставить пробел " км/ч"
Private Sub Command1_Click()
End
End Sub
Private Sub ScrollBar1_Scroll()
TextBox1.Text = Str(ScrollBar1.Value) + " km/h"
End Sub
--------- От каждого по способностям, каждому по труду
