Batch Maker: 4 addım

2024 Müəllif: John Day | [email protected]. Son dəyişdirildi: 2024-01-30 07:49

V2.0 -ı YENİDƏN YENİLƏYİN !!! AŞAĞIDAKİ YÜKLƏ Bu bir az hiylə işlədiyim bir layihədir.. vb.net 2008 ilə hazırlanmışdır və yeni başlayanlar üçün bir dəstə hazırlamağı asanlaşdırır … !!!!!!!! DİQQƏT !!!!! !!!!! bunu bilmir mənə bunu etmək fikrini verdi.. lol.

Yükləməzdən əvvəl ilk addım "quraşdırma" ya baxdığınızdan əmin olun !!!! Ümid edirəm ki, xoşunuza gəlir.. və hər hansı bir problemlə qarşılaşsanız, şərh yazın və ya mənə yazın ki, bunları düzəldim və yenidən yerləşdirim. Düşündüklərinizi şərh edin və qiymətləndirməyi unutmayın =)

Addım 1: Quraşdırma

Quraşdırmaq üçün addımları və şəkilləri yaxından izləyin !!! 1) Linki tıkladığınızda çoxlu mətnli bir səhifə əldə edirsinizsə şəkil 1 -i izləyin2) Saxla düyməsini basın3) Bütün qırmızı bitləri düzgün aldığınızdan əmin olun !!!.exe Və 'Bütün Fayllar' olaraq saxladığınızdan əmin olun, yoxsa işləməyəcək !!!!!

Addım 2: Necə Çalışır: Part1

ComboBox

Dediyim kimi vb 2008 ilə hazırladım, buna görə də heç bir toplu işləmə yoxdur. Bunu etmək üçün həqiqətən etməli idim: əgər comboboxchange label2 -də 'yaz' seçilsə 'Mesaj yaz - Yankı əlavə etmə!' Şousu. textbox1 textbox1 mətnini 'Nə demək istəyirsiniz?' olaraq dəyişdirin: Bu, belə çıxır: ComboBox1. SelectedItem = ("Yaz") Sonra Label2. Text = ("Mesaj yaz - Yankını əlavə etmə!") TextBox1. Göstər () TextBox1. Text = ("Nə demək istəyirsən?") Sonda Comboboxdakı hər bir maddə üçün bunu etməyə davam etməli idim.

Addım 3: Necə Çalışır: 2 -ci hissə

Düymələr

Düymələr etmək ən çətin işlərdən biri idi, Əlavə Et düyməsi İşləmək üçün əlavə etmək üçün çoxlu kodlaşdırma etməli idim, amma bir dəfə qalanlarının olduqca sadə olduğunu gördüm … Əlavə kodunun bir hissəsi: əgər 'Yaz' varsa Açılan qutuda seçildikdən sonra 'echo' + textbox1end məzmununu əlavə edin: ComboBox1. SelectedItem = ("Yaz") Sonra ListBox1. Items. Add ("echo" + TextBox1. Text) Ifit əksəriyyəti üçün eyni idi. Şəkildə göstərildiyi kimi Silin düyməsi yalnız: Seçilmiş elementi siyahıdan çıxarın: ListBox1. Items. RemoveAt (ListBox1. SelectedIndex) aydın düymə yalnız bütün siyahını silir və sonra yenidən ilk iki sətiri əlavə edir: ListBox1. Items. Clear () ListBox1. Items. Add (":: iRule Batch Maker ilə hazırlanır") ListBox1. Items. Add ("@echo off") və yuxarı və aşağı hərəkət etmək üçün seçilmiş elementi yuxarı və ya aşağı hərəkət etdirin: (kod uzun çəkmək)

Addım 4: Necə Çalışır: Part3

Saxla/Yükləyin

Saxla və Yükləmə, ehtimal ki, ən çətin hissə idi, bu sadəcə qənaət kodudur: Yeni SaveFileDialog olaraq Dim sfdMain sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments DialogResult Olaraq Slim Nəticə sfdMain. Filter = ".) |*.bat | CMD Dosyaları (*. cmd) |*.cmd "sfdMain. FilterIndex = 1 sfdMain. ValidateNames = Doğru Nəticə = sfdMain. ShowDialog Nəticədirsə = Windows. Forms. DialogResult. OK Sonra Yeni Sistem kimi Dim. IO. StreamWriter (sfdMain. FileName) i As Integer = 0 üçün ListBox1. Items. Count - 1 sw. WriteLine (ListBox1. Items. Item (i)) Sonrakı sw. Close () sw. Dispose () Başqa Çıxış Alt Sonu Vb -ni başa düşsəniz, bunun nə etdiyini biləcəksiniz, amma anlamırsınızsa: əsas olaraq, bütün etdikləri qeydlər qutusunu göstərməkdir və siyahının bütün məzmununu toplu iş faylına və ya cmd faylına saxlayır.