Knight OnLine Güncel Koxp - Koxp Yapımı- Programlama - USKoxp ...
Sitemize Üye Değilseniz Lütfen Üye Olunuz. Eğer Üye İseniz Giriş Yapınız... Sitemizdeki Linkleri Görebilmeniz ve Konulara Cevap Yazabilmek İçin İçin Üye Olmanız Gerekmektedir...



 
AnasayfaTakvimAramaKayıt OlGiriş yap

Paylaş | 
 

 Liste Şeklinde Okçu Atak Skilleri Yapılışı

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
ByLetsFeeL
Admin
Admin
avatar

Mesaj Sayısı : 161
Puanlar : 145789661
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...

MesajKonu: Liste Şeklinde Okçu Atak Skilleri Yapılışı   Çarş. Şub. 03, 2010 1:29 pm

Gerekenler:
1 adet List box
1 adet Timer
1 adet list box açın içine şu kodu yapıştırın :

Kod:
Private Sub List1_DblClick()
If List1.Enabled = True Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
1 tane timer ekleyin enabled = false ve interval = 1350 içine şu kodu yapıştırın :

Kod:
Public Sub skiller()
Form1.List1.AddItem "Archery"
Form1.List1.ItemData(Form1.List1.NewIndex) = 3
Form1.List1.AddItem "Through Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 500
Form1.List1.AddItem "Fire Arrow"
Form1.List1.ItemData(Form1.List1.NewIndex) = 505
Form1.List1.AddItem "Posion Arrow"
Form1.List1.ItemData(Form1.List1.NewIndex) = 510
Form1.List1.AddItem "Multiple Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 515
Form1.List1.AddItem "Guided Arrow"
Form1.List1.ItemData(Form1.List1.NewIndex) = 520
Form1.List1.AddItem "Perfect Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 525
Form1.List1.AddItem "Fire Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 530
Form1.List1.AddItem "Poison Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 535
Form1.List1.AddItem "Arc Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 540
Form1.List1.AddItem "Explosive Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 545
Form1.List1.AddItem "Viper"
Form1.List1.ItemData(Form1.List1.NewIndex) = 550
Form1.List1.AddItem "Arrow Shower"
Form1.List1.ItemData(Form1.List1.NewIndex) = 555
Form1.List1.AddItem "Shadow Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 557
Form1.List1.AddItem "Shadow Hunter"
Form1.List1.ItemData(Form1.List1.NewIndex) = 560
Form1.List1.AddItem "İce Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 562
Form1.List1.AddItem "Lighting Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 566
Form1.List1.AddItem "Dark Pursuer"
Form1.List1.ItemData(Form1.List1.NewIndex) = 570
Form1.List1.AddItem "Blow Arrow"
Form1.List1.ItemData(Form1.List1.NewIndex) = 575
Form1.List1.AddItem "Blinding Strafe"
Form1.List1.ItemData(Form1.List1.NewIndex) = 580
Form1.List1.AddItem "Power Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 585
End Sub

Forumun Loadınada şunu yazın :
skiller
DipNot :
Listbox,timer ve modüldeki list form numaralarını kendinize göre ayarlamayı sakın unutmayın


ByLetsFeeL
Bi Teşekkür Yeter...
Sayfa başına dön Aşağa gitmek
http://koxpworld.youneed.us
 
Liste Şeklinde Okçu Atak Skilleri Yapılışı
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» VB 6 ile Basit Koxp Yapımı
» İnsan Yapımı UFO'lar ve Dünya Dışı Teknolojinin Ele Geçirilişi
» Kart satarken bug yapılıomu ????

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Knight OnLine Güncel Koxp - Koxp Yapımı- Programlama - USKoxp ... :: Knight OnLine Koxp - TBL & Bug - Hile :: Koxp Yapımı - Programlama :: Kodlar-
Buraya geçin: