предположил, что это HScrollbar1
HSCrollBar1.Maximum = 19
HSCrollBar1.Minimum = -10
HSCrollBar1.SmallChange = 1
И changedvalue событие
Private Sub HScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBar1.ValueChanged
txtRangeSpread.Text = Format(HScrollBar1.Value)
End Sub
Чтобы связать как текстовое поле и скроллбар .. может быть, вы можете сделать это в случае загрузки формы или активировать событие или, может быть, кнопка щелчка события. .
txtRangeSpread.Text = "0"
HScollBar1.Value = val(txtRangeSpread.Text)
Привет, это для рабочего стола или Интернета? – MindingData
Спасибо, это для рабочего стола. Я работаю над формой окна. –