Buton taşımak - Baskı Önizleme

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.

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



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 :



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