THT DUYURU
THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

Seçenekler

butona kısa yol tuşu ekleme

1zaza12x - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Nereden:
samsun
Mesajlar:
229
Konular:
41
Teşekkür (Etti):
34
Teşekkür (Aldı):
35
Ticaret:
(0) %
10
674
22-11-2012 20:33
#1
merhaba arkadaşlar gene ben gene soru butona kısayol tuşu nası ekleriz mesela enter tuşuna basınca texdekini göndercek labele
\WoRTeX-CoSMoS/ - ait Kullanıcı Resmi (Avatar)
Kıdemli Üye
Üyelik tarihi:
10/2009
Mesajlar:
2.653
Konular:
266
Teşekkür (Etti):
193
Teşekkür (Aldı):
1002
Ticaret:
(0) %
22-11-2012 20:37
#2
şöyle olucak dimi?
text1'e bısı yazıcaz enter basınca command1 tıklıcak?
---------------------
Görünen,gerçek değildir; gerçek,her zaman görünür değildir.
1zaza12x - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Nereden:
samsun
Mesajlar:
229
Konular:
41
Teşekkür (Etti):
34
Teşekkür (Aldı):
35
Ticaret:
(0) %
22-11-2012 20:40
#3
Alıntı:
ahmeto234´isimli üyeden Alıntı Mesajı göster
şöyle olucak dimi?
text1'e bısı yazıcaz enter basınca command1 tıklıcak?
aynen anlatmak istedigim bu kardeşim
\WoRTeX-CoSMoS/ - ait Kullanıcı Resmi (Avatar)
Kıdemli Üye
Üyelik tarihi:
10/2009
Mesajlar:
2.653
Konular:
266
Teşekkür (Etti):
193
Teşekkür (Aldı):
1002
Ticaret:
(0) %
22-11-2012 20:41
#4
text1'e bu kodu gir.
Kod:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
        Command1_Click
    End If
End Sub
---------------------
Görünen,gerçek değildir; gerçek,her zaman görünür değildir.
1zaza12x Teşekkür etti.
1zaza12x - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Nereden:
samsun
Mesajlar:
229
Konular:
41
Teşekkür (Etti):
34
Teşekkür (Aldı):
35
Ticaret:
(0) %
22-11-2012 20:46
#5
Alıntı:
ahmeto234´isimli üyeden Alıntı Mesajı göster
text1'e bu kodu gir.
Kod:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
        Command1_Click
    End If
End Sub
sub or function defined yazıor
\WoRTeX-CoSMoS/ - ait Kullanıcı Resmi (Avatar)
Kıdemli Üye
Üyelik tarihi:
10/2009
Mesajlar:
2.653
Konular:
266
Teşekkür (Etti):
193
Teşekkür (Aldı):
1002
Ticaret:
(0) %
22-11-2012 20:48
#6
text1'in changesini yapma
text1'in yukadan keypress özelliğini seç yada form'un butun kodunu sıl dırek bunu koy.
---------------------
Görünen,gerçek değildir; gerçek,her zaman görünür değildir.
CETQ - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
02/2011
Mesajlar:
1.297
Konular:
165
Teşekkür (Etti):
164
Teşekkür (Aldı):
606
Ticaret:
(0) %
22-11-2012 20:48
#7
Senin verdiğin kısayol tuşu değil

module bunu ekle;

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

timer ekle interval 100 yap
F11 kendine göre değiştirirsin

then yerine Command1_click de koyabilirsin


Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF11) Then
Label1.Caption = Text1.Text
End If
End Sub
1zaza12x - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Nereden:
samsun
Mesajlar:
229
Konular:
41
Teşekkür (Etti):
34
Teşekkür (Aldı):
35
Ticaret:
(0) %
22-11-2012 20:53
#8
Alıntı:
CETQ´isimli üyeden Alıntı Mesajı göster
Senin verdiğin kısayol tuşu değil

module bunu ekle;

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

timer ekle interval 100 yap
F11 kendine göre değiştirirsin

then yerine Command1_click de koyabilirsin


Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF11) Then
Label1.Caption = Text1.Text
End If
End Sub
tmm bu olduda F11 yerine ENTER yazıom olmuo
CETQ - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
02/2011
Mesajlar:
1.297
Konular:
165
Teşekkür (Etti):
164
Teşekkür (Aldı):
606
Ticaret:
(0) %
22-11-2012 20:55
#9
Sen şimdi text de işlem yaparken enter a basıp aktarmak istiyosan arkadasın verdiği keypress kullan

VbKeyReturn bu enter

veya

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Label1.Caption = Text1.Text
End If
End Sub


Key Code Constants key list
1zaza12x Teşekkür etti.
1zaza12x - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Nereden:
samsun
Mesajlar:
229
Konular:
41
Teşekkür (Etti):
34
Teşekkür (Aldı):
35
Ticaret:
(0) %
22-11-2012 20:56
#10
Alıntı:
CETQ´isimli üyeden Alıntı Mesajı göster
Sen şimdi text de işlem yaparken enter a basıp aktarmak istiyosan arkadın verdiği keypress kullan

Key Code Constants
tmmdır

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler