[VB6] ListBox.Selected da un altro form

[axsw]

Ciao a tutti avrei un problema.
Ho un form1 con un ListBox in cui è selezionata una voce poi da lì apro un altro form2
e quando chiudo il form2 per tornare al form1 il listBox non è più Selected

Allora mi sono scritto 2 righe per dargli il selected nella posizione che voglio ma non funziona e non capisco perchè, a questo punto è graditissimo un vostro aiuto.

'Dal form2 prima di chiuderlo richiamo la routine
Form1.Conn2
'Quà sotto la routine nel form1 (la labsys serve per ricordare la posizione prima di aprire il form2)

Public Sub Conn2()
    Dim I As Integer
      I = Labsys.Caption
    list1.Selected(I) = True
 End Sub

Da notare che sul form1 funziona se la applico con un commandButton

[oregon]

Mostri il codice con cui apri il form2 e quello con cui lo chiudi per tornare al primo?

[kataklisma]

Originariamente inviato da axsw
Ciao a tutti avrei un problema.
Ho un form1 con un ListBox in cui è selezionata una voce poi da lì apro un altro form2
e quando chiudo il form2 per tornare al form1 il listBox non è più Selected

Allora mi sono scritto 2 righe per dargli il selected nella posizione che voglio ma non funziona e non capisco perchè, a questo punto è graditissimo un vostro aiuto.

'Dal form2 prima di chiuderlo richiamo la routine
Form1.Conn2
'Quà sotto la routine nel form1 (la labsys serve per ricordare la posizione prima di aprire il form2)

Public Sub Conn2()
    Dim I As Integer
      I = Labsys.Caption
    list1.Selected(I) = True
 End Sub

Da notare che sul form1 funziona se la applico con un commandButton

Prova con:

Public Sub Conn2()
    Dim I As Integer
      I = Labsys.Caption
    form1.list1.Selected(I) = True
 End Sub

[axsw]

Originariamente inviato da oregon
Mostri il codice con cui apri il form2 e quello con cui lo chiudi per tornare al primo?

Con questa apro il form2

Rs.Close
  Cn.Close
   If txtTesto.Text = "" Then
    frmTesti.cmdAggiungi1.Visible = True
    frmTesti.cmdAggiungi2.Visible = False
    Else:
    frmTesti.cmdAggiungi1.Visible = False
    frmTesti.cmdAggiungi2.Visible = True
   End If
 frm2.Show

Con questa ritorno

Rs.Close
  Cn.Close
    Form1.txtTesto.Text = txtTesto.Text
    Form1.Conn2
Unload me

[axsw]

Originariamente inviato da kataklisma
Prova con:

Public Sub Conn2()
    Dim I As Integer
      I = Labsys.Caption
    form1.list1.Selected(I) = True
 End Sub

non serve "Form1" davanti, viene svolto sullo stesso form

[oregon]

Non vedo problemi ... probabilmente c'e' una serie di eventi scatenati (Activate ...) che non abbiamo presenti ... e bisognerebbe capire quali sono i controlli presenti nei vari form ...

Ma se NON usi la Sub Conn2, il problema si manifesta?

Se vuoi, fammi scaricare il progetto e dimmi cosa fare per evidenziare il problema e ti dico qualcosa in piu' ...

[axsw]

Originariamente inviato da oregon
Non vedo problemi ... probabilmente c'e' una serie di eventi scatenati (Activate ...) che non abbiamo presenti ... e bisognerebbe capire quali sono i controlli presenti nei vari form ...

Ma se NON usi la Sub Conn2, il problema si manifesta?

Se vuoi, fammi scaricare il progetto e dimmi cosa fare per evidenziare il problema e ti dico qualcosa in piu' ...

No se la eseguo sullo stesso form da CMDButton funziona ma io credo che non se possa fare.
Grazie Oreg

[axsw]

Originariamente inviato da oregon
Non vedo problemi ... probabilmente c'e' una serie di eventi scatenati (Activate ...) che non abbiamo presenti ... e bisognerebbe capire quali sono i controlli presenti nei vari form ...

Ma se NON usi la Sub Conn2, il problema si manifesta?

Se vuoi, fammi scaricare il progetto e dimmi cosa fare per evidenziare il problema e ti dico qualcosa in piu' ...

Volevo dire, che poi il listBox mantiene il focus nella posizione corretta anche col form2 aperto, lo perde appena scarico il form2.

[oregon]

Ma tu non scarichi il form2 ... se fai form1.Show non hai scaricato il form2 ...

[axsw]

Originariamente inviato da oregon
Ma tu non scarichi il form2 ... se fai form1.Show non hai scaricato il form2 ...

Hai ragione in effetti non scarico il form1, carico solo il form2 e poi lo chiudo.
Mi sono sbagliato a scrivere il codice solo quà sopra.