[VB6] Pulsanti e scrollBar

[alesssia]

Dunque, io ho un form che contiene, tra l'altro, un'array di pulsanti ed una scrollBar verticale che ne gestisce la visualizzazione su schermo.

La prima volta che apro il form, però, al movimento della scrollBar viene eseguita l'azione collegata all'evento Click sul pulsante di indice zero. Successivamente ciò non si verifica più.

Qualcuno sa darmi qualche idea su come risolvere il problema?
Grazie a tutti

[Luciano79]

Ciao, l'unico modo per poterti rispondere è vedere il codice
corrispondente alla ScrollBar_Change. Altrimenti fa pensare
che anzichè Tasto_Click hai Tasto_LostFocus.

[alesssia]

Ti inserisco il codice dei metodi "incriminati":

Private Sub VScroll_Change()

  fraPulsanti.Top = -VScroll.Value

End Sub

dove fraPulsanti è il frame che contiene i pulsanti e:

Private Sub optPulsanti_Click(Index As Integer)
 
  If level = 1 Then
    AzioniL1 (Index)
  Else
    AzioniL2 (Index)
  End If
      
End Sub

dove level è una variabile locale.
Grazie per l'interessamento

[mikkuz]

Scusate se mi intrometto, ma ci vorrebbe tutto il codice della form ???

[alesssia]

> ma ci vorrebbe tutto il codice della form ???


In che senso ?!?

[mikkuz]

Nel senso che quando ha caricato la form devi vedere qual'è l'oggetto su cui c'è il setFocus e quindi riuscirai a risalire all'evento che si attiva quando clicchi sulla barra di scorrimento !!

Se il setfocus è sul primo controllo, passalo sulla barra e dovresti eliminare questo fastidio !!

[alesssia]

Se, però, sposto lo stato attivo sulla barra di scorrimento, questa lampeggia...
Come faccio ad eliminare anche questo inconveniente?

[mikkuz]

Se c'e' qualche cmd (pulsante), tipicamente l'annulla o l'esci, abilita lui sul setfocus.