gianluca (Normal User)
Pro
 
Messaggi: 103
Iscritto: 23/06/2008
|
 Questo topic è stato chiuso dal moderatore
Codice sorgente - presumibilmente VB.NET |
For i As Integer = 1 To 9 NewButton.Location = Poziozione_pulsante(i) NewButton.Size = New Size(85, 59) NewButton.Visible = True NewButton.Text = "Prova" & i Panel1.Controls.Add(NewButton) AddHandler NewButton.Click, AddressOf NumeroTavoloPremuto NewButton.Name = "Tavolo" & i Next i
|
come mai alla fine del ciclo mi visualizza solo il numero 9? cosa sto sbagliando?
|
|
|
Jeremy (Normal User)
Pro
Messaggi: 134
Iscritto: 08/02/2009
|
Forse perchè dimentichi di posizionarli in punti diversi del Form ????? 
Devi modificare l'assegnazione alla proprietà Location ... altrimenti vengono inseriti nel form uno sopra l'altro ... e tu ne vedi uno solo!!!
Facci sapere...
Ciao
Ultima modifica effettuata da Jeremy il 26/06/2009 alle 19:30 |
|
|
gianluca (Normal User)
Pro
Messaggi: 103
Iscritto: 23/06/2008
|
ah, scusa! mi ero dimenticato di scriverlo... nono ho la funzione "Poziozione_pulsante" ke appunto mi ritorna un "Point" e lo essegno appunto a "NewButton.Location = Poziozione_pulsante(i)"
Mi sa ke sia invece xke avendo "Dim NewButton As Button = New Button()" per tutti i pulsanti una vlt ke viene creato il nuovo pulsante mi elimina quello precedente! uffa! come faccio a risolvere il problema...
|
|
|
Jeremy (Normal User)
Pro
Messaggi: 134
Iscritto: 08/02/2009
|
Mi sa ke sia invece xke avendo "Dim NewButton As Button = New Button()" per tutti i pulsanti una vlt ke viene creato il nuovo pulsante mi elimina quello precedente! uffa! come faccio a risolvere il problema... |
No ... non è come pensi ...
Elimina la funzione "poziozione" (che razza di nome) e creane una tu in modo da avere una distanza tra i controlli di almeno 5 o 10 px.
Facci sapere...
Ciao |
|
|
gianluca (Normal User)
Pro
Messaggi: 103
Iscritto: 23/06/2008
|
AHAHAHAH! oddio! non avevo letto come l'avevo scritto! era "Posizione_Pulsante"...
cmq la funzione è fatta cosi:
Codice sorgente - presumibilmente VB.NET |
Private Function Posizione_pulsante(ByVal Numero_tavolo As Integer) Dim p As Point If Numero_tavolo = 1 Then p = New Point(6, 6) ElseIf Numero_tavolo = 2 Then p = New Point(109, 6) ElseIf Numero_tavolo = 3 Then p = New Point(212, 6) ElseIf Numero_tavolo = 4 Then p = New Point(6, 90) ElseIf Numero_tavolo = 5 Then p = New Point(109, 90) ElseIf Numero_tavolo = 6 Then p = New Point(212, 90) ElseIf Numero_tavolo = 7 Then p = New Point(6, 174) ElseIf Numero_tavolo = 8 Then p = New Point(109, 174) ElseIf Numero_tavolo = 9 Then p = New Point(212, 174) End If Return p End Function
|
Ultima modifica effettuata da gianluca il 26/06/2009 alle 19:54 |
|
|
Jeremy (Normal User)
Pro
Messaggi: 134
Iscritto: 08/02/2009
|
Ma la nuova istanza del button .. quando la crei???? 
A parte la funzione ... che potrebbe essere riscritta un pochino meglio ...
A parte il fatto che non hai tipizzato la funzione ...
A parte il fatto che te ne saresti accorto se avessi impostato Option Strict On ....
devi modificare il tuo codice in questo modo:
Codice sorgente - presumibilmente VB.NET |
For i As Integer = 1 To 9 NewButton = New Button NewButton.Location = Posizione_pulsante(i) NewButton.Size = New Size(85, 59) NewButton.Visible = True NewButton.Text = "Prova" & i Panel1.Controls.Add(NewButton) AddHandler NewButton.Click, AddressOf NumeroTavoloPremuto NewButton.Name = "Tavolo" & i Next i
|
Facci sapere...
Ciao
|
|
|
gianluca (Normal User)
Pro
Messaggi: 103
Iscritto: 23/06/2008
|
FANTASTICOOOO!  grazie 100000 Jeremy!
mi è bastato aggiungere all'inizio "NewButton = New Button" nel for!!! 
Ps, cos'è Option Strict On??? e come faccio a tipicizzare la funzione?
Grazie ancora...
Gianluca
Ultima modifica effettuata da gianluca il 26/06/2009 alle 20:45 |
|
|
manvb.net (Member)
Guru
Messaggi: 663
Iscritto: 28/01/2008
|
Vai nelle proprietà del progetto e nella scheda compilazione trovi Option Strict. Prova ad impostarla su on e vedrai (per impostare Option Strict puoi anche scrivere Option Strict On all'inizio del file).
|
|
|
Jeremy (Normal User)
Pro
Messaggi: 134
Iscritto: 08/02/2009
|
Postato originariamente da gianluca:
tipicizzare |
Tipizzare
|
|
|
| 
