TrackBar.Scroll イベント (ID:146350)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 メソッドをつくることでうまく動きました。 しかし、今度はマウスでバーを操作しても反応しなくなりました。 それでTrackBar1_ ValueChanged イベントも設定すると 思った動きを実現できました。 しかし、同じコードをメソッドとイベントに書くのは不自然な感じがするのですがいかがなものでしょう？ スクロール速度をバーで調節するイベント Private Sub TrackBar1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged Dim newspeed As Integer = 1 * TrackBar1.Value Dim newspeed2 As Integer = 1 * TrackBar1.Value Timer1.Interval = newspeed Timer2.Interval = newspeed2 End Sub スクロール速度を調節するメソッド Private Sub speed() Dim newspeed As Integer = 1 * TrackBar1.Value Dim newspeed2 As Integer = 1 * TrackBar1.Value Timer1.Interval = newspeed Timer2.Interval = newspeed2 End Sub