Hallo an alle
Ich habe ein Problem... ich habe einen code geschrieben für tastenkombi. Er hat vorerst funktioniert(in einem anderen Projekt) Doch jetzt funktioniert er nicht mehr. Bitte helft mir.
Ich bekomme allerdings auch keine fehlermeldung oder iwas...
LG
Spoiler anzeigen
Ich habe ein Problem... ich habe einen code geschrieben für tastenkombi. Er hat vorerst funktioniert(in einem anderen Projekt) Doch jetzt funktioniert er nicht mehr. Bitte helft mir.
Ich bekomme allerdings auch keine fehlermeldung oder iwas...
LG
VB.NET-Quellcode
- Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
- If e.Control AndAlso e.KeyCode = Keys.A Then
- Me.Hide()
- Form2.Show()
- End If
- If e.Control AndAlso e.KeyCode = Keys.D Then
- ListView1.SelectedItems.Item(0).Remove()
- End If
- If e.KeyCode = Keys.Delete Then
- ListView1.SelectedItems.Item(0).Remove()
- End If
- If e.Control AndAlso e.KeyCode = Keys.Delete Then
- ListView1.Items.Clear()
- End If
- If e.Control AndAlso e.KeyCode = Keys.S Then
- Using dlg As New SaveFileDialog
- dlg.Filter = "List it on|*.lio"
- If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
- ListViewSave(ListView1, dlg.FileName)
- End If
- End Using
- End If
- If e.Control AndAlso e.KeyCode = Keys.L Then
- Using dlg As New OpenFileDialog
- dlg.Filter = "List it on|*.lio|Alle Dateien|*.*"
- If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
- If dlg.FileName.ToLower.EndsWith(".lio") Then
- ListViewLoad(ListView1, dlg.FileName)
- Else
- ListViewLoad(ListView1, dlg.FileName)
- End If
- End If
- End Using
- End If
- If e.Control AndAlso e.KeyCode = Keys.R Then
- Form3.Show()
- Me.Hide()
- End If
- End Sub
Projekte
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Quellcoder02“ ()