Kreator partii: 4 kroki

2024 Autor: John Day | [email protected]. Ostatnio zmodyfikowany: 2024-01-30 11:34

AKTUALIZACJA V2.0 JUŻ DOSTĘPNA!!! POBIERZ PONIŻEJ Jest to projekt, nad którym pracowałem przez małą wile..jest wykonany za pomocą vb.net 2008 i sprawia, że tworzenie partii jest proste dla początkujących…!!!!!!!!PROSZĘ ZWRÓCIĆ UWAGĘ!!!!! !!!!!!!! TO BĘDZIE DZIAŁAŁO TYLKO NA VISTAto dlatego, że zrobiłem to na Viście teraz, kiedy próbuję go na komputerze XP, pojawia się komunikat o błędzie.. przepraszam ludzi. Muszę podziękować TATcreatorowi, ponieważ nawet wiem, że on nie wie, że podsunął mi pomysł, aby zrobić to.. lol.

Upewnij się, że zajrzysz do „Instalacji” pierwszego kroku przed pobraniem! ! Mam nadzieję, że Ci się spodoba. skomentuj to, co myślisz i nie zapomnij ocenić =)

Krok 1: Instalacja

Aby zainstalować, postępuj zgodnie z instrukcjami i zdjęciami!.exe I upewnij się, że zapisałeś jako 'Wszystkie pliki', bo inaczej to nie zadziała!!!!!

Krok 2: Jak to działa: Część 1

ComboBox

Jak powiedziałem, zrobiłem to za pomocą vb 2008, więc nie ma skryptów wsadowych. Aby to zrobić, wszystko, co naprawdę musiałem zrobić, to: jeśli w polu combobox wybrano opcję „zapis”, zmień etykietę 2 na „Napisz wiadomość - nie dodawaj echa!” textbox1zmień tekst pola tekstowego1 na 'Co chcesz powiedzieć?'Który okaże się:If ComboBox1. SelectedItem = ("Napisz") Then Label2. Text = ("Napisz wiadomość - nie dodawaj echa!") TextBox1. Show() TextBox1. Text = ("Co chcesz powiedzieć?") Zakończ, jeśli musiałbym to robić dla każdego elementu na liście rozwijanej.

Krok 3: Jak to działa: Część 2

Przyciski

Przyciski były jedną z najtrudniejszych rzeczy do zrobienia. Przycisk Dodaj Aby przycisk dodawania działał, musiałem dużo kodować, ale kiedy to zrobiłem, reszta była dość prosta… Część kodu dodawania: jeśli „Zapisz” jest Zaznaczone w polu kombi, a następnie dodaj 'echo ' + zawartość pola tekstowego1endCo okazuje się być: If ComboBox1. SelectedItem = ("Write") Then ListBox1. Items. Add("echo " + TextBox1. Text) End W większości przypadków było tak samo je, jak pokazano na rysunku. Przycisk usuwania to po prostu: Usuń wybrany element z listy, czyli: ListBox1. Items. RemoveAt(ListBox1. SelectedIndex) przycisk wyczyść po prostu czyści całą listę, a następnie ponownie dodaje pierwsze dwie linie: ListBox1. Items. Clear() ListBox1. Items. Add("::Made With iRule Batch Maker") ListBox1. Items. Add("@echo off") i kod przesuwania w górę i w dół po prostu przesuwają wybrany element w górę lub w dół:(kod do długo się znosić)

Krok 4: Jak to działa: Część 3

Zapisz/Załaduj

Zapisywanie i ładowanie były prawdopodobnie najtrudniejszą częścią. To jest tylko kod zapisu: Dim sfdMain As New SaveFileDialog sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments Dim Result As DialogResult sfdMain. Filter = "Pliki wsadowe (*.bat)|*.bat| CMD Files(*.cmd)|*.cmd" sfdMain. FilterIndex = 1 sfdMain. ValidateNames = True Result = sfdMain. ShowDialog If Result = Windows. Forms. DialogResult. OK Następnie Dim sw jako nowy system. IO. StreamWriter(sfdMain. FileName) For i As Integer = 0 To ListBox1. Items. Count - 1 sw. WriteLine(ListBox1. Items. Item(i)) Dalej sw. Close() sw. Dispose() W przeciwnym razie Zakończ Sub End Jeśli rozumiesz vb, będziesz wiedział, co to robi, ale jeśli nie: w zasadzie wszystko, co robi, to wyświetlenie okna dialogowego zapisywania i zapisuje całą zawartość listy w pliku wsadowym lub pliku cmd