HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
'de değiştireceğimizden Image kutularına
'yerleştireceğiniz resimleri simge (ICO) olmasıdır.
General - Declarations bölümüne yazılacak
Dim y As Integer
General bölümüne yazılacak
Private Sub degistir()
y = y + 1: If y = 4 Then y = 1
‘Formun Simgesini değiştir
Form1.Icon = Image1(y).Picture
‘Resim kutusundaki resmi değiştir.
Picture1.Picture = Image1(y).Picture
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Timer1_Timer()
‘Timer`ın kontrolünün her bir vuruşunda...
‘degistir alt yordamını cagir.
degistir
End Sub
'yerleştireceğiniz resimleri simge (ICO) olmasıdır.
General - Declarations bölümüne yazılacak
Dim y As Integer
General bölümüne yazılacak
Private Sub degistir()
y = y + 1: If y = 4 Then y = 1
‘Formun Simgesini değiştir
Form1.Icon = Image1(y).Picture
‘Resim kutusundaki resmi değiştir.
Picture1.Picture = Image1(y).Picture
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Timer1_Timer()
‘Timer`ın kontrolünün her bir vuruşunda...
‘degistir alt yordamını cagir.
degistir
End Sub
