1. Reklam


    1. joysro
      ledas
      ix2
      leon
      kingsofsro
      aelyria

Top Oyunu (Oklarla Kontrol Sağlanıyor)


  1. Black Rain

    Black Rain Aileden rank8

    Kayıt:
    17 Kasım 2007
    Mesajlar:
    10.698
    Beğenilen Mesajlar:
    2
    Ödül Puanları:
    38
    Meslek:
    Kamyon Şöförü
    Şehir:
    Bursa / Gemlik
    Eklenecek nesneler; label1(X), label2(Y), label3, label4
    shape1- shape özelliğinden circle seçiyoruz,
    Image1(yukarı ok), Image2(aşağı ok), Image3(sola ok), Image4(sağa ok)
    --> Module Açıyoruz En son Bölümü Modüle Yazıyoruz
    (Modül Açmak İçin; Project-> Add Module Seçiyoruz)
    Kod:
    Private Sub Form_Load()
        Label3.Caption = Shape1.Left
        Label4.Caption = Shape1.Top
    End Sub
    Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
        gez 0, -50
        If Label4.Caption = 10 Then
            MsgBox ("En Üst Sınırdasınız")
            Shape1.Top = 60
        End If
    End Sub
    Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
        gez 0, 50
        If Label4.Caption = 5660 Then
            MsgBox ("En Alt Sınırdasınız")
            Shape1.Top = 5610
        End If
    End Sub
    
    Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
        gez -50, 0
        If Label3.Caption = 0 Then
            MsgBox ("En Sol Sınırdasınız")
            Shape1.Left = 50
        End If
    End Sub
    
    Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
        gez 50, 0
        If Label3.Caption = 8400 Then
            MsgBox ("En Sağ Sınırdasınız")
            Shape1.Left = 8350
        End If
        
    End Sub
    --------------- MODÜL İÇİN----------------
    Kod:
    Public Sub gez(x As Integer, y As Integer)
        Form1.Shape1.Left = Form1.Shape1.Left + x
        Form1.Label3.Caption = Form1.Shape1.Left
        Form1.Shape1.Top = Form1.Shape1.Top + y
        Form1.Label4.Caption = Form1.Shape1.Top
    End Sub