Fabricant de lots: 4 passos

2024 Autora: John Day | [email protected]. Última modificació: 2024-01-30 08:17

ACTUALITZA LA V2.0 ARA JA !!! DESCÀRREGA A CONTINUACIÓ Aquest és un projecte en el qual he estat treballant una mica més … està fet amb vb.net 2008 i fa que fer un lot sigui senzill per als novells … !!!!!!!! ATENCIÓ !!!!! !!!!!!!! AIXIS NOMÉS FUNCIONARÀ A VISTAit's perquè ho he fet a Vista ara, quan el provo en una màquina XP, apareix un missatge d'error … Ho sento, he de donar les gràcies a TATcreator perquè fins i tot sé que no ho sap, em va donar la idea de fer això.. jeje.

Assegureu-vos de mirar la "instal·lació" del primer pas abans de descarregar-lo !!!! Espero que us agradi.. i si teniu algun problema, deixeu un comentari o pm me perquè pugui solucionar-los i tornar-lo a publicar … si us plau comenta el que penses i no t'oblidis de valorar-lo =)

Pas 1: instal·lació

Per instal·lar, seguiu els passos i les imatges de prop !!! 1) Seguiu la foto 1 si només obteniu una pàgina amb molt de text quan feu clic a l'enllaç 2) Feu clic a Desa 3) Assegureu-vos que teniu tots els bits vermells correctes !!!.exe i assegureu-vos de desar com a "Tots els fitxers" o no funcionarà !!!!!

Pas 2: Com funciona: primera part

El ComboBox

Com he dit, ho vaig fer amb vb 2008, de manera que no hi ha cap seqüència de comandaments per lots. Per fer-ho tot el que realment havia de fer era: si es selecciona "escriure" a comboboxchange label2 a "Escriure un missatge: no afegiu l'eco". textbox1 canvia el text de textbox1 a "Què vols que digui?" El que resulta és: Si ComboBox1. SelectedItem = ("Escriu") Llavors Label2. Text = ("Escriu un missatge: no afegeixis l'eco!") TextBox1. Show () TextBox1. Text = ("Què voleu que digui?") Finalitza Si hagués de continuar fent això per a cada element del quadre de comandes.

Pas 3: Com funciona: Part2

Els botons

Els botons eren una de les coses més difícils de fer, el botó Afegeix Perquè el botó afegir funcioni, havia de fer molta codificació, però un cop fet això, la resta era bastant senzill … Part del codi d'afegir: si "Escriu" és Seleccionat al quadre combinat, després afegiu 'echo' + contingut de textbox1end Què resulta com: If ComboBox1. SelectedItem = ("Write") Llavors ListBox1. Items. Add ("echo" + TextBox1. Text) End Ifit era majoritàriament el mateix durant la majoria de El botó d’eliminació és: Elimina l’element seleccionat de la llista, que és: ListBox1. Items. RemoveAt (ListBox1. SelectedIndex), el botó d’esborra només neteja tota la llista i torna a afegir les dues primeres línies: ListBox1. Items. Clear () ListBox1. Items. Add (":: Fet amb iRule Batch Maker") ListBox1. Items. Add ("@ echo off") i el codi de pujada i baixada només mou l'element seleccionat cap amunt o cap avall: (codi a llarg de posar)

Pas 4: Com funciona: Part3

El menú Desa / Carrega

Les funcions Guardar i carregar van ser probablement la part més difícil, aquest és només el codi de desat: Dim sfdMain As New SaveFileDialog sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments Dim Result As DialogResult sfdMain. Filter = "Fitxers per lots (*.bat) | *.bat | Fitxers CMD (*. cmd) | *.cmd "sfdMain. FilterIndex = 1 sfdMain. ValidateNames = True Result = sfdMain. ShowDialog If Result = Windows. Forms. DialogResult. OK Aleshores Dim sw as New System. IO. StreamWriter (sfdMain. FileName) For i As Integer = 0 To ListBox1. Items. Count - 1 sw. WriteLine (ListBox1. Items. Item (i)) Next sw. Close () sw. Dispose () Else Exit Sub End Si enteneu vb, sabreu què fa, però si no: bàsicament, tot el que fa és mostrar el diàleg de desa i desa tot el contingut de la llista en un fitxer per lots o fitxers cmd