butona kısa yol tuşu ekleme

1zaza12x

Üye

Üyelik tarihi:

10/2012

Nereden:

samsun

Mesajlar:

229

Konular:

Teşekkür (Etti):

Teşekkür (Aldı):

Ticaret:

(0) %

674

22-11-2012 20:33

merhaba arkadaşlar gene ben gene soru

butona kısayol tuşu nası ekleriz mesela enter tuşuna basınca texdekini göndercek labele

Alıntı Yap

\WoRTeX-CoSMoS/

$\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

şö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.

Alıntı Yap

1zaza12x

Üye

Üyelik tarihi:

10/2012

Nereden:

samsun

Mesajlar:

229

Konular:

Teşekkür (Etti):

Teşekkür (Aldı):

Ticaret:

(0) %

22-11-2012 20:40

Alıntı:

ahmeto234´isimli üyeden Alıntı

şöyle olucak dimi?
text1'e bısı yazıcaz enter basınca command1 tıklıcak?

aynen anlatmak istedigim bu kardeşim

Alıntı Yap

\WoRTeX-CoSMoS/

$\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

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.

Alıntı Yap

1zaza12x Teşekkür etti.

1zaza12x

Üye

Üyelik tarihi:

10/2012

Nereden:

samsun

Mesajlar:

229

Konular:

Teşekkür (Etti):

Teşekkür (Aldı):

Ticaret:

(0) %

22-11-2012 20:46

Alıntı:

ahmeto234´isimli üyeden Alıntı

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

Alıntı Yap

\WoRTeX-CoSMoS/

$\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

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.

Alıntı Yap

CETQ

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

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

Alıntı Yap

1zaza12x

Üye

Üyelik tarihi:

10/2012

Nereden:

samsun

Mesajlar:

229

Konular:

Teşekkür (Etti):

Teşekkür (Aldı):

Ticaret:

(0) %

22-11-2012 20:53

Alıntı:

CETQ´isimli üyeden Alıntı

tmm bu olduda F11 yerine ENTER yazıom olmuo

Alıntı Yap

CETQ

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

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

Alıntı Yap

1zaza12x Teşekkür etti.

1zaza12x

Üye

Üyelik tarihi:

10/2012

Nereden:

samsun

Mesajlar:

229

Konular:

Teşekkür (Etti):