İlkerxxx Compile Hatası Veriyor...

İki butonada farklı tuş vermelisin...

Öncelikle Herkeze S. a ArkadaşLar Benim Sorunum: Visual basic 6.0 da Butona Kısayol Vermek Örnegin F1 e Bastıgımda Butona Tıklamış Olmak... YardımLarınız İçin Şimdiden TeşekkürLer...

Private Sub Command1_KeyUp If KeyCode = vbKeyY Then MsgBox "yeni kayıt" End If End Sub Kodbu Y tuşuna basınca aktif olur. Eğer ben Y nin altını çizeyim de adam kısayol tuşunun ne olduğunu anlasın dersen command caption a &Yeni Kayıt

ozaman form keyup a yaz ve hepsi için bir kod yaz Kod: Private Sub Form_KeyUp If KeyCode = vbKeyA Then MsgBox "a tuşu" ElseIf KeyCode = vbKeyB Then MsgBox "b tuşu" ElseIf KeyCode = vbKeyC Then MsgBox "c tuşu" ElseIf KeyCode = vbKeyD Then MsgBox "d tuşu" End If End Sub

Arkadaşım Çok Teşekkürler Oluyor Ama Formda 1 Tane Buton Olunca Oluyo 2 tane Buton Olunca Hata Verio

Hata Vermez Private Declare Function GetKey Lib "user32" Alias "GetAsyncKeyState" As Integer Bunu Sayfanın En Yukarısına Koycan Sonra Sayfaya Bir Tane Timer Ekle Enabled=true, Interval=1 yap Private Sub Timer1_Timer keystate = GetKey(vbKeyF1) If (keystate And &H1) = &H1 Then call Command1_Click end if end sub Bu Kadar

General D. bölümüne yani ennn basa sunu yapistir Private Declare Function GetKey Lib "user32" Alias "GetAsyncKeyState" As Integer sonra bir timer ac ve true olsun ozelligi ve interval de 1 keystate = GetKey(vbKeyF1) If (keystate And &H1) = &H1 Then call Command1_Click 'anlican buttonun ismini yaz ve _Click i koy bu sadece cmd button olmayabilir private sub xxxyyy ismini gordugun hersey end if calisir buyuk ihtimalle

[+ JeaLousy hayir gerek yok, timer a verilse olur dostum projenin ba$inda Option Explicit yaziyorsa sil yok yinede olmadi derse general dec kismina dim keystate yaz kodun dogru ancak me hide /me show gibi bir kod kullanirsan yani form aktif olmadigi sürece calismaz bu kod... söyle bakalim Private Sub Command1_KeyUp If KeyCode = vbKeyY Then If Form1. Visible = False Then Form1. Visible = True: Exit Sub If Form1. Visible = True Then Form1. Visible = False: Exit Sub End If End Sub bu kod ile normalde gizle ve / göster yapabilmen gerekir, gizler ancak göstermez... ancak api kullanirsan ve timer a baglarsan yapar -