Batch Maker: 4 pași

2024 Autor: John Day | [email protected]. Modificat ultima dată: 2024-01-30 11:47

ACTUALIZAȚI V2.0 ACUM IEȘI !!! DESCĂRCAȚI MAI SUS: Acesta este un proiect la care lucrez de ceva vreme … este realizat cu vb.net 2008 și face simplificarea simplificării pentru începători … !!!!!!!! ATENȚIE !!!!! !!!!!!!! ACEASTA VA FUNCȚIONA NUMAI PE VISTAit's, deoarece am făcut asta pe Vista acum, când îl încerc pe o mașină XP, vine cu un mesaj de eroare.. scuze oameni. Trebuie să mulțumesc TATcreator pentru că chiar știu că nu știe, mi-a dat ideea să fac asta.. lol.

Asigurați-vă că vă uitați la „instalarea” primului pas înainte de a descărca !!!! Sper cu adevărat să vă placă.. și dacă găsiți probleme cu acesta, vă rugăm să lăsați un comentariu sau pm mine, ca să le pot remedia și să le repost … comentează ce crezi și nu uita să o evaluezi =)

Pasul 1: Instalare

Pentru instalare, urmați pașii și imaginile îndeaproape !!! 1) Urmați imaginea 1 dacă primiți doar o pagină cu o mulțime de text când faceți clic pe link2) Faceți clic pe salvare 3) Asigurați-vă că aveți toți biții roșii corect !!! Salvați ca.exe Și asigurați-vă că salvați ca „Toate fișierele” sau nu va funcționa !!!!!

Pasul 2: Cum funcționează: Partea 1

ComboBox

Așa cum am spus, am realizat-o cu vb 2008, deci nu există scripturi batch. Pentru a face tot ce trebuia să fac era: dacă se selectează „write” în comboboxchange label2 la „Write a message - Do not add the echo!” textbox1change textbox text to 'Ce vrei să spună?' Care se dovedește a fi: If ComboBox1. SelectedItem = ("Write") Then Label2. Text = ("Write a message - Do not add the echo!") TextBox1. Show () TextBox1. Text = ("Ce vrei să spună?") Sfârșit Dacă ar fi trebuit să continui să fac asta pentru fiecare articol din combobox.

Pasul 3: Cum funcționează: partea 2

Butoanele

Butoanele au fost unul dintre cele mai dificile lucruri de făcut, butonul Adăugare Pentru ca butonul de adăugare să funcționeze, a trebuit să fac o mulțime de codare, dar odată ce am făcut acest lucru, restul a fost destul de simplu … O parte din codul de adăugare: dacă „Scrie” este Selectat în caseta combinată apoi adăugați „ecou” + conținutul textbox1end Care apare ca: Dacă ComboBox1. SelectedItem = („Scrieți”) Apoi ListBox1. Items. Add („echo” + TextBox1. Text) End Ifit a fost în mare parte același pentru majoritatea butonul de eliminare este doar: Eliminați elementul selectat din listă, care este: ListBox1. Items. RemoveAt (ListBox1. SelectedIndex) butonul de ștergere doar șterge întreaga listă, apoi adaugă din nou primele două linii: ListBox1. Items. Clear () ListBox1. Items. Add (":: Made With iRule Batch Maker") ListBox1. Items. Add ("@ echo off") și codul de deplasare în sus și în jos trebuie doar să mutați elementul selectat în sus sau în jos: (cod la mult de pus)

Pasul 4: Cum funcționează: partea 3

Salvare / Încărcare

Salvarea și încărcarea au fost probabil cea mai grea parte, acesta este doar codul de salvare: Dim sfdMain As New SaveFileDialog sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments Dim Result As DialogResult sfdMain. Filter = "Fișiere batch (*.bat) | *.bat | Fișiere CMD (*. cmd) | *.cmd "sfdMain. FilterIndex = 1 sfdMain. ValidateNames = True Result = sfdMain. ShowDialog If Result = Windows. Forms. DialogResult. OK Apoi Dim sw As New System. IO. StreamWriter (sfdMain. FileName) For i As Integer = 0 To ListBox1. Items. Count - 1 sw. WriteLine (ListBox1. Items. Item (i)) Next sw. Close () sw. Dispose () Else Exit Sub End Dacă înțelegeți vb, veți ști ce face, dar dacă nu, practic: tot ceea ce face este să afișeze dialogul de salvare și salvează tot conținutul listei într-un fișier batch sau un fișier cmd