Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: VB6: Käynnistäpainike(cool)

Reima [07.04.2006 20:44:55]

#

Tarvitset Command buttonin ja labelin.
Käytin tämän tekemiseen n. 12 h

Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Sub Form_Click()
Beep
End Sub
Private Sub Form_Load()
 SetWindowPos Form1.hwnd, -1, 0, 0, 0, 0, 3
Form1.Caption = "system32important.exe"
Label1.Caption = "Käynnistäpainike"
Command1.Caption = ""
Command1.Width = 495
Command1.Height = 435
Label1.Width = 1815
Label1.Height = 255
Label1.Top = 120
Command1.Top = 0
Command1.Left = 0
Label1.Left = 600
Form1.Width = 2610
Form1.Height = 465
Form1.Left = 0
Form1.Top = 11070
End Sub
Private Sub Command1_Click()
Beep
End Sub


Private Sub Label1_Click()
Beep
End Sub

Reima [07.04.2006 20:46:05]

#

Uskomatonta...
Koko elämä meni tähän...
Nyt voin kuolla onnellisena.

tesmu [18.04.2006 08:30:02]

#

Ja mitähän hyötyä tästä on?

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta