KeyBinder ohne Timer?

  • VB.NET

Es gibt 29 Antworten in diesem Thema. Der letzte Beitrag () ist von DexXxo.

    KeyBinder ohne Timer?

    Hey Community,
    ich hätte da mal eine Frage.
    Und zwar geht es darum, dass ich gerne bei KeyBinder usw ohne Timer arbeiten möchte da dies sehr auf den CPU geht.
    Bin für jeden Vorschlag offen :)

    Mein Problem bei einem Timer ist zb wenn ich die Taste drücke damit er den text eingibt den ich haben möchte dann spammt er den ein paar mal und wenn ich die Interval hör stelle muss ich erst zb 5 Sekunden die taste gedrückt halten damit, wer den Text schreibt :)

    Bei weitern und genaueren Fragen könnt Ihr sie gerne stellen :)

    Beispiel: Sobald ich eine Taste gedrückt habe soll ich erst wieder los lassen müssen damit er den text noch einmal schreibt. Hoffentlich verständlich :)

    LG

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DexXxo“ ()

    Also wenn es um Tastenkombinationen (Strg, Shift oder Alt) geht, dann kannst Du die Win32-API "RegisterHotKey" verwenden.
    ErfinderDesRades hat hier im Sourcecode-Austausch eine Wrapper-Klasse vorgestellt.
    Eine leicht abgewandelte Version findest du hier.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Ahhh habes es jetzt :D

    VB.NET-Quellcode

    1. ​Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    3. If GetAsyncKeyState(Keys.NumPad1) = -32767 Then
    5. TextBox1.Text += "Test"
    7. End If
    8. End Sub

    Damit spammt er nur 1 mal den text egal auf was der interval steht also ich muss die taste erst einmal wieder "loslassen"

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DexXxo“ ()

    Äääh, nö. Wenn das bei Dir passiert, dann ist das entweder Glück oder ein systematischer Zufall.
    Auf welchen Intervall hast Du den Timer gestellt?
    Halte die Taste mal länger gedrückt.
    GetAsyncKeyState gibt das zurück:

    Quellcode

    1. (Zeit von oben nach unten)
    2. 0 // Nicht gedrückt
    3. 0
    4. 0
    5. -32767 // Gerade eben gedrückt
    6. -32767
    7. -32768 // Gedrückt und wartet auf Anschlagwiederholung
    8. -32768
    9. -32768
    10. -32768
    11. -32768
    12. -32767 // Gedrückt und Anschlagwiederholung
    13. -32767
    14. -32767
    15. -32767
    16. -32767
    17. -32767
    18. 1 // Gerade losgelassen
    19. 1
    20. 0 // Nicht gedrückt
    21. 0
    22. 0
    Wie oft die Werte wiederholt werden, hängt davon ab, wie oft der Timer die Funktion aufruft.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Also der Interval ist auf "1" und ich aber aber, dass erreicht was ich haben wollte und zwar, dass er nicht wenn ich zb 1 sekunde lang drücke das er dann 100 mal den text spammt ^^ Ja wenn ich die taste länger gedrückt halte spammt er auch weiter ist mir klar aber das dauert dann erst ein paar sekunden ^^ Habe jetzt aber auch schon ein neues Problem wobei du mir könntest helfen :)

    Also ich fange mal an. Ich habe in der Form_load folgenes stehen:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    3. For Each cb As ComboBox In Me.Controls.OfType(Of ComboBox)()
    4. cb.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    5. Next
    6. End Sub


    So und nun wenn ich die Keys speichern möchte um sie dann beim programm neustart wieder laden zu können crasht das programm immer, weil er dann den Key doppelt in die ComboBox lädt wie kann ich machen das er den Key aus der Combox einfach Selecten soll anstatt einen neuen aufzulisten ?

    HIER DER SAVE/LOAD TEIL:

    VB.NET-Quellcode

    1. ​Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
    2. Dim fileno As Integer
    3. fileno = FreeFile()
    4. FileOpen(fileno, "C:\keys-befehle.txt", OpenMode.Output, OpenAccess.Write, OpenShare.LockWrite)
    5. PrintLine(fileno, TextBox1.Text)
    6. PrintLine(fileno, TextBox2.Text)
    7. PrintLine(fileno, TextBox3.Text)
    8. PrintLine(fileno, TextBox4.Text)
    9. PrintLine(fileno, TextBox5.Text)
    10. PrintLine(fileno, TextBox6.Text)
    11. PrintLine(fileno, TextBox7.Text)
    12. PrintLine(fileno, TextBox8.Text)
    13. PrintLine(fileno, TextBox9.Text)
    14. PrintLine(fileno, TextBox10.Text)
    15. PrintLine(fileno, TextBox11.Text)
    16. PrintLine(fileno, TextBox12.Text)
    17. PrintLine(fileno, TextBox13.Text)
    18. PrintLine(fileno, TextBox14.Text)
    19. PrintLine(fileno, TextBox15.Text)
    20. PrintLine(fileno, TextBox16.Text)
    21. PrintLine(fileno, TextBox17.Text)
    22. PrintLine(fileno, TextBox18.Text)
    23. PrintLine(fileno, TextBox19.Text)
    24. PrintLine(fileno, TextBox20.Text)
    25. PrintLine(fileno, TextBox21.Text)
    26. PrintLine(fileno, TextBox22.Text)
    27. PrintLine(fileno, TextBox23.Text)
    28. PrintLine(fileno, TextBox24.Text)
    29. PrintLine(fileno, TextBox25.Text)
    30. PrintLine(fileno, TextBox26.Text)
    31. PrintLine(fileno, ComboBox1.SelectedItem)
    32. PrintLine(fileno, ComboBox2.SelectedItem)
    33. PrintLine(fileno, ComboBox3.SelectedItem)
    34. PrintLine(fileno, ComboBox4.SelectedItem)
    35. PrintLine(fileno, ComboBox5.SelectedItem)
    36. PrintLine(fileno, ComboBox6.SelectedItem)
    37. PrintLine(fileno, ComboBox7.SelectedItem)
    38. PrintLine(fileno, ComboBox8.SelectedItem)
    39. PrintLine(fileno, ComboBox9.SelectedItem)
    40. PrintLine(fileno, ComboBox10.SelectedItem)
    41. PrintLine(fileno, ComboBox11.SelectedItem)
    42. PrintLine(fileno, ComboBox12.SelectedItem)
    43. PrintLine(fileno, ComboBox13.SelectedItem)
    44. PrintLine(fileno, ComboBox14.SelectedItem)
    45. PrintLine(fileno, ComboBox15.SelectedItem)
    46. PrintLine(fileno, ComboBox16.SelectedItem)
    47. PrintLine(fileno, ComboBox17.SelectedItem)
    48. PrintLine(fileno, ComboBox18.SelectedItem)
    49. PrintLine(fileno, ComboBox19.SelectedItem)
    50. PrintLine(fileno, ComboBox20.SelectedItem)
    51. PrintLine(fileno, ComboBox21.SelectedItem)
    52. PrintLine(fileno, ComboBox22.SelectedItem)
    53. PrintLine(fileno, ComboBox23.SelectedItem)
    54. PrintLine(fileno, ComboBox24.SelectedItem)
    55. PrintLine(fileno, ComboBox25.SelectedItem)
    56. PrintLine(fileno, ComboBox26.SelectedItem)
    57. MessageBox.Show("Erfolgreich gespeichert.")
    58. End Sub
    60. Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
    61. Dim fileno As Integer
    62. fileno = FreeFile()
    63. FileOpen(fileno, "C:\keys-befehle.txt", OpenMode.Input, OpenAccess.Read, OpenShare.LockRead)
    64. PrintLine(fileno, TextBox1.Text)
    65. PrintLine(fileno, TextBox2.Text)
    66. PrintLine(fileno, TextBox3.Text)
    67. PrintLine(fileno, TextBox4.Text)
    68. PrintLine(fileno, TextBox5.Text)
    69. PrintLine(fileno, TextBox6.Text)
    70. PrintLine(fileno, TextBox7.Text)
    71. PrintLine(fileno, TextBox8.Text)
    72. PrintLine(fileno, TextBox9.Text)
    73. PrintLine(fileno, TextBox10.Text)
    74. PrintLine(fileno, TextBox11.Text)
    75. PrintLine(fileno, TextBox12.Text)
    76. PrintLine(fileno, TextBox13.Text)
    77. PrintLine(fileno, TextBox14.Text)
    78. PrintLine(fileno, TextBox15.Text)
    79. PrintLine(fileno, TextBox16.Text)
    80. PrintLine(fileno, TextBox17.Text)
    81. PrintLine(fileno, TextBox18.Text)
    82. PrintLine(fileno, TextBox19.Text)
    83. PrintLine(fileno, TextBox20.Text)
    84. PrintLine(fileno, TextBox21.Text)
    85. PrintLine(fileno, TextBox22.Text)
    86. PrintLine(fileno, TextBox23.Text)
    87. PrintLine(fileno, TextBox24.Text)
    88. PrintLine(fileno, TextBox25.Text)
    89. PrintLine(fileno, TextBox26.Text)
    90. PrintLine(fileno, ComboBox1.Text)
    91. PrintLine(fileno, ComboBox2.Text)
    92. PrintLine(fileno, ComboBox3.Text)
    93. PrintLine(fileno, ComboBox4.Text)
    94. PrintLine(fileno, ComboBox5.Text)
    95. PrintLine(fileno, ComboBox6.Text)
    96. PrintLine(fileno, ComboBox7.Text)
    97. PrintLine(fileno, ComboBox8.Text)
    98. PrintLine(fileno, ComboBox9.Text)
    99. PrintLine(fileno, ComboBox10.Text)
    100. PrintLine(fileno, ComboBox11.Text)
    101. PrintLine(fileno, ComboBox12.Text)
    102. PrintLine(fileno, ComboBox13.Text)
    103. PrintLine(fileno, ComboBox14.Text)
    104. PrintLine(fileno, ComboBox15.Text)
    105. PrintLine(fileno, ComboBox16.Text)
    106. PrintLine(fileno, ComboBox17.Text)
    107. PrintLine(fileno, ComboBox18.Text)
    108. PrintLine(fileno, ComboBox19.Text)
    109. PrintLine(fileno, ComboBox20.Text)
    110. PrintLine(fileno, ComboBox21.Text)
    111. PrintLine(fileno, ComboBox22.Text)
    112. PrintLine(fileno, ComboBox23.Text)
    113. PrintLine(fileno, ComboBox24.Text)
    114. PrintLine(fileno, ComboBox25.Text)
    115. PrintLine(fileno, ComboBox26.Text)
    116. MessageBox.Show("Erfolgreich geladen.")
    117. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DexXxo“ ()

    Code numero 1 kann man vereinfachen:

    VB.NET-Quellcode

    1. For Each cb As ComboBox In Me.Controls.OfType(Of ComboBox)()
    2. cb.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, _
    3. Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    4. Next


    Generell kannst du deinen Code extrem reduzieren in dem du das in For Each realisierst.
    Den Ansatz haste ja jetzt oben. Wegen dem GetAsyncKeyState Problem muss ich mal nachschauen. Entweder du baust dir was mit RegisterHotKey
    oder du machst es mit nem KeyboardHook. Ich schaus mir nochmal an.

    MfG Tim

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Fortender“ ()

    Achso.
    Nun ja. Ich checke zwar dein Auslesealgorithmus nicht, aber ich vermute du liest Zeile für Zeile aus und
    gehst dann nacheinander die Comboboxen/Textboxen durch und addest dann immer die aktuelle Zeile.
    Du lässt dir das eben nicht direkt in die Liste des jeweiligen Controls schreiben, sondern überprüfst damit welchem
    Index in den Combobox-Items der ausgelesene "Wert" zugeordnet ist.
    Das kann man per IndexOf realisieren:

    VB.NET-Quellcode

    1. ​
    2. Combobox.SelectedIndex = Combobox.Items.IndexOf([Wert_der_in_der_Line_steht])

    Ich hab ja in eine Datei noch nie so verarbeitet wie du das gemacht hast. Das ist mir neu :D
    Ich arbeite normalerweise bei sowas mit IO.StreamReader und IO.StreamWriter.
    Aber musst du wissen.

    MfG Tim

    Also das mit dem ComboBox1.SelectedIndex hatte ich auch schon herausgefunden aber wie kann ich machen das der Index wieder rein geladen wird? Und wie funktioniert das mit

    VB.NET-Quellcode

    1. Combobox.SelectedIndex = Combobox.Items.IndexOf([Wert_der_in_der_Line_steht])
    Verstehe nicht ganz was du damit meinst "Wert_Der_in_der_Line_steht" ? :/

    DexXxo schrieb:

    Damit spammt er nur 1 mal den text egal auf was der interval steht also ich muss die taste erst einmal wieder "loslassen"

    Aus dieser Zeile entnehme ich, dass Du diesen Code verwendest und der bei Dir dafür sorgt, dass pro Klick einmal der Text in die TextBox eingefügt wird.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Naja.. Du liest ja eine Textdatei aus. Und die vermutlich Zeile für Zeile. Und das was du da rausbekommst darfst
    du nicht direkt in die Items der Combobox schmeißen sondern selektierst den Wert einfach nur.
    Es wäre schön wenn mir mal deinen Schreib-und Lesealgorithmus erläuterst oder deinen gesamten code postest.
    Mfg Tim

    @Fortender Hier ist der "riesen" Code :D Das mit deiner For each schleife gibt mir erros bzw der Client Crashed warum auch immer aber hier kannste dir ja mal den ganzen "crab" Code angucken ^^

    Quellcode

    1. Public Class Form1
    2. Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
    3. Private Sub TmrCheck_Tick(sender As System.Object, e As System.EventArgs) Handles TmrCheck.Tick
    4. If GetAsyncKeyState(DirectCast(Me.ComboBox1.SelectedItem, Keys)) = -32767 And CheckBox1.Checked Then
    5. My.Computer.Keyboard.SendKeys("t")
    6. My.Computer.Keyboard.SendKeys(TextBox1.Text)
    7. My.Computer.Keyboard.SendKeys("{ENTER}")
    8. End If
    9. If GetAsyncKeyState(DirectCast(Me.ComboBox2.SelectedItem, Keys)) = -32767 And CheckBox2.Checked Then
    10. My.Computer.Keyboard.SendKeys("t")
    11. My.Computer.Keyboard.SendKeys(TextBox2.Text)
    12. My.Computer.Keyboard.SendKeys("{ENTER}")
    13. End If
    14. If GetAsyncKeyState(DirectCast(Me.ComboBox3.SelectedItem, Keys)) = -32767 And CheckBox3.Checked Then
    15. My.Computer.Keyboard.SendKeys("t")
    16. My.Computer.Keyboard.SendKeys(TextBox3.Text)
    17. My.Computer.Keyboard.SendKeys("{ENTER}")
    18. End If
    19. If GetAsyncKeyState(DirectCast(Me.ComboBox4.SelectedItem, Keys)) = -32767 And CheckBox4.Checked Then
    20. My.Computer.Keyboard.SendKeys("t")
    21. My.Computer.Keyboard.SendKeys(TextBox4.Text)
    22. My.Computer.Keyboard.SendKeys("{ENTER}")
    23. End If
    24. If GetAsyncKeyState(DirectCast(Me.ComboBox5.SelectedItem, Keys)) = -32767 And CheckBox5.Checked Then
    25. My.Computer.Keyboard.SendKeys("t")
    26. My.Computer.Keyboard.SendKeys(TextBox5.Text)
    27. My.Computer.Keyboard.SendKeys("{ENTER}")
    28. End If
    29. If GetAsyncKeyState(DirectCast(Me.ComboBox6.SelectedItem, Keys)) = -32767 And CheckBox6.Checked Then
    30. My.Computer.Keyboard.SendKeys("t")
    31. My.Computer.Keyboard.SendKeys(TextBox6.Text)
    32. My.Computer.Keyboard.SendKeys("{ENTER}")
    33. End If
    34. If GetAsyncKeyState(DirectCast(Me.ComboBox7.SelectedItem, Keys)) = -32767 And CheckBox7.Checked Then
    35. My.Computer.Keyboard.SendKeys("t")
    36. My.Computer.Keyboard.SendKeys(TextBox7.Text)
    37. My.Computer.Keyboard.SendKeys("{ENTER}")
    38. End If
    39. If GetAsyncKeyState(DirectCast(Me.ComboBox8.SelectedItem, Keys)) = -32767 And CheckBox8.Checked Then
    40. My.Computer.Keyboard.SendKeys("t")
    41. My.Computer.Keyboard.SendKeys(TextBox8.Text)
    42. My.Computer.Keyboard.SendKeys("{ENTER}")
    43. End If
    44. If GetAsyncKeyState(DirectCast(Me.ComboBox9.SelectedItem, Keys)) = -32767 And CheckBox9.Checked Then
    45. My.Computer.Keyboard.SendKeys("t")
    46. My.Computer.Keyboard.SendKeys(TextBox9.Text)
    47. My.Computer.Keyboard.SendKeys("{ENTER}")
    48. End If
    49. If GetAsyncKeyState(DirectCast(Me.ComboBox10.SelectedItem, Keys)) = -32767 And CheckBox10.Checked Then
    50. My.Computer.Keyboard.SendKeys("t")
    51. My.Computer.Keyboard.SendKeys(TextBox10.Text)
    52. My.Computer.Keyboard.SendKeys("{ENTER}")
    53. End If
    54. If GetAsyncKeyState(DirectCast(Me.ComboBox11.SelectedItem, Keys)) = -32767 And CheckBox11.Checked Then
    55. My.Computer.Keyboard.SendKeys("t")
    56. My.Computer.Keyboard.SendKeys(TextBox11.Text)
    57. My.Computer.Keyboard.SendKeys("{ENTER}")
    58. End If
    59. If GetAsyncKeyState(DirectCast(Me.ComboBox12.SelectedItem, Keys)) = -32767 And CheckBox12.Checked Then
    60. My.Computer.Keyboard.SendKeys("t")
    61. My.Computer.Keyboard.SendKeys(TextBox12.Text)
    62. My.Computer.Keyboard.SendKeys("{ENTER}")
    63. End If
    64. If GetAsyncKeyState(DirectCast(Me.ComboBox13.SelectedItem, Keys)) = -32767 And CheckBox13.Checked Then
    65. My.Computer.Keyboard.SendKeys("t")
    66. My.Computer.Keyboard.SendKeys(TextBox13.Text)
    67. My.Computer.Keyboard.SendKeys("{ENTER}")
    68. End If
    69. If GetAsyncKeyState(DirectCast(Me.ComboBox14.SelectedItem, Keys)) = -32767 And CheckBox14.Checked Then
    70. My.Computer.Keyboard.SendKeys("t")
    71. My.Computer.Keyboard.SendKeys(TextBox14.Text)
    72. My.Computer.Keyboard.SendKeys("{ENTER}")
    73. End If
    74. If GetAsyncKeyState(DirectCast(Me.ComboBox15.SelectedItem, Keys)) = -32767 And CheckBox15.Checked Then
    75. My.Computer.Keyboard.SendKeys("t")
    76. My.Computer.Keyboard.SendKeys(TextBox15.Text)
    77. My.Computer.Keyboard.SendKeys("{ENTER}")
    78. End If
    79. If GetAsyncKeyState(DirectCast(Me.ComboBox16.SelectedItem, Keys)) = -32767 And CheckBox16.Checked Then
    80. My.Computer.Keyboard.SendKeys("t")
    81. My.Computer.Keyboard.SendKeys(TextBox16.Text)
    82. My.Computer.Keyboard.SendKeys("{ENTER}")
    83. End If
    84. If GetAsyncKeyState(DirectCast(Me.ComboBox17.SelectedItem, Keys)) = -32767 And CheckBox17.Checked Then
    85. My.Computer.Keyboard.SendKeys("t")
    86. My.Computer.Keyboard.SendKeys(TextBox17.Text)
    87. My.Computer.Keyboard.SendKeys("{ENTER}")
    88. End If
    89. If GetAsyncKeyState(DirectCast(Me.ComboBox18.SelectedItem, Keys)) = -32767 And CheckBox18.Checked Then
    90. My.Computer.Keyboard.SendKeys("t")
    91. My.Computer.Keyboard.SendKeys(TextBox18.Text)
    92. My.Computer.Keyboard.SendKeys("{ENTER}")
    93. End If
    94. If GetAsyncKeyState(DirectCast(Me.ComboBox19.SelectedItem, Keys)) = -32767 And CheckBox19.Checked Then
    95. My.Computer.Keyboard.SendKeys("t")
    96. My.Computer.Keyboard.SendKeys(TextBox19.Text)
    97. My.Computer.Keyboard.SendKeys("{ENTER}")
    98. End If
    99. If GetAsyncKeyState(DirectCast(Me.ComboBox20.SelectedItem, Keys)) = -32767 And CheckBox20.Checked Then
    100. My.Computer.Keyboard.SendKeys("t")
    101. My.Computer.Keyboard.SendKeys(TextBox20.Text)
    102. My.Computer.Keyboard.SendKeys("{ENTER}")
    103. End If
    104. If GetAsyncKeyState(DirectCast(Me.ComboBox21.SelectedItem, Keys)) = -32767 And CheckBox21.Checked Then
    105. My.Computer.Keyboard.SendKeys("t")
    106. My.Computer.Keyboard.SendKeys(TextBox21.Text)
    107. My.Computer.Keyboard.SendKeys("{ENTER}")
    108. End If
    109. If GetAsyncKeyState(DirectCast(Me.ComboBox22.SelectedItem, Keys)) = -32767 And CheckBox22.Checked Then
    110. My.Computer.Keyboard.SendKeys("t")
    111. My.Computer.Keyboard.SendKeys(TextBox22.Text)
    112. My.Computer.Keyboard.SendKeys("{ENTER}")
    113. End If
    114. If GetAsyncKeyState(DirectCast(Me.ComboBox23.SelectedItem, Keys)) = -32767 And CheckBox23.Checked Then
    115. My.Computer.Keyboard.SendKeys("t")
    116. My.Computer.Keyboard.SendKeys(TextBox23.Text)
    117. My.Computer.Keyboard.SendKeys("{ENTER}")
    118. End If
    119. If GetAsyncKeyState(DirectCast(Me.ComboBox24.SelectedItem, Keys)) = -32767 And CheckBox24.Checked Then
    120. My.Computer.Keyboard.SendKeys("t")
    121. My.Computer.Keyboard.SendKeys(TextBox24.Text)
    122. My.Computer.Keyboard.SendKeys("{ENTER}")
    123. End If
    124. If GetAsyncKeyState(DirectCast(Me.ComboBox25.SelectedItem, Keys)) = -32767 And CheckBox25.Checked Then
    125. My.Computer.Keyboard.SendKeys("t")
    126. My.Computer.Keyboard.SendKeys(TextBox25.Text)
    127. My.Computer.Keyboard.SendKeys("{ENTER}")
    128. End If
    129. If GetAsyncKeyState(DirectCast(Me.ComboBox26.SelectedItem, Keys)) = -32767 And CheckBox26.Checked Then
    130. My.Computer.Keyboard.SendKeys("t")
    131. My.Computer.Keyboard.SendKeys(TextBox26.Text)
    132. My.Computer.Keyboard.SendKeys("{ENTER}")
    133. End If
    135. End Sub
    137. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    139. Me.ComboBox1.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    140. Me.ComboBox2.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    141. Me.ComboBox3.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    142. Me.ComboBox4.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    143. Me.ComboBox5.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    144. Me.ComboBox6.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    145. Me.ComboBox7.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    146. Me.ComboBox8.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    147. Me.ComboBox9.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    148. Me.ComboBox10.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    149. Me.ComboBox11.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    150. Me.ComboBox12.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    151. Me.ComboBox13.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    152. Me.ComboBox14.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    153. Me.ComboBox15.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    154. Me.ComboBox16.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    155. Me.ComboBox17.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    156. Me.ComboBox18.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    157. Me.ComboBox19.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    158. Me.ComboBox20.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    159. Me.ComboBox21.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    160. Me.ComboBox22.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    161. Me.ComboBox23.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    162. Me.ComboBox24.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    163. Me.ComboBox25.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    164. Me.ComboBox26.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    165. End Sub
    167. Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
    168. Dim fileno As Integer
    169. fileno = FreeFile()
    170. FileOpen(fileno, "C:\keys-befehle.txt", OpenMode.Output, OpenAccess.Write, OpenShare.LockWrite)
    171. PrintLine(fileno, TextBox1.Text)
    172. PrintLine(fileno, TextBox2.Text)
    173. PrintLine(fileno, TextBox3.Text)
    174. PrintLine(fileno, TextBox4.Text)
    175. PrintLine(fileno, TextBox5.Text)
    176. PrintLine(fileno, TextBox6.Text)
    177. PrintLine(fileno, TextBox7.Text)
    178. PrintLine(fileno, TextBox8.Text)
    179. PrintLine(fileno, TextBox9.Text)
    180. PrintLine(fileno, TextBox10.Text)
    181. PrintLine(fileno, TextBox11.Text)
    182. PrintLine(fileno, TextBox12.Text)
    183. PrintLine(fileno, TextBox13.Text)
    184. PrintLine(fileno, TextBox14.Text)
    185. PrintLine(fileno, TextBox15.Text)
    186. PrintLine(fileno, TextBox16.Text)
    187. PrintLine(fileno, TextBox17.Text)
    188. PrintLine(fileno, TextBox18.Text)
    189. PrintLine(fileno, TextBox19.Text)
    190. PrintLine(fileno, TextBox20.Text)
    191. PrintLine(fileno, TextBox21.Text)
    192. PrintLine(fileno, TextBox22.Text)
    193. PrintLine(fileno, TextBox23.Text)
    194. PrintLine(fileno, TextBox24.Text)
    195. PrintLine(fileno, TextBox25.Text)
    196. PrintLine(fileno, TextBox26.Text)
    197. PrintLine(fileno, ComboBox1.SelectedIndex)
    198. PrintLine(fileno, ComboBox2.SelectedIndex)
    199. PrintLine(fileno, ComboBox3.SelectedIndex)
    200. PrintLine(fileno, ComboBox4.SelectedIndex)
    201. PrintLine(fileno, ComboBox5.SelectedIndex)
    202. PrintLine(fileno, ComboBox6.SelectedIndex)
    203. PrintLine(fileno, ComboBox7.SelectedIndex)
    204. PrintLine(fileno, ComboBox8.SelectedIndex)
    205. PrintLine(fileno, ComboBox9.SelectedIndex)
    206. PrintLine(fileno, ComboBox10.SelectedIndex)
    207. PrintLine(fileno, ComboBox11.SelectedIndex)
    208. PrintLine(fileno, ComboBox12.SelectedIndex)
    209. PrintLine(fileno, ComboBox13.SelectedIndex)
    210. PrintLine(fileno, ComboBox14.SelectedIndex)
    211. PrintLine(fileno, ComboBox15.SelectedIndex)
    212. PrintLine(fileno, ComboBox16.SelectedIndex)
    213. PrintLine(fileno, ComboBox17.SelectedIndex)
    214. PrintLine(fileno, ComboBox18.SelectedIndex)
    215. PrintLine(fileno, ComboBox19.SelectedIndex)
    216. PrintLine(fileno, ComboBox20.SelectedIndex)
    217. PrintLine(fileno, ComboBox21.SelectedIndex)
    218. PrintLine(fileno, ComboBox22.SelectedIndex)
    219. PrintLine(fileno, ComboBox23.SelectedIndex)
    220. PrintLine(fileno, ComboBox24.SelectedIndex)
    221. PrintLine(fileno, ComboBox25.SelectedIndex)
    222. PrintLine(fileno, ComboBox26.SelectedIndex)
    223. MessageBox.Show("Erfolgreich gespeichert.")
    224. End Sub
    226. Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
    227. Dim fileno As Integer
    228. fileno = FreeFile()
    229. FileOpen(fileno, "C:\keys-befehle.txt", OpenMode.Input, OpenAccess.Read, OpenShare.LockRead)
    230. PrintLine(fileno, TextBox1.Text)
    231. PrintLine(fileno, TextBox2.Text)
    232. PrintLine(fileno, TextBox3.Text)
    233. PrintLine(fileno, TextBox4.Text)
    234. PrintLine(fileno, TextBox5.Text)
    235. PrintLine(fileno, TextBox6.Text)
    236. PrintLine(fileno, TextBox7.Text)
    237. PrintLine(fileno, TextBox8.Text)
    238. PrintLine(fileno, TextBox9.Text)
    239. PrintLine(fileno, TextBox10.Text)
    240. PrintLine(fileno, TextBox11.Text)
    241. PrintLine(fileno, TextBox12.Text)
    242. PrintLine(fileno, TextBox13.Text)
    243. PrintLine(fileno, TextBox14.Text)
    244. PrintLine(fileno, TextBox15.Text)
    245. PrintLine(fileno, TextBox16.Text)
    246. PrintLine(fileno, TextBox17.Text)
    247. PrintLine(fileno, TextBox18.Text)
    248. PrintLine(fileno, TextBox19.Text)
    249. PrintLine(fileno, TextBox20.Text)
    250. PrintLine(fileno, TextBox21.Text)
    251. PrintLine(fileno, TextBox22.Text)
    252. PrintLine(fileno, TextBox23.Text)
    253. PrintLine(fileno, TextBox24.Text)
    254. PrintLine(fileno, TextBox25.Text)
    255. PrintLine(fileno, TextBox26.Text)
    256. PrintLine(fileno, ComboBox1.SelectedIndex)
    257. PrintLine(fileno, ComboBox2.SelectedIndex)
    258. PrintLine(fileno, ComboBox3.SelectedIndex)
    259. PrintLine(fileno, ComboBox4.SelectedIndex)
    260. PrintLine(fileno, ComboBox5.SelectedIndex)
    261. PrintLine(fileno, ComboBox6.SelectedIndex)
    262. PrintLine(fileno, ComboBox7.SelectedIndex)
    263. PrintLine(fileno, ComboBox8.SelectedIndex)
    264. PrintLine(fileno, ComboBox9.SelectedIndex)
    265. PrintLine(fileno, ComboBox10.SelectedIndex)
    266. PrintLine(fileno, ComboBox11.SelectedIndex)
    267. PrintLine(fileno, ComboBox12.SelectedIndex)
    268. PrintLine(fileno, ComboBox13.SelectedIndex)
    269. PrintLine(fileno, ComboBox14.SelectedIndex)
    270. PrintLine(fileno, ComboBox15.SelectedIndex)
    271. PrintLine(fileno, ComboBox16.SelectedIndex)
    272. PrintLine(fileno, ComboBox17.SelectedIndex)
    273. PrintLine(fileno, ComboBox18.SelectedIndex)
    274. PrintLine(fileno, ComboBox19.SelectedIndex)
    275. PrintLine(fileno, ComboBox20.SelectedIndex)
    276. PrintLine(fileno, ComboBox21.SelectedIndex)
    277. PrintLine(fileno, ComboBox22.SelectedIndex)
    278. PrintLine(fileno, ComboBox23.SelectedIndex)
    279. PrintLine(fileno, ComboBox24.SelectedIndex)
    280. PrintLine(fileno, ComboBox25.SelectedIndex)
    281. PrintLine(fileno, ComboBox26.SelectedIndex)
    282. MessageBox.Show("Erfolgreich geladen.")
    284. End Sub
    285. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DexXxo“ ()

    Habe mal dein "Tipp" angenommen und mal ein bissl rum getestet ist echt nice :)

    So sieht mein Test Code aus :)

    VB.NET-Quellcode

    1. ​Option Strict On
    2. Imports System
    3. Imports System.IO
    4. Public Class Form1
    5. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    6. Using sw As StreamWriter = New StreamWriter("TestFile.txt")
    7. sw.WriteLine(TextBox1.Text)
    8. sw.WriteLine(ComboBox1.SelectedIndex)
    9. sw.WriteLine(ComboBox2.SelectedIndex)
    10. sw.Close()
    11. End Using
    12. End Sub
    14. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    15. Using sr As StreamReader = New StreamReader("TestFile.txt")
    16. TextBox1.Text = sr.ReadLine
    17. ComboBox1.SelectedIndex = ComboBox1.Items.IndexOf(sr.ReadLine)
    18. ComboBox2.SelectedIndex = ComboBox2.Items.IndexOf(sr.ReadLine)
    19. End Using
    20. End Sub
    22. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    23. Me.ComboBox1.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    24. Me.ComboBox2.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    25. End Sub
    26. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DexXxo“ ()

    Freut mich, dass du Verbesserungsvorschläge annimmst.
    Jetzt kannst du das so machen:

    VB.NET-Quellcode

    1. ​
    2. Using sr As StreamReader = New StreamReader("TestFile.txt")
    3. Combobox.SelectedIndex = Combobox.Items.IndexOf(sr.ReadLine)
    4. End Using


    MfG Tim

    @Fortender
    Genau so habe ich es gemacht ;) Aber er lädt es nicht :o die ComboBox Felder sind dann leer :/ Hier nochmal mein Code:
    Muss ein Read Fehler sein da er den Index speichert :/



    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System
    3. Imports System.IO
    4. Public Class Form1
    5. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    6. Using sw As StreamWriter = New StreamWriter("TestFile.txt")
    7. sw.WriteLine(TextBox1.Text)
    8. sw.WriteLine(ComboBox1.SelectedIndex)
    9. sw.WriteLine(ComboBox2.SelectedIndex)
    10. sw.Close()
    11. End Using
    12. End Sub
    14. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    15. Using sr As StreamReader = New StreamReader("TestFile.txt")
    16. TextBox1.Text = sr.ReadLine
    17. ComboBox1.SelectedIndex = ComboBox1.Items.IndexOf(sr.ReadLine)
    18. ComboBox2.SelectedIndex = ComboBox2.Items.IndexOf(sr.ReadLine)
    19. End Using
    20. End Sub
    22. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    23. Me.ComboBox1.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    24. Me.ComboBox2.DataSource = New Keys() {Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8, Keys.D9, Keys.D0}
    25. End Sub
    26. End Class


    PS: Hätte auch Teamviewer wenn du dir, das genauer angucken möchtest :) Kannst mich bei FB oder Skype adden oder ich schreibe dir dann per PN die TV daten :)

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „DexXxo“ ()

    DexXxo schrieb:

    PS: Hätte auch Teamviewer wenn du dir, das genauer angucken möchtest Kannst mich bei FB oder Skype adden oder ich schreibe dir dann per PN die TV daten

    Kann ich gerne machen. Aber sei mir nicht böse, jetzt nicht mehr. Erst später :D

    Meinste Mittags/abends ? Oder was meinst du mit Später? ^^
    Naja vllt habe ich ja bis "Später" schon herausgefunden wieso die ComboBoxen leer sind ^^ Obwohl er es in der TestFile.txt richtig steht also muss es ja irgendwo beim Readen en Fehler sein :/

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DexXxo“ ()

Facebook
Telefonspende