Hallo,
weiß jemand wie man den Wert für eine Form mit Transparents (Opacity) aus
den Settings laden kann ?
Um es kurz zu erklären... Habe in den "My.Settings.NAME" den Wert 35 und kann diesen auch ändern mit einer
TrackBar von 10 bis 100. Dieser Wert speichert sich dann in die "My.Settings.NAME".
Nun soll zugleich die Form1.Opacity diesen Wert bekommen und somit soll die Form1 also eine Transparents haben.
Nur geht dies leider nicht.
Ich habe es mit Double und String versucht wie mir VB.NET mir das gesagt hat.
Fehler entstehen nicht. Daher kann ich leider auch kein Fehler nennen.
Aktueller Code (Form1):
Aktueller Code (Form2):
Also im groben funktioniert es... allerdings halt nur die Transparents nicht
weiß jemand wie man den Wert für eine Form mit Transparents (Opacity) aus
den Settings laden kann ?
Um es kurz zu erklären... Habe in den "My.Settings.NAME" den Wert 35 und kann diesen auch ändern mit einer
TrackBar von 10 bis 100. Dieser Wert speichert sich dann in die "My.Settings.NAME".
Nun soll zugleich die Form1.Opacity diesen Wert bekommen und somit soll die Form1 also eine Transparents haben.
Nur geht dies leider nicht.
Ich habe es mit Double und String versucht wie mir VB.NET mir das gesagt hat.
Fehler entstehen nicht. Daher kann ich leider auch kein Fehler nennen.
Aktueller Code (Form1):
VB.NET-Quellcode
- Public Class Form1
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Me.Opacity = My.Settings.transparents
- Timer1.Enabled = True
- End Sub
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- Me.Opacity = My.Settings.transparents
- End Sub
- Private Sub settings_Click(sender As Object, e As EventArgs) Handles settings.Click
- Form2.Show()
- End Sub
- End Class
Aktueller Code (Form2):
VB.NET-Quellcode
- Public Class Form2
- Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- pro_change.Value = My.Settings.transparents
- pro_wert.Text = pro_change.Value
- End Sub
- 'Programm beenden
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles pro_close.Click
- Application.Exit()
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles set_close.Click
- Me.Close()
- End Sub
- Private Sub pro_change_Scroll(sender As Object, e As EventArgs) Handles pro_change.Scroll
- pro_wert.Text = pro_change.Value 'pro_wert.Text zeigt mir nur an was ich für ein wert aktuell habe
- My.Settings.transparents = pro_change.Value
- My.Settings.Save()
- My.Settings.Reload()
- 'Das mit dem .Save() und .Reload() mache ich immer.
- 'ich weiß, dass man das in den Settings einstellen kann.
- End Sub
- End Class
Also im groben funktioniert es... allerdings halt nur die Transparents nicht