[VB5] Sapere se il fuoco è sul controllo MSFlexGrid

[vr-claudio]

Ciao ragazzi
un ultma domanda sulla flexgrid, portate pazienza...
ho una flex e diverse text che utilizzo per inserire le diverse righe nella flex.
Ho un Command chiamato "Elimina Riga" che utilizzo per eliminare le righe selezionate, e tramite il vs aiuto ho questo codice:

Sub Cancella_Riga()

Dim RigaSelezionata
If grdLista.RowSel > 1 Then
RigaSelezionata = grdLista.RowSel
grdLista.Row = RigaSelezionata
grdLista.RemoveItem (RigaSelezionata)
Exit Sub
End If

If grdLista.RowSel = 1 Then
With grdLista
If (.Rows > .FixedRows + 1) Then
.RemoveItem .Row
Else
.Rows = .FixedRows
End If
End With

Exit Sub
End If
End Sub

pero' io vorrei che l'utente sia libero di scegliere se eliminarla veramente oppure no.
Inserendo un MsgBox quello sicuramente, ma non so' come maneggiare il fuoco delle flex.
In pratica, quando io mi posiziono su una riga della flex come faccio a sapere se esiste il focus e anche, quando sono ad esempio in una text poter toglierlo.

Spero di essere stato abbastanza chairo.
Ciao e come al solito grazie infinite
Claudio

[Stefano1984Mn]

Ciao questo è il msgbox per chiedere di cancellare la riga

If MsgBox("Sei sicuro di voler cancellare la riga?", vbYesNo, "Gestel") = vbYes Then

'codice per cancellare la riga

End
Else

'codice se non devi cancellare la riga

End If

[Stefano1984Mn]

per cancellare la riga potresti usare la proprietà

grdLista.Row

che ti dice che riga hai selezionato e dopo cancellarla.
Però cosi ne cancelli una a una.

è giusto?

[vr-claudio]

CIAO CARISSIMO STEFANO
GRAZIE ANCORA PER LE TUE IMMEDIATE RISPOSTE, E' PERFETTO QUELLO CHE HAI SCRITTO, PERCHE' IN QUESTO MODO RIESCO A FAR SCEGLIERE ALL'UTENTE IL DA FARSI.

SEI COSI GENTILE DI FARMI SAPERE COME S'IDENTIFICA IL FOCUS SULLE FLEX, CIOE' QUANDO IO SONO SU UNA CELLA COME FACCIO A SAPERE CHE ESISTE IL FUOCO, E COME DICEVO NEL MESSAGGIO, RIUSCIRE ANCHE A TOGLIERE IL FOCUS (SULLA FLEX) QUANDO MI TROVO AD ESEMPIO IN UNA TEXT
CIOE' IO VOGLIO FAR SAPER AL COMANDO "ELIMINA RIGA" CHE ESISTE IL FOCUS SULLA FLEX OPPURE NO.

GRAZIE MILLE
CLAUDIO

[Stefano1984Mn]

correggimi se sbaglio ma tu vorresti che l'utente quando è all'interno di una delle tue textbox e per esempio sta scrivendo vorresti che non ci sia selezionato niente sulla griglia?

[vr-claudio]

ESATTO!
CIAUZ

[Stefano1984Mn]

Ciao.
A mio parere dovresti giocare sul setfocus dei text, cioè ti spiego quando il cursore andrà nella tua textbox dovresti dirgli

grdLista.Row = -1

però non so se funziona fai delle prove

[vr-claudio]

SCUSA STEFANO PER IL RITARDO DELLA MIA RISPOSTA, HO RISOLTO IN UN'ALTRO MODO.
HO MESSO UNA TEXTBOX INVISIBILE, CHE AD OGNI SETFOCUS DI OGNI CONTROLLO SI RESETTA IN QUESTO MODO Text1.Text = "", MENTRE QUANDO SONO SULLA FLEX SI RISETTA IN QUESTO MODO Text1.Tetx = "OK"

IL PULSANTE ELIMINA RIGA FUNZIONA SOLAMENTE SE NELLA TEXT1 C'E "OK" ALTRIMENTI RESTITUISCE UM MESSAGGIO D'ERRORE.
SO' CHE E' MOLTO SPARTANO MA RISULTA ESSERE VELOCISSIMO.

GRAZIE INFINITE PER LE TUE RISPOSTE E SCUSAMI ANCORA PER IL RITARDO MA SONO ESAUSTO DAL LAVORO.

CIAO CLAUDIO

[Stefano1984Mn]

Niente ciaooo