Keskustelu: Koodit: QB: visual lemmikki (has mind of its own)

tee itselle Hassu lemmikki :) , tää on eka koodin pätkä minkä pistän :p ajattelin tehä tämmösen hassun ja helpon

ekaks pitää tehä iso picture box, picture boxin sisään image ja imageen ladata lemmikin kuva (pieni kuva) sitten lisätä label1, jonka caption = 0 ja sitten lopuksi timer jonka interval 200 ja sitten timerin koodiin kirjottaa:

Private Sub Timer1_Timer()

Label1.Caption = Int(Rnd * 4)

If Label1.Caption = "1" Then Image1.Top = Image1.Top + 100

If Label1.Caption = "2" Then Image1.Top = Image1.Top - 100

If Label1.Caption = "3" Then Image1.Left = Image1.Left + 100

If Label1.Caption = "4" Then Image1.Left = Image1.Left - 100

End Sub