Új hozzászólás Aktív témák

• #2619 cigam félisten

  Új Válasz 2015-05-07 12:37:58 #2619

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  cigam

  félisten

  Mindjárt bele is futottam az első problémába:
  Public Class Form1
  ' A konyvtar változóban tárolom el, hogy melyik könyvtárban fut a program.
  Dim konyvtar As String = Application.StartupPath
  
  ' Feltölti a fájl listát a .txt fájlokkal
  Private Sub Fajllistafeltoltes()
  Dim dir As New IO.DirectoryInfo(konyvtar)
  For Each fajl As IO.FileInfo In dir.GetFiles
  If fajl.Extension = ".txt" Then
  ListBox1.Items.Add(fajl)
  End If
  Next
  ListBox1.SetSelected(0, True)
  End Sub
  
  ' Figyeli a lenyomott gombokat
  Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
  Select Case e.KeyCode
  Case Keys.Enter
  MsgBox("Segítség!!!")
  End Select
  End Sub
  
  ' Indul a program
  ' - betölti a fájl listát
  
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  
  Fajllistafeltoltes()
  
  End Sub
  
  End Class

  Miért kell belekattintani a listbox-ba, hogy észrevegye az ENTER leütését?

  Freeware, és akciós programok egy helyen https://www.facebook.com/freewarenews

Új hozzászólás Aktív témák