Parti Oluşturucu: 4 Adım

2024 Yazar: John Day | [email protected]. Son düzenleme: 2024-01-30 13:22

GÜNCELLEME V2.0 ŞİMDİ ÇIKTI!!! AŞAĞIDAN İNDİR Bu biraz hile için üzerinde çalıştığım bir proje..vb.net 2008 ile yapılmış ve yeni başlayanlar için bir toplu iş yapmayı kolaylaştırıyor…!!!!!!!!LÜTFEN DİKKAT!!!!! !!!!!!!!BU SADECE VISTA'DA ÇALIŞACAKÇünkü bunu şimdi Vista'da yaptım, bir XP makinesinde denediğimde bir hata mesajı çıkıyor.. üzgünüm millet. bana bunu yapma fikrini verdi bilmiyor.. lol.

İndirmeden önce ilk adım olan 'kurulum'a baktığınızdan emin olun!!!!Umarım beğenirsiniz.. ve herhangi bir sorun bulursanız lütfen yorum bırakın veya pm atın ki düzeltip tekrar yayınlayabileyim…lütfen ne düşündüğünüzü yorumlayın ve oylamayı unutmayın =)

Adım 1: Kurulum

Kurulum için adımları ve resimleri yakından takip edin!!!1) Linke tıkladığınızda çok fazla metin içeren bir sayfa görürseniz resim 1'i takip edin2)kaydet'e tıklayın3) Tüm kırmızı noktaları doğru yaptığınızdan emin olun!!!Farklı kaydet.exe Ve 'Tüm Dosyalar' olarak kaydettiğinizden emin olun, aksi takdirde çalışmayacaktır!!!!!

2. Adım: Nasıl Çalışır: Bölüm1

ComboBox

Dediğim gibi, vb 2008 ile yaptım, bu yüzden toplu komut dosyası yok. Bunu yapmak için gerçekten yapmam gereken tek şey: eğer comboboxchange label2'de 'yaz' seçilirse 'Mesaj yaz - yankıyı ekleme!'göster textbox1change textbox1 metnini 'Ne demesini istiyorsunuz?' şeklinde değiştirin. Bu şu şekilde sonuçlanır: If ComboBox1. SelectedItem = ("Write") Sonra Label2. Text = ("Bir mesaj yazın - ekoyu eklemeyin!") TextBox1. Show() TextBox1. Text = ("Ne demesini istiyorsun?") Bitir Açılan kutudaki her öğe için bunu yapmaya devam etmek zorunda olsaydım.

3. Adım: Nasıl Çalışır: 2. Bölüm

Tuşlar

Düğmeler yapılması en zor şeylerden biriydi, Ekle Düğmesi Ekle düğmesinin çalışması için çok fazla kodlama yapmam gerekiyordu ama bir kez yaptıktan sonra gerisi oldukça basitti… Ekleme kodunun bir kısmı:if 'Write' is ComboBox1. SelectedItem = ("Write") ise, sonra ListBox1. Items. Add("echo " + TextBox1. Text) End Ifit çoğu için aynıydı. Kaldır düğmesi sadece: Listeden seçili öğeyi kaldır: ListBox1. Items. RemoveAt(ListBox1. SelectedIndex)temizle düğmesi tüm listeyi temizler ve ardından ilk iki satırı tekrar ekler:ListBox1. Items. Clear() ListBox1. Items. Add("::Made With iRule Batch Maker") ListBox1. Items. Add("@echo off")ve yukarı ve aşağı hareket kodu sadece seçili öğeyi yukarı veya aşağı hareket ettirir:(kod koymak için uzun)

Adım 4: Nasıl Çalışır: Bölüm3

Kaydet/Yükle

Kaydet ve Yükle muhtemelen en zor kısımdı, Bu sadece kaydetme kodudur: Dim sfdMain As New SaveFileDialog sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments Dim Result As DialogResult sfdMain. Filter = "Batch Files (*. Batch Files))|*.bat| CMD Files(*.cmd)|*.cmd" sfdMain. FilterIndex = 1 sfdMain. ValidateNames = True Result = sfdMain. ShowDialog If Result = Windows. Forms. DialogResult. OK Sonra Dim sw Yeni Sistem Olarak. IO. StreamWriter(sfdMain. FileName) For i As Integer = 0 To ListBox1. Items. Count - 1 sw. WriteLine(ListBox1. Items. Item(i)) Sonraki sw. Close() sw. Dispose() Else Exit Sub End vb'yi anlarsanız, bunun ne işe yaradığını da bilirsiniz, ancak anlamazsanız: temelde, tek yaptığı kaydetme iletişim kutusunu göstermektir ve listenin tüm içeriğini bir toplu iş dosyasına veya cmd dosyasına kaydeder.