Kazalo:
2025 Avtor: John Day | [email protected]. Nazadnje spremenjeno: 2025-01-13 06:58
POSNOVITE V2.0 ZDAJ !!! PRENESITE SPODAJTo je projekt, na katerem sem delal že malo zvijače.. izdelan je z vb.net 2008 in omogoča preprosto poenostavitev serije za začetnike … !!!!!!!! OPOMBA !!!!! !!!!!!!! TO BO DELOVALO SAMO NA VISTA To je zato, ker sem to naredil v Visti, ko jo preizkusim na računalniku XP, se prikaže sporočilo o napaki. ne vem, dal mi je idejo, da to naredim.. lol.
Preden naložite, si oglejte prvi korak "namestitev" !!!! Resnično upam, da vam bo všeč.. in če najdete kakršne koli težave, pustite komentar ali mi pišite, da jih lahko popravim in ponovno objavim … prosim komentirajte svoje mnenje in ne pozabite oceniti =)
1. korak: Namestitev
Za namestitev natančno sledite korakom in slikam !!! 1) Sledite sliki 1, če dobite stran z veliko besedila, ko kliknete povezavo2) Kliknite shrani3) Poskrbite, da so vse rdeče črte pravilne !!! Shrani kot.exe In poskrbite, da boste shranili kot 'Vse datoteke', sicer ne bo delovalo !!!!!
2. korak: Kako deluje: 1. del
ComboBox
Kot sem rekel, mi je to uspelo z vb 2008, zato ni paketnega skriptiranja. Če sem želel narediti vse, sem moral res storiti naslednje: če je v comboboxchange label2 izbrano 'write' v oddajo 'Write message - Do not add the echo!' Show textbox1premeni besedilo textbox1 v 'Kaj želite, da pove?', kar se izkaže kot: Če je ComboBox1. SelectedItem = ("Write") Potem Label2. Text = ("Napišite sporočilo - Ne dodajajte odmeva!") TextBox1. Show () TextBox1. Text = ("Kaj želite povedati?") Konec Če bi moral to narediti za vsak element v kombiniranem polju.
3. korak: Kako deluje: 2. del
Gumbi
Gumbi so bili ena najtežjih stvari, gumb za dodajanjeZa dodajanje gumba za delo sem moral veliko kodirati, a ko sem to naredil, je bilo ostalo dokaj preprosto … Del kode za dodajanje: če je "Napiši" V kombiniranem polju je izbrano thenadd 'echo' + vsebina textbox1endKateri se izkaže kot: Če je ComboBox1. SelectedItem = ("Write") Potem ListBox1. Items. Add ("echo" + TextBox1. Text) Konec Ifit je bil večinoma enak jih, kot je prikazano na sliki. Gumb za odstranitev je samo: Odstrani izbrani element s seznama, ki je: ListBox1. Items. RemoveAt (ListBox1. SelectedIndex), gumb za brisanje počisti celoten seznam in nato znova doda prvi dve vrstici: ListBox1. Items. Clear () ListBox1. Items. Add (":: Made with iRule Batch Maker") ListBox1. Items. Add ("@echo off") in koda za premikanje navzgor in navzdol samo premakne izbrani element gor ali dol: (koda v dolgo za odlaganje)
4. korak: Kako deluje: 3. del
Shrani/naloži
Shranjevanje in nalaganje sta bila verjetno najtežja dela. To je samo koda za shranjevanje: Dim sfdMain As New SaveFileDialog sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments Zatemni rezultat kot DialogResult sfdMain. Filter = Paketne datoteke (| |. 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 Če razumete vb, boste vedeli, kaj to počne, če pa ne: v bistvu prikaže le pogovorno okno za shranjevanje in shrani vso vsebino seznama v paketno datoteko ali datoteko cmd