Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Insta360 Luna Ultra: la potenza del sensore da 1 pollice incontra la portabilità estrema
Insta360 Luna Ultra: la potenza del sensore da 1 pollice incontra la portabilità estrema
Insta360 Luna Ultra integra un sensore da 1 pollice 8K, ottiche Leica e triplo chip IA. Tra schermo OLED rimovibile, workflow I-Log a 10 bit e stabilizzazione a tre assi, analizziamo le doti tecniche di una gimbal camera pensata per i professionisti
Marvel's Wolverine, la recensione: Logan torna protagonista in un'avventura brutale e intensa
Marvel's Wolverine, la recensione: Logan torna protagonista in un'avventura brutale e intensa
Marvel's Wolverine porta Logan in un'avventura inedita, violenta e fortemente narrativa, costruita attorno alla sua natura di combattente e al difficile rapporto con il proprio passato. Insomniac Games punta su combattimenti spettacolari, progressione e personalizzazione, inserendo l'azione in un mondo segnato dalla persecuzione dei mutanti. Un viaggio intenso, che alterna mattanza, esplorazione e momenti sorprendentemente emotivi.
DJI Romo 2: tante novità lo rendono un robot completo
DJI Romo 2: tante novità lo rendono un robot completo
Romo 2 è la seconda generazione di robot lavapavimenti di DJI, un modello che si caratterizza per la precisione nel sistema di navigazione e per il funzionamento particolarmente silenzioso. Con le modifiche introdotte in questa seconda versione, e un posizionamento di prezzo più allineato alla concorrenza, rappresenta una valida alternativa sul mercato delle soluzioni di pulizia domestica
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 24-12-2007, 18:34   #1
OrcaAssassina
Senior Member
 
Iscritto dal: Feb 2003
Messaggi: 2818
[VB.NET] Creare un ciclo

Devo stampare un foglio dove ci sono molti controlli tutti rinominati in ordine crescente

ad esempio: txtNome01 - txtNome02 - txtNome03 - txtNome04

E cosi via dicendo. in pratica devo riempire un foglio prestampato con dei dati

io volevo creare una ciclo che da solo mi modificava il nome della txt in questione

ad esempio

dim i as integer
i= "1"

(txtnome & i).text = "........valore"

poi incremetare di uno

i = i + 1

mi dite la sinstassi corretta di questa riga:


(txtnome & i).text = "........valore"

devo creare una parte fissa (txtnome) e la parte variabile.

come posso fare??????

Ciao e grazieeeeeee

P.S.: Auguri di Buon Natale!!!!
__________________
AMD 3700x --- ASUS X570 CROSSHEAR VIII HERO --- 4x 8GB Corsair Vengeance RGB PRO 3600 MHz --- SSD: Samsung 980Pro 1TBb --- EVGA RTX 2070 SUPER
OrcaAssassina è offline   Rispondi citando il messaggio o parte di esso
Old 25-12-2007, 01:51   #2
OrcaAssassina
Senior Member
 
Iscritto dal: Feb 2003
Messaggi: 2818
Spiegazione

Ti faccio un esempio

dichiaro il mio report

dim report as new stampafoglio

report.txtNome1.text = "Valore"
report.txtNome2.text = "Valore"
report.txtNome3.text = "Valore"
report.txtNome4.text = "Valore"
report.txtNome5.text = "Valore"
report.txtNome6.text = "Valore"
.
.
.
report.txtNome60.text = "Valore"


non volevo farlo a mano
quindi cercavo un qualcosa per sostituire il numero txtnome con un contatore che incrementavo

solo che se scrivo

report.txtNome & "i".text = "Valore"
cosi scritta la sintassi è sbagliata

qualcuno sa dirmi come creare questa stringa????

ciao e grazieeeeeeeee
__________________
AMD 3700x --- ASUS X570 CROSSHEAR VIII HERO --- 4x 8GB Corsair Vengeance RGB PRO 3600 MHz --- SSD: Samsung 980Pro 1TBb --- EVGA RTX 2070 SUPER
OrcaAssassina è offline   Rispondi citando il messaggio o parte di esso
Old 25-12-2007, 04:57   #3
^TiGeRShArK^
Senior Member
 
L'Avatar di ^TiGeRShArK^
 
Iscritto dal: Jul 2002
Città: Reggio Calabria -> London
Messaggi: 12113
..ma mettere tutto in un array o in una lista e scorrerti ogni elemento e assegnargli valore?
__________________
^TiGeRShArK^ è offline   Rispondi citando il messaggio o parte di esso
Old 25-12-2007, 09:05   #4
OrcaAssassina
Senior Member
 
Iscritto dal: Feb 2003
Messaggi: 2818
Si

Quote:
Originariamente inviato da ^TiGeRShArK^ Guarda i messaggi
..ma mettere tutto in un array o in una lista e scorrerti ogni elemento e assegnargli valore?
Si sarebbe bello, per chi lo sa fare!!!!!!!!

ahahahah

Fammi un regalino di natale.....scrivimi un esempio

Ciao e grazieeeeeeee
__________________
AMD 3700x --- ASUS X570 CROSSHEAR VIII HERO --- 4x 8GB Corsair Vengeance RGB PRO 3600 MHz --- SSD: Samsung 980Pro 1TBb --- EVGA RTX 2070 SUPER
OrcaAssassina è offline   Rispondi citando il messaggio o parte di esso
Old 25-12-2007, 15:40   #5
^TiGeRShArK^
Senior Member
 
L'Avatar di ^TiGeRShArK^
 
Iscritto dal: Jul 2002
Città: Reggio Calabria -> London
Messaggi: 12113
...è da una o due vite che non tocco il VB (x fortuna )
..cmq dovrebbe essere qualcosa del genere:
Codice:
Dim textBoxes As Array()
Dim textBox As TextBox
Dim i As Integer

textBoxes = New TextBox(60)  REM sempre se il tipo di txtNomex è textBox.
For i = 1 To textBoxes.length
    textBox = New TextBox()
    textBox.text = "Valore"
    textBoxes(i) = textBox
Questo ovviamente in fase di creazione del report.
In fase di lettura ti fai restituire dal report l'array di textBoxes e fai tutto quello che ti pare iterando elemento per elemento.

...certo che però fare un programma in VB senza avere idea di array e cicli....
__________________
^TiGeRShArK^ è offline   Rispondi citando il messaggio o parte di esso
Old 25-12-2007, 16:50   #6
OrcaAssassina
Senior Member
 
Iscritto dal: Feb 2003
Messaggi: 2818
Errore

Quote:
Originariamente inviato da ^TiGeRShArK^ Guarda i messaggi
...è da una o due vite che non tocco il VB (x fortuna )
..cmq dovrebbe essere qualcosa del genere:
Codice:
Dim textBoxes As Array()
Dim textBox As TextBox
Dim i As Integer

textBoxes = New TextBox(60)  REM sempre se il tipo di txtNomex è textBox.
For i = 1 To textBoxes.length
    textBox = New TextBox()
    textBox.text = "Valore"
    textBoxes(i) = textBox
Questo ovviamente in fase di creazione del report.
In fase di lettura ti fai restituire dal report l'array di textBoxes e fai tutto quello che ti pare iterando elemento per elemento.

...certo che però fare un programma in VB senza avere idea di array e cicli....
Mi da errore

textBoxes = New TextBox(60) REM sempre se il tipo di txtNomex è textBox.
For i = 1 To EserciziTotale
textBox = New TextBox()
textBox.Text = "Valore"
textBoxes(i) = textBox
Next

Impossibile convertire il valore di tipo "System.Windows.Form.TextBox" in "System.Array"
__________________
AMD 3700x --- ASUS X570 CROSSHEAR VIII HERO --- 4x 8GB Corsair Vengeance RGB PRO 3600 MHz --- SSD: Samsung 980Pro 1TBb --- EVGA RTX 2070 SUPER
OrcaAssassina è offline   Rispondi citando il messaggio o parte di esso
Old 25-12-2007, 17:04   #7
^TiGeRShArK^
Senior Member
 
L'Avatar di ^TiGeRShArK^
 
Iscritto dal: Jul 2002
Città: Reggio Calabria -> London
Messaggi: 12113
Quote:
Originariamente inviato da OrcaAssassina Guarda i messaggi
Mi da errore

textBoxes = New TextBox(60) REM sempre se il tipo di txtNomex è textBox.
For i = 1 To EserciziTotale
textBox = New TextBox()
textBox.Text = "Valore"
textBoxes(i) = textBox
Next

Impossibile convertire il valore di tipo "System.Windows.Form.TextBox" in "System.Array"
perchè ovviamente ho sbagliato nel Dim
Codice:
Dim textBoxes As TextBox()
Dim textBox As TextBox
Dim i As Integer

textBoxes = New TextBox(60)  REM sempre se il tipo di txtNomex è textBox.
For i = 1 To textBoxes.length
    textBox = New TextBox()
    textBox.text = "Valore"
    textBoxes(i) = textBox
__________________
^TiGeRShArK^ è offline   Rispondi citando il messaggio o parte di esso
Old 26-12-2007, 01:37   #8
OrcaAssassina
Senior Member
 
Iscritto dal: Feb 2003
Messaggi: 2818
Ok

Domani mattina provo poi ti faccio sapere
__________________
AMD 3700x --- ASUS X570 CROSSHEAR VIII HERO --- 4x 8GB Corsair Vengeance RGB PRO 3600 MHz --- SSD: Samsung 980Pro 1TBb --- EVGA RTX 2070 SUPER
OrcaAssassina è offline   Rispondi citando il messaggio o parte di esso
Old 26-12-2007, 09:01   #9
OrcaAssassina
Senior Member
 
Iscritto dal: Feb 2003
Messaggi: 2818
Niente

textBoxes = New TextBox(60) REM sempre se il tipo di txtNomex è textBox.
For i = 1 To textBoxes.length
textBox = New TextBox()
textBox.text = "Valore"
textBoxes(i) = textBox

La classe "System.Windows.Form.TextBox" non può essere indicizzata perchè non contiene proprietà predefinite.


Basta me so stufato.......rinuncio!!!!!!!!!


Ciao e grazieeeeeeeeeeeee

Anche perchè ragionando sul codice, non mi sembra adatta a quello che mi serve.....perchè una volta creato l'array che ci faccio, lo devo asseggnare ai controlli, sono proprio quelli dove ho il problema. cioè tutti controli diversi che differenziano solo per il numero finale.
Io il mio array ce l'ho già....è un dataset da passargli.

Ciao e grazie lo stesso
__________________
AMD 3700x --- ASUS X570 CROSSHEAR VIII HERO --- 4x 8GB Corsair Vengeance RGB PRO 3600 MHz --- SSD: Samsung 980Pro 1TBb --- EVGA RTX 2070 SUPER
OrcaAssassina è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


Insta360 Luna Ultra: la potenza del sensore da 1 pollice incontra la portabilità estrema Insta360 Luna Ultra: la potenza del sensore da 1...
Marvel's Wolverine, la recensione: Logan torna protagonista in un'avventura brutale e intensa Marvel's Wolverine, la recensione: Logan torna p...
DJI Romo 2: tante novità lo rendono un robot completo DJI Romo 2: tante novità lo rendono un ro...
Sony Bravia 9 II: il True RGB alla prova, dove l'LCD sfida l'OLED Sony Bravia 9 II: il True RGB alla prova, dove l...
Geely EX5, un mese al volante: il SUV elettrico cinese che ci ha sorpreso (quasi) senza riserve Geely EX5, un mese al volante: il SUV elettrico ...
Grazie a un lancio preciso, il Nancy Gra...
Centrali elettriche libere di inquinare:...
Un razzo spaziale Vega C dell'italiana A...
Mozilla: i modelli IA aperti sono solo 4...
Intel e SK hynix al tavolo per un'allean...
Osservare la Luna con la NASA, anche in ...
Wallbox per auto elettriche su Amazon: d...
Il mistero della stagione degli uragani ...
La Corte di Cassazione affida i ricorsi ...
Tutti i nuovi prodotti Apple prenotabili...
DDR5, un kit da 598 a 1.215 euro in un m...
Portatile ASUS Vivobook 14 a 837,95€: AM...
Sparita da anni, AppZapper torna nel 202...
Revolut, la truffa dei dati è partita da...
Geely E2: abbiamo visto dal vivo la regi...
Chromium
GPU-Z
OCCT
LibreOffice Portable
Opera One Portable
Opera One 106
CCleaner Portable
CCleaner Standard
Cpu-Z
Driver NVIDIA GeForce 546.65 WHQL
SmartFTP
Trillian
Google Chrome Portable
Google Chrome 120
VirtualBox
Tutti gli articoli Tutte le news Tutti i download

Strumenti

Regole
Non Puoi aprire nuove discussioni
Non Puoi rispondere ai messaggi
Non Puoi allegare file
Non Puoi modificare i tuoi messaggi

Il codice vB è On
Le Faccine sono On
Il codice [IMG] è On
Il codice HTML è Off
Vai al Forum


Tutti gli orari sono GMT +1. Ora sono le: 11:30.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Served by www3v