[VB6] Istanze di oggetti

[I'mtheleader]

Ciao a tutti!!
Ho bisogno di un mega favore!
Dovrei creare un istanza di un oggetto in esecuzione solo che ho provato in tutti modi e mi fa solo istanze di form!

Ho provato prima così:

Dim testo as Object

set testo = new TextBox

-ma nn funziona, allora ho provato con:

Dim testo as object

set testo = CreateObject("TextBox")

e nn funziona comunque!

Vi prego aiutatemi è urgente

grazie a tutti

[I'mtheleader]

Nessuno che riesce a darmi una mano?

[xegallo]

per creare una textbox senza l'uso di matrice di controlli

Private WithEvents txtobj As TextBox

Private Sub Form_Load()
Dim txtobj As TextBox
 Call Aggiungi_Textbox("txtRunTime", Me)
 
 Set txtobj = Oggetto("txtRunTime", Me)
 txtobj.Left = 100
 txtobj.Visible = True
 
 Set txtobjev = txtobj
End Sub

Public Sub Aggiungi_Textbox(sNome As String, NomeForm As Form)
Dim txtControl1  As TextBox
  
 Set txtControl1 = NomeForm.Controls.Add("VB.TextBox", sNome)
End Sub

Public Function Oggetto(sNome As String, NomeForm As Form) As Control
Dim obj As Control
 For Each obj In NomeForm.Controls
  If obj.Name = sNome Then
    Set Oggetto = obj
    Exit For
  End If
 Next
End Function

per clonare una textbox esistente
impostare la propindex a 0

load text1(1)
text1(1).move posizione
text1(1).visible = True

[I'mtheleader]

Grazie sei un grande!!!!

by Alfa e TeoRodeo :metallica

[drummino^]

scusate ma in questo caso la textbox che creo come si chiama !? nn ho ben capito.... e poi per creare controlli diversi dalle textbox ? c'è un po' di materiale su cui documentarsi !?
infine... è possibile creare degli oggetti dando dei nomi diversi l'uno all'altro e nn come matrice di oggetti !?


grazie

[I'mtheleader]

Se vuoi creare un oggetto diverso prima di tutto cambia il tipo di tutte le variabili textbox e gli metti il tipo dell'oggetto che vuoi...
Poi dove c'è form.controls.add non gli passi VB.TextBox ma Vb.ControlloCheVuoi

Poi il nome vero e proprio dell'oggetto è nella var sNome.. ma nn uso quello nel codice .. infatti nn posso fare : sNome.proprietà.
Nel codice quindi per richiamare l'oggetto devo usare la variabile in cui è stato salvato.. nell'esempio di sopra nel codice userai txtobj.proprietà

spero di essere stato chiaro... cmq se hai bisogno chiedi.. ciao ciao!!

[TRC]

E se volessi creare un certo numero di controlli come matrice di controlli, potendo oltretutto controllare il valore dell'index?

In particolare: come uso il codice

load text1(1)
text1(1).move posizione
text1(1).visible = True

[TRC]

Risolto semplicemente utilizzando

load text1(1)
text1(1).move posizione
text1(1).visible = True

avendo, in precedenza, creato una texBox text1 con Index 0.