list 1 de şunlar çıkmadıı

Public Sub LoadSkillS()
LoadSkillS
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
End Sub

modulatöre aynen böyle yazıyorum
hiç biri çıkmıyor list 1 yazıyor aynı?

aynı sorunu ben de geçen gün yazdım adam terslemekten beter etti beni ve konuyu kapattı

walla 3-4 eksiğim war koxpum yakında çıkcak xD bunada yardım eder o benim biricik abim

inş. yardım eder. benim de tek eksik bu. oto rpr, oto kutu filan hepsini ekledim tek bu skilleri ekliyemedim

mchute bu kodları nerden aldın ?

bunlar eksik suan

module ekledin mi kodları yoksa direk form üzerine mi kurdun? ayrı bi modül üzerinden işlemesi lazım benim bildiğim..

module ekledim direk bu kodları


3-4 tane modul war 1. ye ekledim


skiller 35 lvl e kadar arkadaştan aldım diyor bunları ekle diyor list1 e 80 e kadar olanı wericem sana diyor

bende son skille kadar olanı var ama bi türlü list'te çıkaramadım.

mchute demiş ki:

module ekledim direk bu kodları


3-4 tane modul war 1. ye ekledim


skiller 35 lvl e kadar arkadaştan aldım diyor bunları ekle diyor list1 e 80 e kadar olanı wericem sana diyor

tam kodları alırsan yardım ederim ..

Public Sub LoadSkillS()
LoadSkillS
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
End Sub

sen bunları bana list e çıkartmayı bir söyle ben söz sana 80 e kadar olanı wercem

hatta arkın msn sini wereyim başka özellikleride öğren

uploaddla projeyi ekleyim liste

ustam msn mi wereyim msn den atay?m 1dk

super_gonzales@hotmail.com

ekle 2dk at?vereyim hem koxpta bozukluklar warsa onlarada bak?p söylersin?


we arkada ye?illi bir?ey ç?k?yor onuda iptal edebilirsen sevinirim

msnyi açınca çok yüklenme oluyor cevap vermekten yetişemiyorum uploadla ben hemen linki alıp silerim

mchute linkii pme ile gonderirmisin

1 saniye buraya upload edicem prjecti içinde kodlar felan war kitlemeyi bilmediğim için ayarları oynayıp düzenliyebilirsiniz

buyrun link düzenlemede yapabilirsen sevinirim

http://www.dosya.tc/Project1_8783.rar.html

bende de var kodlar ama bi türlü çıkartamadım listede ben de. işin hallolursa bana da yardımcı olur musun

bir saniye bilader benim dandik dundik olan koxpumu bir ayar çeksinler

valla ben herşeyi yaptım benim koxpa. oto rpr, seri R, oto kutu, ölünce pc kapat filan. bi bu eksik kaldı

armada msn mi eklesene super_gonzales@hotmail.com

ben msn kullanmıyorum kardeş

projectini uploadlıyıp bana yollasan bende kendikiminkini yolluyayım 2 mizde koxpumuzda olmayan kodları aktaralım?

mchute demiş ki:

Public Sub LoadSkillS()
LoadSkillS
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
End Sub

sen bunları bana list e çıkartmayı bir söyle ben söz sana 80 e kadar olanı wercem

hatta arkın msn sini wereyim başka özellikleride öğren

bu kodlar eksik

eksik deil. aynen böyle kodlar. ya da bize verilenler böyle

istedigini bumudur ?...

evet aynennnnn :D öyle we %50 exp bug war ya öle bide arcery fealn olcak öle

list2 olcak arcery thougt shout felan olcak