Klavye tuşları ile nesne yönlendirme

• 12 May 2016

• #1

ByClxon

zulme karşı mukavemet!

Süper Üye

Katılım

7 Ocak 2016

Mesajlar

1,357

Çözümler

20

Tepki puanı

386

Ödüller

11

10 HİZMET YILI

[font='Titillium Web', sans-serif]'Klavye tuşları ile nesne yönlendirme[/FONT]
[font='Titillium Web', sans-serif]'1 adet shape nesnesi ekleyerek ismini nesne olarak değiştirin.

[/FONT][font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] yon [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]String[/FONT]
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] surat [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Integer[/FONT]
[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Form_KeyDown(KeyCode [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Integer[/FONT][font='Titillium Web', sans-serif], Shift [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Integer[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] KeyCode = vbKeyDown [/FONT][font='Titillium Web', sans-serif]Then[/FONT][font='Titillium Web', sans-serif] yon = [/FONT][font='Titillium Web', sans-serif]"asagi"[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] KeyCode = vbKeyUp [/FONT][font='Titillium Web', sans-serif]Then[/FONT][font='Titillium Web', sans-serif] yon = [/FONT][font='Titillium Web', sans-serif]"yukari"[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] KeyCode = vbKeyLeft [/FONT][font='Titillium Web', sans-serif]Then[/FONT][font='Titillium Web', sans-serif] yon = [/FONT][font='Titillium Web', sans-serif]"sol"[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] KeyCode = vbKeyRight [/FONT][font='Titillium Web', sans-serif]Then[/FONT][font='Titillium Web', sans-serif] yon = [/FONT][font='Titillium Web', sans-serif]"sag"[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]
[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Form_Load()[/FONT]
[font='Titillium Web', sans-serif]surat = 200[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]

[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Timer1_Timer()[/FONT]
[font='Titillium Web', sans-serif]Select[/FONT][font='Titillium Web', sans-serif]Case[/FONT][font='Titillium Web', sans-serif] yon[/FONT]
[font='Titillium Web', sans-serif]Case[/FONT][font='Titillium Web', sans-serif]"sol"[/FONT][font='Titillium Web', sans-serif]:[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] nesne.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif] <= (-nesne.Width) [/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]nesne.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif] = Form1.ScaleWidth[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]nesne.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif] = nesne.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif] - surat[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]Case[/FONT][font='Titillium Web', sans-serif]"sag"[/FONT][font='Titillium Web', sans-serif]:[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] nesne.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif] >= Form1.ScaleWidth [/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]nesne.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif] = (-nesne.Width)[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]nesne.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif] = nesne.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif] + surat[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]Case[/FONT][font='Titillium Web', sans-serif]"yukari"[/FONT][font='Titillium Web', sans-serif]:[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] nesne.top <= (-nesne.Width) [/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]nesne.top = Form1.ScaleHeight[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]nesne.top = nesne.top - surat[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]Case[/FONT][font='Titillium Web', sans-serif]"asagi"[/FONT][font='Titillium Web', sans-serif]:[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] nesne.top >= Form1.ScaleHeight [/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]nesne.top = (-nesne.Width)[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]nesne.top = nesne.top + surat[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Select[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]

 

• 22 Nis 2017

• #2

sefa37

Uzman Üye

Katılım

6 Eki 2016

Mesajlar

154

Tepki puanı

27

Ödüller

8

9 HİZMET YILI

başarılı devmını bekliyoruz

 

• 22 Nis 2017

• #3

#Roaccat

Ey yüce yaradan bana fantastik bir hayat yaşattın.

Emektar Üye

Katılım

2 Ocak 2016

Mesajlar

4,595

Çözümler

1,842

Tepki puanı

2,297

Ödüller

18

10 HİZMET YILI

konu hortlatma keyf vallaha böyle birşey arıyordum anasayfada gördüm geldim

 

• 26 Nis 2017

• #4

ZiyaGG

Z

Onaylı Üye

Katılım

2 Ocak 2016

Mesajlar

59

Tepki puanı

2

10 HİZMET YILI

Programım için yararlı olabilir eyw

 

• 26 Nis 2017

• #5

HackerTÜRK

H

Üye

Katılım

16 Mar 2017

Mesajlar

14

Tepki puanı

1

Ödüller

6

Yaş

41

9 HİZMET YILI

Teşekkürler İşimize Yaraya Bilir