Partii valmistaja: 4 sammu

2024 Autor: John Day | [email protected]. Viimati modifitseeritud: 2024-01-30 08:51

UUENDA V2.0 NÜÜD !!! DOWNLOAD BELOW !!!!!!!! SEE TOIMIB AINULT VISTA -l ei tea, ta andis mulle idee seda teha.. lol.

Enne allalaadimist vaadake kindlasti esimese sammu installimist !!!! Ma tõesti loodan, et teile meeldib see.. ja kui leiate sellega probleeme, jätke kommentaar või saatke mulle pm, et saaksin need parandada ja uuesti postitada … palun kommenteerige oma arvamust ja ärge unustage seda hinnata =)

Samm: paigaldamine

Paigaldamiseks järgige täpselt samme ja pilte !!! 1) Järgige pilti 1, kui lingile klõpsates kuvatakse leht, kus on palju teksti2) Klõpsake nuppu Salvesta3) Veenduge, et kõik punased bitid oleksid õiged!.exe Ja veenduge, et salvestate "Kõik failid" või see ei tööta !!!!!

2. samm: kuidas see toimib: 1. osa

ComboBox

Nagu ma ütlesin, tegin selle vb 2008 -ga, nii et partiiskriptimist pole. Selle tegemiseks pidin ma tõesti tegema järgmist: kui Comboboxchange label2 -s on valitud "write", et valida "Sõnumi kirjutamine - ärge lisage kaja!" textbox1muuda textbox1 tekst "Mida sa tahad, et see ütleks?" Mis osutub järgmiselt: If ComboBox1. SelectedItem = ("Write") Siis Label2. Text = ("Kirjutage sõnum - ärge lisage kaja!") TextBox1. Näita () TextBox1. Text = ("Mida sa tahad, et see ütleks?") Lõpp Kui ma pidin seda jätkuvalt tegema iga üksuse kohta.

3. samm: kuidas see toimib: 2. osa

Nupud

Nupud olid üks kõige raskemaid asju, nupp Lisa, et lisamisnupp töötaks, pidin palju kodeerima, kuid kui olin seda teinud, oli ülejäänud üsna lihtne … Osa lisakoodist: kui kirjutamine on Valitud liitkastis, seejärel lisage tekst „kaja” + tekstikasti1 sisu sisu, mis kuvatakse järgmiselt: Kui ComboBox1. SelectedItem = ("Kirjutage") Siis ListBox1. Items. Add ("echo" + TextBox1. Text) Lõpp Kui see oli enamiku puhul enam -vähem sama neid, nagu on näidatud pildil. Eemaldamisnupp on lihtsalt: Eemaldage valitud üksus loendist. Clear () ListBox1. Items. Add (":: Made With iRule Batch Maker") ListBox1. Items. Add ("@echo off") ja üles -alla liikumise kood lihtsalt liigutab valitud üksust üles või alla: (kood kaua üles panna)

4. samm: kuidas see toimib: 3. osa

Salvesta/laadi

Salvestamine ja laadimine olid ilmselt kõige raskem osa, see on lihtsalt salvestuskood: Dim sfdMain As New SaveFileDialog sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments Dim Result As DialogResult sfdMain. Filter = "Batch Files (*.bat)) |*.bat | CMD -failid (*. cmd) |*.cmd "sfdMain. FilterIndex = 1 sfdMain. ValidateNames = True Result = sfdMain. ShowDialog If Result = Windows. Forms. DialogResult. OK Siis Dim sw nagu uus süsteem. IO. StreamWriter (sfdMain. FileName) i As Integer = 0 ListBox1. Items. Count - 1 sw. WriteLine (ListBox1. Items. Item (i)) Järgmine sw. Close () sw. Dispose () Muu Exit Sub End Kui mõistate vb -d, teate, mida see teeb, aga kui te seda ei tee: põhimõtteliselt näitab see ainult salvestusdialoogi ja salvestab kogu loendi sisu partii- või cmd -faili