アプリケーションを終了して再び開いたときに不透明度を変更したい場合は、トラックバーの値から設定した不透明度に戻してくださいここでは...再起動後も不透明度を同じに保ちたい場合
http://imgur.com/gallery/yK3no
Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
Me.Opacity = TrackBar1.Value * 0.01
Form1.Opacity = TrackBar1.Value * 0.01
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label5.Text = TrackBar1.Value
// this is the Label showing the value of track bar 1 which you'll see in the images.
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
My.Settings.Default("Settings") = "Some Value"
My.Settings.Default.Save()
//here is the settings in properties to save the value on exit however doesn't work... any ideas?
End Sub
End Class
私は今それまで
Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
Me.Opacity = TrackBar1.Value * 0.01
Form1.Opacity = TrackBar1.Value * 0.01
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label5.Text = TrackBar1.Value
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If Label5.Text = TrackBar1.Value Then
My.Settings.Opacity = TrackBar1.Value * 0.01
End If
End Sub
End Class
あなたは 'Integer'として不透明度を保存しているが、内部的に浮動小数点値(どちらか' Single'、 'Double'、または' Decimal')です。どこでも同じデータ型を使用するようにしてください。 – Dai