Skip to main content

AccessTr.neT


Vbde tuşlara basarak buttonun boyutunu değiştiren program ?

Vbde tuşlara basarak buttonun boyutunu değiştiren program ?

Çözüldü #1
Alt tuşuyla birlikte yön tuşlarına basıldığında formdaki buttonun boyutu değişen,
Ctrl tuşuyla yön tuşlarına basıldığında formdaki bileşenleri hareket ettiren,
F2 tuşuna basılınca formun adı o anki saat olan programın kodunu nasıl yazmalıyım?
Icon_rolleyes
Cevapla
Çözüldü #2
'butona 1 adet buton ekle ve kodları yapıştır.
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
'(buradaki kodlar alt tuşu ile birlikte yön tuşlarına basarsan
' butonunu sağa sola hareket ettirir)
If KeyCode = vbKeyRight And Shift = 4 Then
Command1.Width = Command1.Width + 50 'alt tuşu ile sağ yön tuşu butonu sağa doğru büyütür
End If
If KeyCode = vbKeyLeft And Shift = 4 Then
Command1.Width = Command1.Width - 50 'alt tuşu ile sağ yön tuşu butonu sola doğru küçültür
End If
If KeyCode = vbKeyUp And Shift = 4 Then
Command1.Width = Command1.Height + 500
End If
If KeyCode = vbKeyDown And Shift = 4 Then
Command1.Width = Command1.Height - 500
End If
' şimdi ctrl tuşlarıyla butonu hareket ettirelim ctrl tuşu ile yön tuşlarına bas
If KeyCode = vbKeyRight And Shift = 2 Then
Command1.Left = Command1.Left + 500
End If
If KeyCode = vbKeyLeft And Shift = 2 Then
Command1.Left = Command1.Left - 500
End If
If KeyCode = vbKeyUp And Shift = 2 Then
Command1.Top = Command1.Top - 500
End If
If KeyCode = vbKeyDown And Shift = 2 Then
Command1.Top = Command1.Top + 500
End If
'bu kodda formun başlığını saat yapar
If KeyCode = vbKeyF2 Then
Form1.Caption = Time
End If
'bu kodda formun başlığını tarih yapar
If KeyCode = vbKeyF3 Then
Form1.Caption = Date
End If
End Sub
.rar btn_coşkun.rar (Dosya Boyutu: 1,53 KB | İndirme Sayısı: 12)
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Son Düzenleme: 13/12/2010, 13:49, Düzenleyen: Coskun0559.
Cevapla
Çözüldü #3
Çok Teşekkür ederim. Img-grin
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task