Пакетный производитель: 4 шага

2025 Автор: John Day | [email protected]. Последнее изменение: 2025-01-23 15:05

ОБНОВЛЕНИЕ V2.0 СЕЙЧАС !!! СКАЧАТЬ НИЖЕ Это проект, над которым я немного работал … он сделан с vb.net 2008 и упрощает создание партии для новичков … !!!!!!!! ОБРАТИТЕ ВНИМАНИЕ !!!!! !!!!!!!! ЭТО БУДЕТ РАБОТАТЬ ТОЛЬКО НА VISTAit, потому что я сделал это в Vista сейчас, когда я пробую его на машине XP, появляется сообщение об ошибке … извините, люди. Я должен поблагодарить TATcreator, потому что даже знаю, что он не знает, что он подал мне идею сделать это.. лол.

Обязательно ознакомьтесь с первым шагом «установка» перед загрузкой !!!! Я действительно надеюсь, что он вам понравится … и если вы обнаружите какие-либо проблемы с этим, пожалуйста, оставьте комментарий или напишите мне, чтобы я мог исправить их и опубликовать его … пожалуйста комментируйте то, что вы думаете, и не забывайте ставить оценки =)

Шаг 1: установка

Для установки внимательно следуйте инструкциям и рисункам !!! 1) Следуйте рисунку 1, если вы просто получаете страницу с большим количеством текста при нажатии на ссылку 2) Нажмите кнопку «Сохранить» 3) Убедитесь, что вы правильно поняли все красные биты !!! Сохранить как.exe И убедитесь, что вы сохранили как «Все файлы», иначе он не будет работать !!!!!

Шаг 2: Как это работает: Часть 1

ComboBox

Как я уже сказал, я сделал это с помощью vb 2008, поэтому нет пакетного сценария. Чтобы сделать это все, что мне действительно нужно было сделать, это: если 'write' выбрано в combobox, измените label2 на 'Write a message - Do not add the echo!' Show textbox1 замените текст textbox1 на «Что вы хотите, чтобы он сказал?». Это будет выглядеть так: If ComboBox1. SelectedItem = ("Write") Then Label2. Text = ("Напишите сообщение - не добавляйте эхо!") TextBox1. Show () TextBox1. Text = («Что вы хотите сказать?») Конец, если бы мне пришлось делать это для каждого элемента в поле со списком.

Шаг 3: Как это работает: Часть 2

Кнопки

Кнопки были одной из самых сложных вещей, которые нужно было делать. Кнопка «Добавить» Для того, чтобы кнопка добавления работала, мне пришлось много писать код, но как только я это сделал, все остальное было довольно просто … Часть кода добавления: если «Запись» - это Выбрано в поле со списком, затем добавьте 'echo' + содержимое textbox1end, что получается как: If ComboBox1. SelectedItem = ("Write") Then ListBox1. Items. Add ("echo" + TextBox1. Text) End Ifit было в основном одинаковым для большей части их, как показано на рисунке. Кнопка удаления - это просто: Удалить выбранный элемент из списка: ListBox1. Items. RemoveAt (ListBox1. SelectedIndex) кнопка очистки просто очищает весь список, а затем снова добавляет первые две строки: ListBox1. Items. Clear () ListBox1. Items. Add (":: Made With iRule Batch Maker") ListBox1. Items. Add ("@ echo off") и код перемещения вверх и вниз просто перемещает выбранный элемент вверх или вниз: (код для долго мириться)

Шаг 4: Как это работает: Часть 3

Сохранение / загрузка

Сохранение и загрузка, вероятно, были самой сложной частью. Это просто код сохранения: Dim sfdMain As New SaveFileDialog sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments Dim Result As DialogResult sfdMain. Filter = "Batch Files (*.bat)) | *.bat | CMD-файлы (*. cmd) | *.cmd "sfdMain. FilterIndex = 1 sfdMain. ValidateNames = True Result = sfdMain. ShowDialog Если Result = Windows. Forms. DialogResult. OK Тогда Dim sw как новая система. IO. StreamWriter (sfdMain. FileName) For i As Integer = 0 To ListBox1. Items. Count - 1 sw. WriteLine (ListBox1. Items. Item (i)) Далее sw. Close () sw. Dispose () Else Exit Sub End Если вы понимаете vb, вы будете знать, что это делает, но если вы этого не сделаете: в основном, все, что он делает, это показывает диалог сохранения, и он сохраняет все содержимое списка в пакетный файл или файл cmd