ByLetsFeeL Admin
Mesaj Sayısı : 161 Puanlar : 145801326 REP : 94 Kayıt tarihi : 02/02/10 Nerden : Nereyee...
| Konu: 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... | |
|