dotNETportal.cz

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.

Ty hodiny sem tam nedal ty snad nejsou důležité a nechtěně sem tam dal 2x If GetAsyncKeyState(Keys.Insert) Then

If GetAsyncKeyState(Keys.Insert) Then

Samozdřejmě že to má být 1 If GetAsyncKeyState(Keys.Insert) Then