.txt Speicher Methode

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Computerdepp.

    .txt Speicher Methode

    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 :

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Public Class Form1
    4. Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
    5. Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
    6. Private Const Key_NONE As Integer = &H0
    7. Private Const WM_HOTKEY As Integer = &H312
    9. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. NotifyIcon1.Visible = True
    11. Dim sr1 As New System.IO.StreamReader("OFD1")
    12. Dim a As String
    13. a = sr1.ReadLine
    14. OpenFileDialog1.FileName = a
    15. Dim sr2 As New System.IO.StreamReader("OFD2")
    16. Dim b As String
    17. b = sr2.ReadLine
    18. OpenFileDialog2.FileName = b
    19. Dim sr3 As New System.IO.StreamReader("OFD3")
    20. Dim c As String
    21. c = sr3.ReadLine
    22. OpenFileDialog3.FileName = c
    23. Dim sr4 As New System.IO.StreamReader("OFD4")
    24. Dim d As String
    25. d = sr4.ReadLine
    26. OpenFileDialog4.FileName = d
    27. Dim sr5 As New System.IO.StreamReader("OFD5")
    28. Dim f As String
    29. f = sr5.ReadLine
    30. OpenFileDialog5.FileName = f
    31. Dim sr6 As New System.IO.StreamReader("OFD6")
    32. Dim g As String
    33. g = sr6.ReadLine
    34. OpenFileDialog6.FileName = g
    35. Dim sr7 As New System.IO.StreamReader("OFD7")
    36. Dim h As String
    37. h = sr7.ReadLine
    38. OpenFileDialog2.FileName = h
    39. Dim sr8 As New System.IO.StreamReader("OFD8")
    40. Dim i As String
    41. i = sr8.ReadLine
    42. OpenFileDialog8.FileName = i
    43. Dim sr9 As New System.IO.StreamReader("OFD9")
    44. Dim j As String
    45. j = sr9.ReadLine
    46. OpenFileDialog9.FileName = j
    47. Dim sr10 As New System.IO.StreamReader("OFD10")
    48. Dim k As String
    49. k = sr2.ReadLine
    50. OpenFileDialog10.FileName = k
    51. Dim sr11 As New System.IO.StreamReader("OFD11")
    52. Dim l As String
    53. l = sr11.ReadLine
    54. OpenFileDialog11.FileName = l
    57. End Sub
    58. Protected Overrides Sub WndProc(ByRef m As Message)
    63. If m.Msg = WM_HOTKEY Then
    65. Select Case m.WParam
    66. Case 1
    67. Shell(OpenFileDialog1.FileName)
    68. Case 2
    69. Shell(OpenFileDialog2.FileName)
    70. Case 3
    71. Shell(OpenFileDialog3.FileName)
    72. Case 4
    73. Shell(OpenFileDialog4.FileName)
    74. Case 5
    75. Shell(OpenFileDialog5.FileName)
    76. Case 6
    77. Shell(OpenFileDialog6.FileName)
    78. Case 7
    79. Shell(OpenFileDialog7.FileName)
    80. Case 8
    81. Shell(OpenFileDialog8.FileName)
    82. Case 9
    83. Shell(OpenFileDialog9.FileName)
    84. Case 10
    85. Shell(OpenFileDialog10.FileName)
    86. Case 11
    87. Shell(OpenFileDialog11.FileName)
    93. End Select
    94. End If
    95. MyBase.WndProc(m)
    96. End Sub
    97. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    98. OpenFileDialog1.ShowDialog()
    99. RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.F2)
    100. Dim OFD1 As New System.IO.StreamWriter("OFD1")
    101. OFD1.Write(OpenFileDialog1.FileName)
    102. OFD1.Close()
    103. End Sub
    105. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    106. OpenFileDialog2.ShowDialog()
    107. RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.F3)
    108. Dim OFD2 As New System.IO.StreamWriter("OFD2")
    109. OFD2.Write(OpenFileDialog2.FileName)
    110. End Sub
    112. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    113. OpenFileDialog3.ShowDialog()
    114. RegisterHotKey(Me.Handle, 3, Key_NONE, Keys.F4)
    116. End Sub
    118. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    119. OpenFileDialog4.ShowDialog()
    120. RegisterHotKey(Me.Handle, 4, Key_NONE, Keys.F5)
    122. End Sub
    125. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    126. OpenFileDialog5.ShowDialog()
    127. RegisterHotKey(Me.Handle, 5, Key_NONE, Keys.F6)
    129. End Sub
    131. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    132. OpenFileDialog6.ShowDialog()
    133. RegisterHotKey(Me.Handle, 6, Key_NONE, Keys.F7)
    136. End Sub
    138. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    139. OpenFileDialog7.ShowDialog()
    140. RegisterHotKey(Me.Handle, 7, Key_NONE, Keys.F8)
    142. End Sub
    144. Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
    145. OpenFileDialog8.ShowDialog()
    146. RegisterHotKey(Me.Handle, 8, Key_NONE, Keys.F9)
    148. End Sub
    150. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    151. OpenFileDialog9.ShowDialog()
    152. RegisterHotKey(Me.Handle, 9, Key_NONE, Keys.F10)
    154. End Sub
    156. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    157. OpenFileDialog10.ShowDialog()
    158. RegisterHotKey(Me.Handle, 10, Key_NONE, Keys.F11)
    161. End Sub
    163. Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    164. OpenFileDialog11.ShowDialog()
    165. RegisterHotKey(Me.Handle, 11, Key_NONE, Keys.F12)
    167. End Sub
    170. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    171. Dim OFD1 As New System.IO.StreamWriter("OFD1")
    172. OFD1.Write(OpenFileDialog1.FileName)
    173. OFD1.Close()
    174. Dim OFD2 As New System.IO.StreamWriter("OFD2")
    175. OFD2.Write(OpenFileDialog2.FileName)
    176. OFD2.Close()
    177. Dim OFD3 As New System.IO.StreamWriter("OFD3")
    178. OFD3.Write(OpenFileDialog3.FileName)
    179. OFD3.Close()
    180. Dim OFD4 As New System.IO.StreamWriter("OFD4")
    181. OFD4.Write(OpenFileDialog4.FileName)
    182. OFD4.Close()
    183. Dim OFD5 As New System.IO.StreamWriter("OFD5")
    184. OFD5.Write(OpenFileDialog5.FileName)
    185. OFD5.Close()
    186. Dim OFD6 As New System.IO.StreamWriter("OFD6")
    187. OFD6.Write(OpenFileDialog6.FileName)
    188. OFD6.Close()
    189. Dim OFD7 As New System.IO.StreamWriter("OFD7")
    190. OFD7.Write(OpenFileDialog7.FileName)
    191. OFD7.Close()
    192. Dim OFD8 As New System.IO.StreamWriter("OFD8")
    193. OFD8.Write(OpenFileDialog8.FileName)
    194. OFD8.Close()
    195. Dim OFD9 As New System.IO.StreamWriter("OFD9")
    196. OFD9.Write(OpenFileDialog9.FileName)
    197. OFD9.Close()
    198. Dim OFD10 As New System.IO.StreamWriter("OFD10")
    199. OFD10.Write(OpenFileDialog10.FileName)
    200. OFD10.Close()
    201. Dim OFD11 As New System.IO.StreamWriter("OFD11")
    202. OFD11.Write(OpenFileDialog11.FileName)
    203. OFD11.Close()
    207. UnregisterHotKey(Me.Handle, 1)
    208. UnregisterHotKey(Me.Handle, 2)
    209. UnregisterHotKey(Me.Handle, 3)
    210. UnregisterHotKey(Me.Handle, 4)
    211. UnregisterHotKey(Me.Handle, 5)
    212. UnregisterHotKey(Me.Handle, 6)
    213. UnregisterHotKey(Me.Handle, 7)
    214. UnregisterHotKey(Me.Handle, 8)
    215. UnregisterHotKey(Me.Handle, 9)
    216. UnregisterHotKey(Me.Handle, 10)
    217. UnregisterHotKey(Me.Handle, 11)
    219. End Sub
    224. End Class


    Thx Schonmal an Alle und wer nur meckern will, der soll einfach RUHIG sein.
    Thx^^

    Ähm ja sry :D :D
    Also ich habe eine Form mit glaub 11 Openfiledialogs, welche den .exe Pfad angeben. Dieser soll dann auf den Tasten F2-F12 ausgeführt werden. Das gibz zwar wahrscheilich schon 10000mal aber5 ich finds gut.
    Un den Pfad speichere ich halt im Txt Dokumennt