AccessTr.neT
Buton taşımak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Buton taşımak (/konu-buton-tasimak.html)

Sayfalar: 1 2


Buton taşımak - temre - 20/05/2014

Merhaba.
Örneğimdeki butona basılınca formdaki yeri üstten 1 cm soldan 1 cm uzaklıkta, boyutları eni 3 yüksekliği 1 olsun. Bu noktaya geldikten sonra tekrar basılırsa yeri üstten 2 cm soldan 2 cm uzaklıkta, boyutları eni 5 yüksekliği 2 olsun. İlgili kodlar için yardımcı olabilir misiniz?

Saygı ve selamlarımla.


Cvp: Buton taşımak - ozanakkaya - 20/05/2014

Butonun tıklandığında olayına aşağıdaki kodları ekleyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
If Me.Command0.Top = 1134 And Me.Command0.Left = 1134 Then
Me.Command0.Top = 567
Me.Command0.Left = 567
Me.Command0.Height = 567
Me.Command0.Width = 1701

Else

Me.Command0.Top = 1134
Me.Command0.Left = 1134
Me.Command0.Height = 1134
Me.Command0.Width = 2835
End If




Cvp: Buton taşımak - SCavusoglu - 20/05/2014

Merhaba,

İncelermisiniz..


Cvp: Buton taşımak - alpeki99 - 20/05/2014

Bende tam yazayım dedim 2 mesaj gelmiş Img-grin çok iyi

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If durum = 0 Then
            
        sol = Me.Command0.Left
        ust = Me.Command0.Top
        Me.Command0.Left = 1440
        Me.Command0.Top = 1440
        durum = 1
    
    Else
    
        Me.Command0.Left = sol
        Me.Command0.Top = Top
        durum = 0
    
    End If


Genel deklerasyonda :

Visual Basic Code
Dim durum As Byte
Dim sol, ust As Integer




Cvp: Buton taşımak - POWER - 20/05/2014

Bir konuya anında 3 cevap... Müthişsiniz...!


Cvp: Buton taşımak - temre - 20/05/2014

Hakikaten bu paylaşım sevincini kıskanıp eksikliğimden mahçup kaldım. Çok teşekkür ederim.
Aklıma takılan soru şu: "Me.Command0.Top = 1134" buradaki rakamı nasıl buluyorsunuz Img-grin