- Philips LCD és LED TV-k
- Apple asztali gépek
- Milyen billentyűzetet vegyek?
- Apple MacBook
- Épített vízhűtés (nem kompakt) topic
- Milyen monitort vegyek?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Vezetékes FEJhallgatók
- Elkezdtek szállingózni az Arctic P Pro sorozatú ventilátorai
- OLED monitor topik
Új hozzászólás Aktív témák
-
cigam
titán
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 ClassMiért kell belekattintani a listbox-ba, hogy észrevegye az ENTER leütését?
Új hozzászólás Aktív témák
- Újszerű Lenovo Legion 5 - 15,6"FHD IPS - Ryzen 5 5600H - 16GB - 512GB SSD - RTX 3050 - Win11 -MAGYAR
- ÚJ Lenovo LOQ 15IRX9 - QHD 165Hz - i7-13650HX - 16GB - 1TB - RTX 4060 - Win11 - 3 év garancia
- ÚJ CORE I7 12700 Z690 RIPTIDE GAMER MAX PC 32Gb RAM 1.0TB SSD GEFORCE RTX 3070TI 8GB DDR7 2ÉV GAR!
- Elektronikai hulladékot vásárolok!
- Bambu Lab P1 Series Hardened Steel Upgrade Combo
- AKCIÓ! Gigabyte B760M i5 14600KF 64GB DDR4 512GB SSD RTX 3080 10GB Corsair 4000D Airflow 1000W
- BESZÁMÍTÁS! ASUS VivoBook X1504ZA notebook - i3 1215U 16GB DDR4 RAM 512GB SSD Intel UHD IGP WIN11
- Vidd haza a jövő RAM-ját már ma! 2x16Gb DDR 5
- Bomba ár! Lenovo ThinkPad T480s - i7-8GEN I 16GB I 256GB I 14" WQHD I HDMI I Cam I W11 I Gari!
- Samsung Galaxy S22 Ultra 512GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest