Hallo, dies ist mein erstes Thread in diesem Forum, was allerdings nicht heist das ich keine Ahnung vom Programmieren habe...
Hallo, ich habe den folgenden Code, zuerst hies es er könne nicht die Datei finden (OFD2). Dann habe ich diese erstellet, sowohl TXT als auch Datei(das format) . Die Fehlermeldung ist vorbei, aber speichern tut er immernoch niciht. Ich weis in mehre TXT is relativ dämlich, aber ich kanns bisher nur so (das ja sceinbar auch nicht). Ich poste den ganzen Code, weil das ja alles zusammengehört und die Hotkeys sind mit der Methode, weil ich diese einfach finde und begreife, es nützt nicht wenn ich ne andern nehme, welche ich nicht mal begreife... Also hier der Code :
Imports System
Imports System.IO
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
Dim sr1 As New System.IO.StreamReader("OFD1")
Dim a As String
a = sr1.ReadLine
OpenFileDialog1.FileName = a
Dim sr2 As New System.IO.StreamReader("OFD2")
Dim b As String
b = sr2.ReadLine
OpenFileDialog2.FileName = b
Dim sr3 As New System.IO.StreamReader("OFD3")
Dim c As String
c = sr3.ReadLine
OpenFileDialog3.FileName = c
Dim sr4 As New System.IO.StreamReader("OFD4")
Dim d As String
d = sr4.ReadLine
OpenFileDialog4.FileName = d
Dim sr5 As New System.IO.StreamReader("OFD5")
Dim f As String
f = sr5.ReadLine
OpenFileDialog5.FileName = f
Dim sr6 As New System.IO.StreamReader("OFD6")
Dim g As String
g = sr6.ReadLine
OpenFileDialog6.FileName = g
Dim sr7 As New System.IO.StreamReader("OFD7")
Dim h As String
h = sr7.ReadLine
OpenFileDialog2.FileName = h
Dim sr8 As New System.IO.StreamReader("OFD8")
Dim i As String
i = sr8.ReadLine
OpenFileDialog8.FileName = i
Dim sr9 As New System.IO.StreamReader("OFD9")
Dim j As String
j = sr9.ReadLine
OpenFileDialog9.FileName = j
Dim sr10 As New System.IO.StreamReader("OFD10")
Dim k As String
k = sr2.ReadLine
OpenFileDialog10.FileName = k
Dim sr11 As New System.IO.StreamReader("OFD11")
Dim l As String
l = sr11.ReadLine
OpenFileDialog11.FileName = l
End Sub
Protected Overrides Sub WndProc(ByRef m As Message)
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)
Dim OFD1 As New System.IO.StreamWriter("OFD1")
OFD1.Write(OpenFileDialog1.FileName)
OFD1.Close()
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)
Dim OFD2 As New System.IO.StreamWriter("OFD2")
OFD2.Write(OpenFileDialog2.FileName)
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)
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)
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)
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)
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)
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)
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)
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)
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)
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim OFD1 As New System.IO.StreamWriter("OFD1")
OFD1.Write(OpenFileDialog1.FileName)
OFD1.Close()
Dim OFD2 As New System.IO.StreamWriter("OFD2")
OFD2.Write(OpenFileDialog2.FileName)
OFD2.Close()
Dim OFD3 As New System.IO.StreamWriter("OFD3")
OFD3.Write(OpenFileDialog3.FileName)
OFD3.Close()
Dim OFD4 As New System.IO.StreamWriter("OFD4")
OFD4.Write(OpenFileDialog4.FileName)
OFD4.Close()
Dim OFD5 As New System.IO.StreamWriter("OFD5")
OFD5.Write(OpenFileDialog5.FileName)
OFD5.Close()
Dim OFD6 As New System.IO.StreamWriter("OFD6")
OFD6.Write(OpenFileDialog6.FileName)
OFD6.Close()
Dim OFD7 As New System.IO.StreamWriter("OFD7")
OFD7.Write(OpenFileDialog7.FileName)
OFD7.Close()
Dim OFD8 As New System.IO.StreamWriter("OFD8")
OFD8.Write(OpenFileDialog8.FileName)
OFD8.Close()
Dim OFD9 As New System.IO.StreamWriter("OFD9")
OFD9.Write(OpenFileDialog9.FileName)
OFD9.Close()
Dim OFD10 As New System.IO.StreamWriter("OFD10")
OFD10.Write(OpenFileDialog10.FileName)
OFD10.Close()
Dim OFD11 As New System.IO.StreamWriter("OFD11")
OFD11.Write(OpenFileDialog11.FileName)
OFD11.Close()
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)
End Sub
End Class
