[VB6] Nome di un controllo in una variabile

[amadori]

Salve a tutti, non riesco a risolvere un problema che sembra essere abb banale: ho una variabile che contiene il nome di un controllo (che io non conosco), come faccio ad usare quel nome per modificare le proprietà di quel controllo??

la variabile si chiama NomeSel, non posso scrivere NomeSel.caption e nemmeno usare with NomeSel, come posso fare?

grazie mille

[ladyBlu]

devi specificare linguaggio e versione nel titolo della discussione, come da regolamento:
<< Leggi_Regolamento >>

[MMarzia]

non è la prima volta che ti vengono richiesti linguaggio e versione, cerca di ricordartene in futuro


tornando al problema, prova a postare il codice

[amadori]

è una dimenticanza che si ripete, VB6, cercherò di ricordarmene, scusatemi ancora.

[amadori]

Il codice è:

nome_sel "shape1" 'il nome di un controllo shape

poi vorrei impostare delle proprietà del controllo shape1
ma non posso digitare

nome_sel.shape = ...
nome_sel.left = ...
nome_sel.top = ...

e nemmeno usare with

with nome_sel
.shape= ...
.left = ...
.top = ...
end with

come posso utilizzare il nome del controllo per agire sulle proprietà di esso??

[MMarzia]

Originariamente inviato da amadori
nome_sel "shape1" 'il nome di un controllo shape

e questo che sarebbe? :master:

Dim nome_sel As Shape
Set nome_sel = Me.Shape1

[amadori]

ho sbagliato, sarebbe stato nome_sel = "shape1"

[amadori]

forse non ho capito io, ma come faccio a settare nome_sel = me.shape1? il nome del controllo è in una variabile di tipo string, aspetta che ti posto il codice intero

Private Sub form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   Select Case Button
    Case 1
        x = x - 128
        y = y - 128
       
        pos100x = (100 / Image1.Width) * x
        pos100y = (100 / Image1.Height) * y
        Text3.Text = pos100x
        Text4.Text = pos100y
        With nome_sel
            .Top = y
            .Left = x
        End With
    Case 2
         ctlExtender = ""
         Set ctlExtender = Nothing
         nome = "shapee" & cont
         Set ctlExtender = Form1.Controls.Add("VB.shape", nome)
         nome.Text = nome
         cont.Text = cont
         With ctlExtender
           .Visible = True
           .Shape = 3
           .Height = 200
           .Width = 200
           .BorderWidth = 9
           .Left = x
           .Top = y
         End With
         cont = cont + 1
         txtyy.Text = y
         txtxx.Text = x
         List1.AddItem (nome)
    End Select
   
End Sub


Private Sub List1_Click()
    Dim nome_sel As Shape
    Set nome_sel = Me
    Text5.Text = List1.Text
    NomeSel = List1.Text
End Sub

il programma crea un controllo shape ogni click del tasto dx del mouse (differenzia i controlli con un contatore che concateno al nome, "shapee" & cont), ho fatto un list e lo riempio con tutti i nomi dei controlli shape del form, vorrei che selezionando una shape dal list possa spostare la shape selezionata cliccando col sx e impostare la nuova posizione dello shape esattamente dove ho cliccato col sx. quello che non riesco è modificare le proprietà dello shape selezionato, il nome dello shape selezionato è in List1.Text

[MMarzia]

se hai memorizzato il nome del controllo in una variabile (in questo caso pippo ) è sufficiente fare così:

Dim p As Shape
Set p = Me.Controls(pippo)

[amadori]

perfetto, grazie mille. Avrei un'altra cosa da chiederti, quando vado a creare una shape cliccando con il dx, se la creazione è nell'evento

form1_mousedown(...)

la shape la crea in tutta l'area del form è la visualizza correttamente, se volessi poter creare shape solo su un controllo di tipo image cambio l'evento in

 image1_MouseDown(...)

, cliccando sul dx mi crea le shape ma non le visualizza, sembra che vengano create sotto il controllo image e quindi coperte da esso.

è possibile impostare un livello di visualizzazione?altrimenti come posso fare?

grazie ancora