|
Hoj. Dělám ve Visual Basicu. Rád bych si udělal menu. Zatím pro začátek mám hodiny dokud se nedostanu dál. Mám to udělané tak, zě když kliknu Insert Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If GetAsyncKeyState(Keys.Insert) Then If GetAsyncKeyState(Keys.Insert) Then If Me.Visible = True Then Me.Visible = False Exit Sub End If If Me.Visible = False Then Me.Visible = True Exit Sub End If End If
Když zapnu program je na ploše dám insert zmizí zapnu hru a dám insert a nic nebo při lepsí verzi mi spadne na plochu a mam to na plose. Zkoušel jsem to funguje to třeba při internetu nebo hrám z dosu :D
Public Class Form1 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.TopMost = True End Sub
Poradil by mi někdo co s tím ? dekuji.
|