MY.Settings RICHTIG verwenden

Computerdepp · 17. September 2009, 21:33

Hallo, ich habe erst wenige male mit My.Settings gearbeitet und möchte diese nun einsetzen. Ich habe ein Programm gemacht, welches Openfiledialog*.filename "shelled" , diese Filename = My.Settings.**** (sonstewas)
Diese Speichere ich am Ende wie folgt :

VB.NET-Quellcode

Form1_Closing
My.Settings.Save()

Das is ja eig logisch.
Aber wenn ich es lade un d er die MY.Settings mit

VB.NET-Quellcode

My.Settings.Reload()

lädt und sie dann bestimme, also

VB.NET-Quellcode

My.Setting.**** = Openfiledialog*.filename

passiert nicht, er Hat halt :

VB.NET-Quellcode

Shell(Openfiledialog*.filename

DOch wenn ich schliesse und öffne passiert einfach nichts.
KAnn mir einer helfen ???
Ich kann auch den Code posten, aber ungern, da dieser "unaufgeräumt" ist

Thx SChonmal

Littleboy2009 · 17. September 2009, 21:51

Hi computerdepp,

code zum schreiben in my.settings (z.B.: in Form_Closing)

Quellcode

my.settings.derName = openfiledialog1.filename
my.settings.save

code zum auslesen von my.settings (z.B.: in Form_Loading)

Quellcode

dim derwert as string = my.settings.derName

derwert enthält den text in mysettings

Gruß Littleboy2009

milaim · 17. September 2009, 22:57

Also aus Erfahrung kann ich sagen, dass man mit my.Settings im Form_Load ereignis sehr aufpassen sollte. Lieber nachdem die Form geladen wurde.

Bady · 18. September 2009, 09:32

[VB 2008] [TUTORIAL] Die My.Setting Speichermethode

gs93 · 18. September 2009, 09:35

Computerdepp schrieb:

lädt und sie dann bestimme, also

VB.NET-Quellcode

My.Setting.**** = Openfiledialog*.filename

Kein Wunder, das das nicht klappt. Du weist ja der My.Settings Variable einen Wert zu und nicht dem Openfiledialog.

Computerdepp · 18. September 2009, 14:32

ICh bekomme es nicht hin ich habe

VB.NET-Quellcode

Dim f2 As String = My.Settings.f2

Schon probiert , doch es klappt nicht.
Ich habe auch schon beim Reload()

VB.NET-Quellcode

Openfiledialog1.filename = My.Settings.f2

geschriben, doch es funktioniert nicht.
Hier ist mein Code :

VB.NET-Quellcode

Public Class Form1
Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
Private Const Key_NONE As Integer = &H0
Private Const WM_HOTKEY As Integer = &H312
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NotifyIcon1.Visible = True
My.Settings.Reload()
End Sub
Protected Overrides Sub WndProc(ByRef m As Message)
My.Settings.Reload()
OpenFileDialog1.FileName = My.Settings.f2
OpenFileDialog2.FileName = My.Settings.f3
OpenFileDialog3.FileName = My.Settings.f4
OpenFileDialog4.FileName = My.Settings.f5
OpenFileDialog5.FileName = My.Settings.f6
OpenFileDialog6.FileName = My.Settings.f7
OpenFileDialog7.FileName = My.Settings.f8
OpenFileDialog8.FileName = My.Settings.f9
OpenFileDialog9.FileName = My.Settings.f10
OpenFileDialog10.FileName = My.Settings.f11
OpenFileDialog11.FileName = My.Settings.f12
If m.Msg = WM_HOTKEY Then
Select Case m.WParam
Case 1
Shell(OpenFileDialog1.FileName)
Case 2
Shell(OpenFileDialog2.FileName)
Case 3
Shell(OpenFileDialog3.FileName)
Case 4
Shell(OpenFileDialog4.FileName)
Case 5
Shell(OpenFileDialog5.FileName)
Case 6
Shell(OpenFileDialog6.FileName)
Case 7
Shell(OpenFileDialog7.FileName)
Case 8
Shell(OpenFileDialog8.FileName)
Case 9
Shell(OpenFileDialog9.FileName)
Case 10
Shell(OpenFileDialog10.FileName)
Case 11
Shell(OpenFileDialog11.FileName)
End Select
End If
MyBase.WndProc(m)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.F2)
My.Settings.f2 = OpenFileDialog1.FileName
My.Settings.Save()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
OpenFileDialog2.ShowDialog()
RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.F3)
My.Settings.f3 = OpenFileDialog2.FileName
My.Settings.Save()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
OpenFileDialog3.ShowDialog()
RegisterHotKey(Me.Handle, 3, Key_NONE, Keys.F4)
My.Settings.f4 = OpenFileDialog3.FileName
My.Settings.Save()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
OpenFileDialog4.ShowDialog()
RegisterHotKey(Me.Handle, 4, Key_NONE, Keys.F5)
My.Settings.f5 = OpenFileDialog4.FileName
My.Settings.Save()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
OpenFileDialog5.ShowDialog()
RegisterHotKey(Me.Handle, 5, Key_NONE, Keys.F6)
My.Settings.f6 = OpenFileDialog5.FileName
My.Settings.Save()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
OpenFileDialog6.ShowDialog()
RegisterHotKey(Me.Handle, 6, Key_NONE, Keys.F7)
My.Settings.f7 = OpenFileDialog6.FileName
My.Settings.Save()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog7.ShowDialog()
RegisterHotKey(Me.Handle, 7, Key_NONE, Keys.F8)
My.Settings.f8 = OpenFileDialog7.FileName
My.Settings.Save()
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
OpenFileDialog8.ShowDialog()
RegisterHotKey(Me.Handle, 8, Key_NONE, Keys.F9)
My.Settings.f9 = OpenFileDialog8.FileName
My.Settings.Save()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
OpenFileDialog9.ShowDialog()
RegisterHotKey(Me.Handle, 9, Key_NONE, Keys.F10)
My.Settings.f10 = OpenFileDialog9.FileName
My.Settings.Save()
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
OpenFileDialog10.ShowDialog()
RegisterHotKey(Me.Handle, 10, Key_NONE, Keys.F11)
My.Settings.f11 = OpenFileDialog10.FileName
My.Settings.Save()
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
OpenFileDialog11.ShowDialog()
RegisterHotKey(Me.Handle, 11, Key_NONE, Keys.F12)
My.Settings.f12 = OpenFileDialog11.FileName
My.Settings.Save()
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
UnregisterHotKey(Me.Handle, 1)
UnregisterHotKey(Me.Handle, 2)
UnregisterHotKey(Me.Handle, 3)
UnregisterHotKey(Me.Handle, 4)
UnregisterHotKey(Me.Handle, 5)
UnregisterHotKey(Me.Handle, 6)
UnregisterHotKey(Me.Handle, 7)
UnregisterHotKey(Me.Handle, 8)
UnregisterHotKey(Me.Handle, 9)
UnregisterHotKey(Me.Handle, 10)
UnregisterHotKey(Me.Handle, 11)
My.Settings.Save()
End Sub
End Class

Bitte helft mir ...

Littleboy2009 · 18. September 2009, 17:11

probier mal so:

Quellcode

Public Class Form1
private f1, f2, f3, f4, f5, f6, f7, f8 ,f9, f10, f11, f12 as string
Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
Private Const Key_NONE As Integer = &H0
Private Const WM_HOTKEY As Integer = &H312
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NotifyIcon1.Visible = True
f1 = my.settings.f1
f2 = my.settings.f2
f3 = my.settings.f3
f4 = my.settings.f4
f5 = my.settings.f5
f6 = my.settings.f6
f7 = my.settings.f7
f8 = my.settings.f8
f9 = my.settings.f9
f10 = my.settings.f10
f11 = my.settings.f11
f12 = my.settings.f12
End Sub
Protected Overrides Sub WndProc(ByRef m As Message)
OpenFileDialog1.FileName = f2
OpenFileDialog2.FileName = f3
OpenFileDialog3.FileName = f4
OpenFileDialog4.FileName = f5
OpenFileDialog5.FileName = f6
OpenFileDialog6.FileName = f7
OpenFileDialog7.FileName = f8
OpenFileDialog8.FileName = f9
OpenFileDialog9.FileName = f10
OpenFileDialog10.FileName = f11
OpenFileDialog11.FileName = f12
If m.Msg = WM_HOTKEY Then
Select Case m.WParam
Case 1
Shell(OpenFileDialog1.FileName)
Case 2
Shell(OpenFileDialog2.FileName)
Case 3
Shell(OpenFileDialog3.FileName)
Case 4
Shell(OpenFileDialog4.FileName)
Case 5
Shell(OpenFileDialog5.FileName)
Case 6
Shell(OpenFileDialog6.FileName)
Case 7
Shell(OpenFileDialog7.FileName)
Case 8
Shell(OpenFileDialog8.FileName)
Case 9
Shell(OpenFileDialog9.FileName)
Case 10
Shell(OpenFileDialog10.FileName)
Case 11
Shell(OpenFileDialog11.FileName)
End Select
End If
MyBase.WndProc(m)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.F2)
with openfiledialog2
f2 = .filename
My.Settings.f2 = f2
My.Settings.Save()
end with
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
OpenFileDialog2.ShowDialog()
RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.F3)
with openfiledialog3
f3 = .filename
My.Settings.f3 = f3
My.Settings.Save()
end with
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
OpenFileDialog3.ShowDialog()
RegisterHotKey(Me.Handle, 3, Key_NONE, Keys.F4)
with openfiledialog4
f4 = .filename
My.Settings.f4 = f4
My.Settings.Save()
end with
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
OpenFileDialog4.ShowDialog()
RegisterHotKey(Me.Handle, 4, Key_NONE, Keys.F5)
with openfiledialog5
f5 = .filename
My.Settings.f5 = f5
My.Settings.Save()
end with
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
OpenFileDialog5.ShowDialog()
RegisterHotKey(Me.Handle, 5, Key_NONE, Keys.F6)
with openfiledialog6
f6 = .filename
My.Settings.f6 = f6
My.Settings.Save()
end with
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
OpenFileDialog6.ShowDialog()
RegisterHotKey(Me.Handle, 6, Key_NONE, Keys.F7)
with openfiledialog7
f7 = .filename
My.Settings.f7 = f7
My.Settings.Save()
end with
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog7.ShowDialog()
RegisterHotKey(Me.Handle, 7, Key_NONE, Keys.F8)
with openfiledialog8
f8 = .filename
My.Settings.f8 = f8
My.Settings.Save()
end with
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
OpenFileDialog8.ShowDialog()
RegisterHotKey(Me.Handle, 8, Key_NONE, Keys.F9)
with openfiledialog9
f9 = .filename
My.Settings.f9 = f9
My.Settings.Save()
end with
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
OpenFileDialog9.ShowDialog()
RegisterHotKey(Me.Handle, 9, Key_NONE, Keys.F10)
with openfiledialog10
f10 = .filename
My.Settings.f10 = f10
My.Settings.Save()
end with
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
OpenFileDialog10.ShowDialog()
RegisterHotKey(Me.Handle, 10, Key_NONE, Keys.F11)
with openfiledialog11
f11 = .filename
My.Settings.f11 = f11
My.Settings.Save()
end with
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
OpenFileDialog11.ShowDialog()
RegisterHotKey(Me.Handle, 11, Key_NONE, Keys.F12)
with openfiledialog12
f12 = .filename
My.Settings.f12 = f12
My.Settings.Save()
end with
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles
UnregisterHotKey(Me.Handle, 1)
UnregisterHotKey(Me.Handle, 2)
UnregisterHotKey(Me.Handle, 3)
UnregisterHotKey(Me.Handle, 4)
UnregisterHotKey(Me.Handle, 5)
UnregisterHotKey(Me.Handle, 6)
UnregisterHotKey(Me.Handle, 7)
UnregisterHotKey(Me.Handle, 8)
UnregisterHotKey(Me.Handle, 9)
UnregisterHotKey(Me.Handle, 10)
UnregisterHotKey(Me.Handle, 11)
My.Settings.Save()
End Sub
End Class

müsste funktz :thumbup:

Gruß Littleboy2009

Computerdepp · 18. September 2009, 22:03

@LittleBoy2009
ne, das funktioniert leider auch nicht...
Aber trotzdem danke....
Aber ich erwarte nicht, das jeder einen fertigen COde postet.
Schliesslich möchte ich ja auch was lernen ... und nicht einfach C&P

Alex2000 · 18. September 2009, 22:16

booaaa ist das fett...

....für was brauchst du HotKeys, währe nicht einfacher die API GetAsyncKeyState zu verwenden, damit kannst du auch Systemweit tasten abfragen und bestimmte aktionen ausführen !

Computerdepp · 18. September 2009, 22:30

Kann sein

aber ich habe mich jez in das hineingedachr und da sind es ja auch systemweite hotkyes....

Alex2000 · 18. September 2009, 22:33

HotKeys würde ich einsetzen wenn um Tasten Kombinationen geht, aber für dein Vorhaben HotKeys zu verwenden finden ich absolut übertrieben.
Ich rate dir andere API zu verwenden, habe im letzten Beitrag schon geschrieben !

Littleboy2009 · 18. September 2009, 22:34

was funktz ni kriegst du ne fehlermeldung??

Computerdepp · 18. September 2009, 22:52

ne, beim erneutöffnen geht es einfach nicht...

Alex2000 · 18. September 2009, 22:54

willst du für jede Funktionstaste eine Anwendung zuweisen.
Wenn man z.b auf F9 drückt das eine Anwendung öffnet habe ich dich richtig verstanden ?

Littleboy2009 · 18. September 2009, 22:58

wenns bei dir in my.settings ni geht probier doch ma in ne textdatei zu speichern und dann beim nächsten programmstart wieder auszulesen (ich weis is fast das gleiche

aber wenn bei dir my.settings ni geht?)

Gruß Littleboy2009

Computerdepp · 19. September 2009, 10:08

1. ja , genau das issses... Ich weis is primitiv aber ich finds gut^^
2. Ähmm, ja ähh ich proobiers mal ... ich gucke mal wie das geht...^^

Littleboy2009 · 19. September 2009, 11:50

schreiben kannst mit streamwriter , gibt noch mehr möglichkeiten ...
auslsen kannste mit sreamreader, gibt noch mehr Möglichkeiten ...
8-)

Gruß Littleboy2009

MY.Settings RICHTIG verwenden

MY.Settings RICHTIG verwenden

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

Quellcode

Computerdepp schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben