יוצר אצווה: 4 שלבים

2024 מְחַבֵּר: John Day | [email protected]. שונה לאחרונה: 2024-01-30 09:18

עדכן V2.0 עכשיו !!! הורד להלן זהו פרוייקט שעבדתי עליו במשך כמה זמן..זה נעשה עם vb.net 2008 וזה הופך את הפיכת האצווה לפשוטה למתחילים … !!!!!!!! שימו לב !!!!! !!!!!!!! זה יעבוד רק בביקור זה כי עשיתי את זה ב- Vista עכשיו כשאני מנסה את זה במחשב XP זה מגיע עם הודעת שגיאה.. מצטער אנשים. אני חייב להודות ל- TATcreator כי אפילו יודע שהוא לא יודע הוא נתן לי את הרעיון להכין את זה.. חחח.

הקפד להסתכל על 'ההתקנה' בשלב הראשון לפני ההורדה !!!! אני באמת מקווה שתאהב את זה.. ואם תמצא בעיות עם זה אנא השאר הערה או שלח לי הודעה, כדי שאוכל לתקן אותן ולפרסם אותה מחדש … בבקשה הגיבו על מה שאתם חושבים ואל תשכחו לדרג אותו =)

שלב 1: התקנה

להתקנה בצע את השלבים והתמונות מקרוב !!! 1) עקוב אחר תמונה 1 אם אתה מקבל דף עם הרבה טקסט בעת לחיצה על הקישור 2) לחץ על שמור 3) ודא שאתה מקבל את כל החלקים האדומים כמו שצריך !!! שמור בשם.exe וודא שאתה שומר כ'כל הקבצים 'או שזה לא יעבוד !!!!!

שלב 2: איך זה עובד: חלק 1

ה- ComboBox

כפי שאמרתי עשיתי את זה עם vb 2008 אז אין סקריפט אצווה. כדי לעשות את כל מה שבאמת הייתי צריך לעשות היה: אם 'כתיבה' נבחרה בתווית comboboxchange2 ל- 'כתוב הודעה - אל תוסיף את ההד!' textbox1 change textbox1 to 'מה אתה רוצה שהוא יגיד?' מה שמתברר כ: אם ComboBox1. SelectedItem = ("כתוב") ואז Label2. Text = ("כתוב הודעה - אל תוסיף את ההד!") TextBox1. Show () TextBox1. Text = ("מה אתה רוצה שזה יגיד?") סיים אם אצטרך להמשיך לעשות זאת עבור כל פריט בקופסת התיבה.

שלב 3: איך זה עובד: חלק 2

הכפתורים

הכפתורים היו אחד הדברים הקשים ביותר לעשות, כפתור ההוספה לכפתור ההוספה לעבודה הייתי צריך לבצע הרבה קידוד אבל ברגע שעשיתי שהשאר היה פשוט למדי … חלק מקוד ההוספה: אם 'כתוב' הוא נבחר בתיבה משולבת ואז הוסף 'הד' + תוכן תיבת הטקסט 1end שמתברר כ: אם ComboBox1. SelectedItem = ("כתוב") ואז ListBox1. Items. Add ("הד" + טקסטבוקס 1. טקסט) סוף 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 כחדש SaveFileDialog sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments תוצאה כמאפיין DialogResult sfdMain. Filter = "קבצי אצווה (*.) |*.bat | CMD Files (*. cmd) |*.cmd "sfdMain. FilterIndex = 1 sfdMain. ValidateNames = תוצאה אמיתית = sfdMain. ShowDialog If 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 () אחר יציאה תת -סוף אם אתה מבין vb תדע מה זה עושה אבל אם לא: בעצם, כל מה שהוא עושה זה להציג את תיבת הדו -שיח שמירה, והיא שומרת את כל תוכן הרשימה לקובץ אצווה או לקובץ cmd