Hirdetés
- Kiderültek az Oppo Pad 5 Pro és Pad Mini főbb adatai
- Stylusszal érkezhet a hajlítható Huawei Pura X Max, AI-trükkökkel fűszerezve
- Hatalmas akkut és korrekt teljesítményt ígér a Vivo
- Memóriahiány és drágulás fékezheti a mobilokat, csökkentek a Q1-es kiszállítások
- Európába és a britekhez is megérkezik a Motorola Razr Fold, indul az előrendelés
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Milyen okostelefont vegyek?
- Memóriahiány és drágulás fékezheti a mobilokat, csökkentek a Q1-es kiszállítások
- Yettel topik
- Apple iPhone Air - almacsutka
- Félő, hogy az okosszemüveg a szexuális zaklatók játékszere lesz
- iPhone topik
- Szívós, szép és kitartó az új OnePlus óra
- Xiaomi 15 - kicsi telefon nagy energiával
- EarFun Air Pro 4+ – érdemi plusz
-
Mobilarena

Ú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
● olvasd el a téma összefoglalót!
- Rövid időre leállhat a 8 GB-os GeForce RTX 5060 Ti gyártása
- 4K vs 8K – Megéri-e a 8K TV 2026-ban?
- exHWSW - Értünk mindenhez IS
- Milyen TV-t vegyek?
- Gitáros topic
- Engedélyezte Hollandia a Tesla önvezetést, az EU többi része következhet
- Vezetékes FEJhallgatók
- Nem indul és mi a baja a gépemnek topik
- Luck Dragon: Asszociációs játék. :)
- Okos otthon - Home Assistant, openHAB és más nyílt rendszerek
- További aktív témák...
- AKCIÓ! ASUS Z790 i9 14900KF 64GB DDR5 1TB SSD RTX 5080 16GB LIAN LI LANCOOL 216R ADATA 850W
- Asus ROG Destrier Ergo gamerszék
- -68%OFF HP Spectre x360 14 (14-ef2276ng) i7-1355U/16GB/1TBSSD/3K 3000X2000 Amoled
- Eladó Huawei P Smart Z 4/64GB zöld / 12 hónap jótállás
- Bomba ár! Asus R512CA - Core i3 I 4GB I 500GB I 15,6" HD I HDMI I Cam I W10 I Garancia!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


