„Batch Maker“: 4 žingsniai

2024 Autorius: John Day | [email protected]. Paskutinį kartą keistas: 2024-01-30 10:50

ATNAUJINKITE V2.0 DABAR !!! Atsisiųskite žemiau !!!!!!!! TAI TIK TIK Į VISTAit nežino, jis davė man idėją tai padaryti.. lol.

Prieš atsisiųsdami įsitikinkite, kad pažvelgėte į pirmąjį žingsnį „diegimas“!!!! Tikrai tikiuosi, kad jums tai patinka.. ir jei radote kokių nors problemų, palikite komentarą arba parašykite man pm, kad galėčiau jas išspręsti ir pakartotinai paskelbti … prašau komentuok ką galvoji ir nepamiršk to įvertinti =)

1 žingsnis: diegimas

Norėdami įdiegti, atidžiai atlikite veiksmus ir nuotraukas !!! 1) Sekite 1 paveikslėlį, jei spustelėję nuorodą gausite puslapį su daug teksto2) Spustelėkite išsaugoti.exe ir įsitikinkite, kad išsaugojote kaip „Visi failai“, kitaip jis neveiks !!!!!

2 žingsnis: kaip tai veikia: 1 dalis

„ComboBox“

Kaip sakiau, padariau tai su „vb 2008“, todėl nėra jokių partijų scenarijų. Norėdami tai padaryti, aš tikrai turėjau tai padaryti: jei „write“yra pasirinkta „comboboxchange label2“į „Rašyti pranešimą - nepridėti aido!“textbox1keiskite textbox1 tekstą į „Ką norite, kad jis pasakytų?“, kuris pasirodys taip: If ComboBox1. SelectedItem = ("Write") Tada Label2. Text = ("Rašykite pranešimą - nepridėkite aido!") TextBox1. Rodyti () TextBox1. Text = ("Ką norite, kad jis pasakytų?") Pabaiga Jei turėčiau tai daryti ir toliau kiekviename langelyje.

3 žingsnis: kaip tai veikia: 2 dalis

Mygtukai

Mygtukai buvo vienas iš sunkiausių dalykų, kuriuos reikia padaryti, mygtukas „Pridėti“. Kad pridėjimo mygtukas veiktų, turėjau daug koduoti, bet kai tai padariau, visa kita buvo gana paprasta… Dalis pridėto kodo: jei yra „Rašyti“Pasirinktas kombinuotame laukelyje, tada pridėkite „echo“+ teksto laukelio1 galo turinys, kuris išryškėja kaip: Jei „ComboBox1. SelectedItem = (" Write "), tada ListBox1. Items. Add (" echo " + TextBox1. Text) End If juos, kaip parodyta paveikslėlyje. Pašalinimo mygtukas yra tiesiog: pašalinkite pasirinktą elementą iš sąrašo. Clear () ListBox1. Items. Add (":: Made With iRule Batch Maker") ListBox1. Items. Add ("@echo off") ir perkėlimo aukštyn ir žemyn kodas tiesiog perkelkite pasirinktą elementą aukštyn arba žemyn: (kodas į ilgai laukti)

4 žingsnis: kaip tai veikia: 3 dalis

Įrašyti/įkelti

Išsaugoti ir įkelti buvo turbūt sunkiausia dalis, tai tik išsaugojimo kodas: Dim sfdMain As New SaveFileDialog sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments Dim Result As DialogResult sfdMain. Filter = "Batch Files (*.bat)) |*.bat | CMD failai (*. cmd) |*.cmd "sfdMain. FilterIndex = 1 sfdMain. ValidateNames = Tikras rezultatas = sfdMain. ShowDialog If Result = Windows. Forms. DialogResult. OK Tada Dim sw kaip nauja sistema. IO. StreamWriter (sfdMain. FileName) „i As Integer“= 0 Į ListBox1. Items. Count - 1 sw. WriteLine (ListBox1. Items. Item (i)) Kitas sw. Close () sw. Dispose () Kitas Exit Sub End Jei suprasite vb, žinosite, ką tai daro, bet jei ne: iš esmės viskas, ką jis daro, yra rodyti išsaugojimo dialogo langą, o visas sąrašo turinys išsaugomas paketiniame arba cmd faile