Come si "moltiplica" un oggetto in Visual basic 6?

[supergonzales]

--------------------------------------------------------------------------------

Ho bisogno di far apprire all'interno di un area un tot di "oggetti" ( ad esempio tot cerchi molto piccoli). Quello che non so è quanti saranno a seconda dei casi.
Per cui mi chiedo: E' possibile moltiplicare un oggetto Shape?
Se ad esempio dovessi far apparire 100 Shape, tutti uguali tra loro, ma ognuno in coordinate diverse, dopo averne creato uno, (es. Shape(1)), è possibile moltiplicarlo fino ad arrivare a Shape(100)?
Tnx tnx.

[MItaly]

Non ti conviene semplicemente disegnare sull'area del form usando i normali metodi di disegno (in questo caso Me.Circle)?

[LMondi]

Ciao supergonzales,
dato che Shape possiede la proprietà Index, per clonare puoi usare Load. Nel seguente modo ad esempio ad ogni Click clono un oggetto uguale al precedente posizionandolo sotto, a mò di colonna:

Private Sub Command1_Click()
    ' Ad ogni clic crea un controllo Shape:
        Load Shp(Shp.UBound + 1)
        ' sposta il nuovo Shape sotto il precedente:
        Shp(Shp.UBound).Move Shp((Shp.UBound - 1)).Left, Shp((Shp.UBound - 1)).Top + (Shp((Shp.UBound - 1)).Height)
        ' Lo rendo visibile:
        Shp((Shp.UBound)).Visible = True
End Sub

Ah quasi dimenticavo, il primo controllo va disegnato sulla Frm.

[supergonzales]

Provo a spiegarmi....
Deve essere il soft a crearli.
Immaginate ad esempio una text area...... e un pulsante
scrivo sulla text area un numero N .... clicco il pulsante....
.....e su una zona del form appaiono N shape circolari.
Ora non sto a spiegrvi tutto il soft.
Le shape dovranno essere i punti di foratura di un circuito stampato.
Siccome potrebbe essere necessario visualizzare da 1 a 1000 shape in posizioni diverse deve essere il soft che le crea a seconda della situazione.
tnx tnx.
Provo a vedere se funzica il reply di LMondi....
Se ci sono altre soluzioni... sono bene accette..
Tnx tnx

[LMondi]

supergonzales,
serve un ciclo For. Però fai attenzione non sò se riesci a creare 1000 shape (usando una matrice di controlli, come indicato, forse sì, mentre non è possibile disegnare 1000 shape su una Form). Al riguardo devi consultare la guida.
Il seguente è il codice già postato con l'integrazione che ti ho detto.
Intendiamoci, non considera le coordinate ove dislocare le shape (la cosa si complica parecchio).

Option Explicit
Dim jj As Integer
Private Sub Command1_Click()
    
   Dim j As Integer
   jj = 1
    
    For j = 1 To (Val(Text1.Text) - 1)
        ' Controlla il n° di oggetti clonati:
        If jj = (Val(Text1.Text)) Then Exit Sub
        ' Inserisce il n° di controlli Shape indicato in Text1:
        Load Shp(Shp.UBound + 1)
        ' sposta il nuovo Shape sotto il precedente:
        Shp(Shp.UBound).Move Shp((Shp.UBound - 1)).Left, Shp((Shp.UBound - 1)).Top + (Shp((Shp.UBound - 1)).Height)
        ' Lo rendo visibile:
        Shp((Shp.UBound)).Visible = True
        jj = jj + 1
    Next j
End Sub

[oregon]

Ma scusa ... a che servono 1000 shapes ? Se devi disegnare perche' non utilizzi le API GDI ?

[supergonzales]

Ma scusa ... a che servono 1000 shapes ? Se devi disegnare perche' non utilizzi le API GDI ?

.... forse xchè non so cosa siano...

L'esempio fatto da me sopra era solo fine a se stesso per capire, appunto come potessi "moltiplicare" una shape.
In effetti sul mio form non c'è una text area e un bottone come sopra descritto.
Il soft che sto tentando di creare dovrebbe gestire dei motori passo passo (su LPT) per spostare un trapanino sopra un piano.
Il programma legge un file creato da un soft (Eagle); detto file è una serie di coordinate X,Y dei vari fori da praticare su un circuito stampato.
Mi piaceva in qualche modo riuscire a raffigurare i vari punti di foratura, e quindi dove si sposterà il trapanino; magari utilizzando un colore diverso per ogni misura di punta (4-5 punte).
Suppongo una media dai 100 a 400 fori da visualizzare; molto difficilmente saranno sopra i 600-700.
Avevo indicato 1000 per far capire che non è il caso di crearseli "a mano" uno a uno.
Ho provato solo per avere un idea il codice postato da LMondi (tnx tnx tnx again) e funzica.
Credo che da qui posso partire per riuscire a fare qualcosina.
Sicuramente avrò ancora bisogno del Vostro prezioso aiuto.
Non sono molto pratico riguardo Visual Basic ma mi piacerebbe riuscire a realizzare il progetto autonomamente.... per cui credo ci risentiremo presto

[icecube_HT]

Originariamente inviato da supergonzales
.... forse xchè non so cosa siano...

L'esempio fatto da me sopra era solo fine a se stesso per capire, appunto come potessi "moltiplicare" una shape.
In effetti sul mio form non c'è una text area e un bottone come sopra descritto.
Il soft che sto tentando di creare dovrebbe gestire dei motori passo passo (su LPT) per spostare un trapanino sopra un piano.
Il programma legge un file creato da un soft (Eagle); detto file è una serie di coordinate X,Y dei vari fori da praticare su un circuito stampato.
Mi piaceva in qualche modo riuscire a raffigurare i vari punti di foratura, e quindi dove si sposterà il trapanino; magari utilizzando un colore diverso per ogni misura di punta (4-5 punte).
Suppongo una media dai 100 a 400 fori da visualizzare; molto difficilmente saranno sopra i 600-700.
Avevo indicato 1000 per far capire che non è il caso di crearseli "a mano" uno a uno.
Ho provato solo per avere un idea il codice postato da LMondi (tnx tnx tnx again) e funzica.
Credo che da qui posso partire per riuscire a fare qualcosina.
Sicuramente avrò ancora bisogno del Vostro prezioso aiuto.
Non sono molto pratico riguardo Visual Basic ma mi piacerebbe riuscire a realizzare il progetto autonomamente.... per cui credo ci risentiremo presto

Scusa, ma allora quale shapes !

Usa delle semplicissime Circle, come ti e' gia' stato suggerito !

[MItaly]

I controlli Shape sono uno spreco inutile di risorse, che ti rallenterebbero inutilmente l'applicazione (visto il numero di controlli che useresti) senza alcun vantaggio. Ribadisco:

Originariamente inviato da MItaly
Non ti conviene semplicemente disegnare sull'area del form usando i normali metodi di disegno (in questo caso Me.Circle)?

[supergonzales]

Dovete scusarmi ma come avrete capito Visual Basic 6 non è il mio forte.

Non ti conviene semplicemente disegnare sull'area del form usando i normali metodi di disegno (in questo caso Me.Circle)?

Cosa si intende per normali metodi di disegno?
Io ho usato il controllo Shape semplicemente perchè nella barra degli strumenti non vedo altro (oltre a Line) per poter disegnare qualcosa.
Invece riguardo Me.Circle ?
Scusate ancora "l'ignoranza" ..... ma se son qui a far domande è perchè appunto sono ignorante in materia....
Tnx tnx