Paket ishlab chiqaruvchisi: 4 qadam

2024 Muallif: John Day | [email protected]. Oxirgi o'zgartirilgan: 2024-01-30 13:29

V2.0 YANGILASHNI HOZIR !!! QUYIDAGI KO'CHIRISHBu men ozgina vaqt mobaynida ishlagan loyiham.. u vb.net 2008 bilan tuzilgan va yangi boshlanuvchilar uchun partiyani soddalashtiradi … !!!!!!!! DIQQAT !!!!! !!!!!!!! buni bilmaydi menga buni qilish fikrini berdi.. lol.

Yuklab olishdan oldin birinchi qadam "o'rnatishga" qaraganingizga ishonch hosil qiling !!!! Umid qilamanki, sizga yoqadi.. va agar sizda biron bir muammo topsangiz, iltimos, izoh qoldiring yoki menga yozing, shunda men ularni tuzatib, qayta joylashim mumkin … Siz nima deb o'ylayotganingizni sharhlang va baho berishni unutmang =)

1 -qadam: O'rnatish

O'rnatish uchun qadam va rasmlarni diqqat bilan kuzatib boring !!! 1) Agar siz havolani bosganingizda ko'p matnli sahifaga ega bo'lsangiz, 1 -rasmga rioya qiling 2) Saqlash -ni bosing 3) Qizil bitlarning to'g'ri ekanligiga ishonch hosil qiling !!! Saqlash.exe Va "Barcha fayllar" sifatida saqlaganingizga ishonch hosil qiling, aks holda u ishlamaydi !!!!!

2 -qadam: Bu qanday ishlaydi: 1 -qism

ComboBox

Aytganimdek, men buni 2008 yildayoq qildim, shuning uchun hech qanday ommaviy skript yo'q. Buni amalga oshirish uchun men qilishim kerak edi: agar comboboxchange label2da "yozish" tanlangan bo'lsa, "Xabar yozish - aks -sadoni qo'shmang!" textbox1 textbox1 matnini "Siz nima demoqchisiz?" ga aylantiring, bu quyidagicha chiqadi: Agar ComboBox1. SelectedItem = ("Yozish") Keyin Label2. Text = ("Xabar yozing - aks -sadoni qo'shmang!") TextBox1. Show () TextBox1. Text = ("Siz nima demoqchisiz?") Agar men buni combobox -dagi har bir element uchun qilishda davom etishim kerak edi.

3 -qadam: Bu qanday ishlaydi: 2 -qism

Tugmalar

Tugmalarni bajarish eng qiyin ishlardan biri edi, Qo'shish tugmasi Ish uchun qo'shish tugmasi uchun men juda ko'p kodlashim kerak edi, lekin men buni qilganimdan keyin qolganlari juda oddiy edi … Qo'shish kodining bir qismi: agar "Yozish" bo'lsa Kombinat qutisiga tanlangan, keyin "echo" + textbox1end tarkibiga qo'shiladi: Agar ComboBox1. SelectedItem = ("Write") So'ng ListBox1. Items. Add ("echo" + TextBox1. Text) End Ifit ko'pchilik uchun bir xil bo'lgan. Rasmda ko'rsatilgandek, "O'chirish" tugmasi shunchaki: Tanlangan elementni ro'yxatidan o'chirish: ListBox1. Items. RemoveAt (ListBox1. SelectedIndex) aniq tugma butun ro'yxatni tozalaydi, keyin yana birinchi ikkita qatorni qo'shadi: ListBox1.. Clear () ListBox1. Items. Add (":: iRule Batch Maker yordamida yaratilgan") ListBox1. Items. Add ("@echo o'chirilgan") va yuqoriga va pastga siljitish kodi tanlangan elementni yuqoriga yoki pastga siljitadi: (kod uzoq kutish)

4 -qadam: Bu qanday ishlaydi: 3 -qism

Saqlash/yuklash

Saqlash va yuklash, ehtimol, eng qiyin qism edi, bu faqat saqlash kodi: Dim sfdMain yangi SaveFileDialog sifatida sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments DialogResult sifatida xira natija sfdMain. Filter = "Batch fayllar (*)) |*.bat | CMD fayllari (*. cmd) |*.cmd "sfdMain. FilterIndex = 1 sfdMain. ValidateNames = True Result = sfdMain. ShowDialog If Result = Windows. Forms. DialogResult. OK Keyin Yangi tizim sifatida dim. IO. StreamWriter (sfdMain. FileName) i As Integer = 0 uchun ListBox1. Items. Count - 1 sw. WriteLine (ListBox1. Items. Item (i)) Keyingi sw. Close () sw. Dispose () Boshqa Chiqish Sub End Agar siz vb ni tushunsangiz, nima qilayotganingizni bilib olasiz, lekin agar bilmasangiz: asosan, bu dialog oynasini ko'rsatishdir va u ro'yxatning barcha tarkibini ommaviy faylga yoki cmd faylga saqlaydi.