Hirdetés
- MasterDeeJay: Ram gondolatok 2026 január - DDR3-as gép is lehet megoldás? Mi a minimum?
- Toomy: FOXPOST: régen jó volt, de már jobban jársz, ha elfelejted
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- eBay-es kütyük kis pénzért
- Parci: Milyen mosógépet vegyek?
- norbx: Számítógép.hu
- MasterDeeJay: i7 4980HQ asztali gépben (vs i7 4770)
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- Candy: Kossuth Lajos azt üzente, elfogyott a gémergépe
-
LOGOUT

Új hozzászólás Aktív témák
-
#10382336
törölt tag
Sziasztok!!!
Az alábbi Visual Basic kód lefordítva egy olyan alkalmazást
eredményez, amely percenként elindítja a "VALAMI" nevű
alkalmazást. Továbbfejlesztve hasonló dolgokra lehetne
képes, mint a Windows feladatütemezője.A kérdésem annyi lenne, hogy például ezt, vagy bármely más
Visual Basic programot hogy lehet úgy megcsinálni, hogy
a program ikonja a tálca jobb oldalán, az óra mellett legyen,
mint például a hangerő, a tűzfal, windows riasztások ikonjai.
Ha valaki tudja a választ, vagy ilyen tartalmú - elsősorban
Magyar nyelvű - linket, kérem írja meg.Előre is köszönöm!
Public Class Form1
Private konz As New Konzol
Private Sub Form1_FormClosing(ByVal sender As Object, _
ByVal e As System.Windows.Forms.FormClosingEventArgs) _
Handles Me.FormClosing
konz.állj()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
konz.start()
End Sub
End ClassPublic Class Konzol
Private esemeny As New System.Threading.AutoResetEvent(False)
Private megszakitas As System.Threading.TimerCallback = _
AddressOf végrehajtás
Private idozito As System.Threading.Timer
Private szamlalo As Integer
Sub start()
szamlalo = 0
idozito = New System.Threading.Timer(megszakitas, esemeny, 0, 1000)
End Sub
Sub állj()
idozito.Dispose()
End Sub
Sub végrehajtás(ByVal stateInfo As Object)
Dim autoEvent As System.Threading.AutoResetEvent = _
DirectCast(stateInfo, System.Threading.AutoResetEvent)
szamlalo += 1
If szamlalo = 60 Then
Shell(VALAMI)
szamlalo = 0
End If
End Sub
End Class
Új hozzászólás Aktív témák
Hirdetés
● olvasd el a téma összefoglalót!
- Dell Latitude 5320 - 13,3" touch, i5-1145G7, 16GB RAM, SSD, EU bill., jó akku, számla, garancia
- Lenovo Legion Slim 5 - 16" WQXGA 165Hz - Ryzen 7 7435HS - 16GB - 1TB - RTX 4060 - Win11 -2 év gari
- Apple iPhone 13 Mini 128 GB Fekete 1 év Garancia Beszámítás Házhozszállítás
- HIBÁTLAN iPhone 13 Pro 128GB Alphine Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3024
- HIBÁTLAN iPhone 13 Pro 256GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3022
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest


