Топтом жаратуучу: 4 кадам

2024 Автор: John Day | [email protected]. Акыркы өзгөртүү: 2024-01-30 10:43

V2.0 ЖАҢЫРТЫҢЫЗ ЭМИ !!! ТӨМӨНДӨГҮ ЖҮКТӨР Бул бир аз убакыт бою мен иштеп келе жаткан проект.. vb.net 2008 менен жасалган жана жаңылар үчүн бир партияны жөнөкөй кылат … !!!!!!!! ЭСКЕРТҮҮ !!!!! Бул !!!! билбейт мага муну жасоо идеясын берди.. lol.

Жүктөөдөн мурун биринчи кадамдын "орнотуусун" караганыңызга ишениңиз !!!! Мен сизге чын эле жагат деп ишенем.. жана эгер сизде кандайдыр бир көйгөйлөр болсо, комментарий калтырыңыз же мага жазыңыз, мен аларды оңдоп, кайра жайгаштыра алам … сураныч оюңузга комментарий бериңиз жана ага баа берүүнү унутпаңыз =)

1 -кадам: Орнотуу

Орнотуу үчүн кадамдарды жана сүрөттөрдү кылдат аткарыңыз !!! 1) 1 -сүрөттү ээрчиңиз, эгер сиз шилтемени басканда тексттин көп баракчасын алсаңыз2) Сактоону чыкылдатыңыз3) Бардык кызыл чекиттердин туура келгенин текшериңиз !!! Сактоо катары.exe Жана 'Бардык Файлдар' катары сактаганыңызды текшериңиз, антпесе ал иштебейт !!!!!

2 -кадам: Бул кантип иштейт: Part1

ComboBox

Мен айткандай, мен аны vb 2008 менен жасадым, андыктан эч кандай партиялык сценарий жок. Муну жасашым керек болчу: comboboxchange label2де 'write' тандалса 'билдирүү жазуу - жаңырыкты кошпо!' Шоусуна textbox1 textbox1 текстин 'Сиз эмнени айткыңыз келет?' деп өзгөртөт: Кайсы болуп чыгат: Эгерде ComboBox1. SelectedItem = ("Жазуу") Андан кийин Label2. Text = ("Билдирүү жазыңыз - жаңырыкты кошпоңуз!") TextBox1. Show () TextBox1. Text = ("Сиз эмнени айткыңыз келет?") Аяктоо Эгерде мен муну комбокстун ар бир пункту үчүн кыла беришим керек болсо.

3 -кадам: Бул кантип иштейт: Part2

Баскычтар

Баскычтар жасоо эң кыйын нерселердин бири болчу, Кошуу баскычы Иштөө үчүн кошуу баскычы үчүн мен көп кодировкаларды жасашым керек болчу, бирок калганын жасагандан кийин калганы абдан жөнөкөй болчу … Кошуу кодунун бир бөлүгү: эгер "Жазуу" болсо Комбо кутусуна тандалып алынган, андан кийин 'echo' + textbox1end мазмунуна кошулат: Эгерде ComboBox1. SelectedItem = ("Write") Андан кийин ListBox1. Items. Add ("echo" + TextBox1. Text) End Ifit көбүнчө бирдей болгон. аларды алып салуу баскычы жөн эле: Тандалган нерсени тизмеден алып салуу: ListBox1. Items. RemoveAt (ListBox1. SelectedIndex) ачык баскычы бүт тизмени тазалап, андан кийин дагы биринчи эки сапты кошот: ListBox1. Items. Clear () ListBox1. Items. Add (":: iRule Batch Maker менен жасалган") ListBox1. Items. Add ("@echo өчүк") жана жогору жана ылдый жылуу коду тандалган нерсени өйдө же ылдый жылдырат: (код чыдамдуу болуш үчүн)

4 -кадам: Бул кантип иштейт: Part3

Сактоо/Жүктөө

Сактоо жана Жүктөө, балким, эң кыйын бөлүгү болгон, бул жөн эле сактоо коду: Dim sfdMain Жаңы SaveFileDialog катары sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments DialogResult sfdMain. Filter = "Топтом файлдары (*)) |*.bat | CMD Files (*. cmd) |*.cmd "sfdMain. FilterIndex = 1 sfdMain. ValidateNames = True Result = sfdMain. ShowDialog If Result = Windows. Forms. DialogResult. OK Андан кийин Жаңы система катары Dim. IO. StreamWriter (sfdMain. FileName) For I Integer = 0 To ListBox1. Items. Count - 1 sw. WriteLine (ListBox1. Items. Item (i)) Кийинки sw. Close () sw. Dispose () Башка Чыгуу Sub End Эгерде сиз vbни түшүнсөңүз, анда эмне кылаарыңызды билесиз, бирок эгерде андай кылбасаңыз: негизинен, анын баардыгы сактоо диалогун көрсөтөт жана ал тизмектин бардык мазмунун партия файлына же cmd файлына сактайт.