Creazione controlli in VB6

sabato 05 maggio 2007 - 15.50

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

acavaglia Profilo | Newbie

4 messaggi | Data Invio: sab 5 mag 2007 - 15:50

Ciao, ho un problema che mi sta togliendo il sonno da qualche giorno... Voglio creare un array di controlli Picturebox e e uno di Label direttamente dal codice. Io ho fatto cosi':

Private Sub Form_Load()
Dim L1(10) As Label

L1(0).FontBold = True
L1(0).FontName = "MS Sans Serif"
L1(0).FontSize = 12
L1(0).Caption = ""
L1(0).Visible = True
L1(0).Alignment = 2

End Sub

appena apro il form pero', va in errore dicendo

- Variabile oggetto o variabile del blocco With non impostata

e, se premo debug, si posiziona sulla riga:

- L1(0).FontBold = True

Come posso Fare????

progradanitro Profilo | Newbie

3 messaggi | Data Invio: mer 9 mag 2007 - 08:09

ciao per essere sicuro ti chiedo di fare un tentativo .
prova a cancellre il tag del bold e prova a mandare in esecuzione almeno così sapremo se è quella rig che da fastidio oppure è tutto il codice .
ciao

acavaglia Profilo | Newbie

4 messaggi | Data Invio: gio 10 mag 2007 - 10:19

Fatto ... ora si ferma su ...

L1(0).FontName = "MS Sans Serif"

che tristezza!

squilibrium Profilo | Junior Member

168 messaggi | Data Invio: gio 10 mag 2007 - 10:40

prova a usare il metodo Load

es: Load L1(0)

e poi valorizzi le proprietà

credo che però per crearti un array di label devi farlo dalla finestra di progettazione.
crei una label, la copi e quando la incolli dovrebbe darti un messaggio che ti chiede se desideri creare un array di controlli. Se dici di si, ti dovrebbe creare un array di label e poi da codice puoi manipolarlo

acavaglia Profilo | Newbie

4 messaggi | Data Invio: dom 13 mag 2007 - 18:45

>prova a usare il metodo Load
>
>es: Load L1(0)
>
>e poi valorizzi le proprietà

Non funziona

!!! stesso messaggio di errore proprio su quella riga!!!

Ma come diavolo fa VB a creare i controlli, possibile che non ci sia un cavolo di metodo per un povero programmatore in erba di fare lo stesso????

StefanoLep Profilo | Senior Member

248 messaggi | Data Invio: mar 15 mag 2007 - 12:22

Ciao, prova così


Dim L1 As Label

'Set L1 = Form1.Controls("L1_0")
Set L1 = Form1.Controls.Add("VB.Label", "L1_0")

L1.FontBold = True
L1.FontName = "MS Sans Serif"
L1.FontSize = 12
L1.Caption = ""
L1.Visible = True
L1.Alignment = 2
L1.Caption = "Prima"

acavaglia Profilo | Newbie

4 messaggi | Data Invio: lun 21 mag 2007 - 10:16

Grazie mille

mi sei stato di grande aiuto!!!

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !