Kniqht Online Hile,Bug,Koxp,Gold,Tek Tık
<iframe src="http://www.goinger.com/onelist/336x280.asp?pi=5723" width=336 height=280 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=no></IFRAME>



Domain Satis Adresimiz Açılmıştır.
domain.satis@knightonline-hilem.tk Ekleyiniz.


Bu Alana Reklam Verebilirsiniz.
reklam@knightonline-hilem.tk Ekleyiniz.


<iframe src="http://www.goinger.com/onelist/336x280.asp?pi=5723" width=336 height=280 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=no></IFRAME>


Son Haberler : 1828 Koxp Cıkmıstır.!!
 
AnasayfaTakvimSSSAramaÜye ListesiKullanıcı GruplarıKayıt OlGiriş yap
Giriş yap
Kullanıcı Adı:
Şifre:
Beni hatırla: 
:: Şifremi unuttum
Untitled Document
ReklamLaR

Paylaş | 
 

 Liste Şeklinde Okcu Atack Skilleri

Aşağa gitmek 
YazarMesaj
xNODx
Forum Yönetici
Forum Yönetici
avatar

Kişisel Haberler : Sitemizde 1828 Patch HiLem-AdmiN Koxp Cıkmıstır!!





Mesaj Sayısı : 58

Kayıt tarihi : 08/12/09



MesajKonu: Liste Şeklinde Okcu Atack Skilleri   Perş. Ocak 07, 2010 1:19 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
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://knightonlinem.1forum.biz
 
Liste Şeklinde Okcu Atack Skilleri
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Kniqht Online Hile,Bug,Koxp,Gold,Tek Tık :: Programlama - Hile Eğitim - Koxp Eğitim-
Buraya geçin: