29 March 2008, 18:16 | Mesaj No:1 |
Durumu:
Papatyam No :
1196
Üyelik T.:
09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
|
Formunuzda etrafa çarpip ses çikartan hareketli bir top
Formunuzda etrafa çarpip ses çikartan hareketli bir top 1 radiobutton ve 1 timer ekleyin. Public Class Form1 Inherits System.Windows.Forms.Form #Region " Windows Form Designer generated code " Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load RadioButton1.Text = "" RadioButton1.Width = 10 Timer1.Interval = 50 Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Static sx = 5, sy = 5, x = RadioButton1.Left, y = RadioButton1.Top If y <= 0 Or y + RadioButton1.Height >= Me.ClientSize.Height Then 'Formun üstüne veya altına ulaşıldı ise artımı ters çevir sy = -sy 'artış yönünü ters çevir Beep() End If If x <= 0 Or x + RadioButton1.Width >= Me.ClientSize.Width Then 'Formun soluna veya sağına ulaşıldı ise artımı ters çevir. sx = -sx 'artış yönünü ters çevir Beep() End If x = x + sx y = y + sy RadioButton1.Left = x RadioButton1.Top = y End Sub End Class |
Bookmarks |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Benzer Konular | ||||
Konu Başlıkları | Konuyu Başlatan | Papatyam Forum Ana Kategori Başlıkları |
Cevaplar | Son Mesajlar |
Şirin Hareketli Avatarlar | umut | Animasyonlar ve Gifler | 0 | 10 December 2009 23:56 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |