Newsgroup: it.comp.lang.visual-basic
Titolo: ! VB6 MsFlexGrid

Qualche giorno fa ho posto delle domande su MSFlexGrid e gentilmente mi sono
arrivate delle risposte che mi hanno aiutato a proseguire nello sviluppo del
programma. Sono riuscito a gestire la TextBox in modo tale che fosse sempre
in sincrono con le celle della griglia ma trovo comunque dispendioso il
sistema.
Nel navigare in mezzo al mare magnum della rete ho trovato queste poche
righe di codice che gestiscono l'inserimento dei dati i griglia. L'ho
provato e funziona bene. E' a disposizione di chiunque ne possa avere
bisogno. Mi piacerebbe sapere però dove andare a trovare le istruzioni
[SendKeys "{home}" + "{down}"] dato che, mea culpa, non le viste in nessun
help; intendo "home" e "down".
Se c'è qualcuno che può suggerire altri controlli come "canc" o altro, sia
ringraziato.
Ciao a tutti, Roberto
'MSFlexGrid Properties:
'Rows=2
'Fixed Rows=1
'Cols=3
'===================================================
'write this code in MSFlexGrid Keypress Event
'===================================================
Private Sub MSFlexGrid_KeyPress(KeyAscii As Integer)
    If KeyAscii = 8 Then
        If Len(Trim(MSFlexGrid.TextMatrix(MSFlexGrid.RowSel, MSFlexGrid.ColSel))) >
0 Then
            MSFlexGrid.TextMatrix(MSFlexGrid.RowSel, MSFlexGrid.ColSel) =
Mid(MSFlexGrid.TextMatrix(MSFlexGrid.RowSel, MSFlexGrid.ColSel), 1,
Len(MSFlexGrid.TextMatrix(MSFlexGrid.RowSel, MSFlexGrid.ColSel)) - 1)
            Exit Sub
        Else: Exit Sub
        End If
    ElseIf KeyAscii = 13 Then
        If MSFlexGrid.Col <= 2 Then
            SendKeys "{right}"
            Exit Sub
        ElseIf MSFlexGrid.Col = 3 Then
            MSFlexGrid.Rows = MSFlexGrid.Rows + 1
            SendKeys "{home}" + "{down}"
            Exit Sub
        End If
    Else
        'write your own keyascii Validations under commented lines
        If MSFlexGrid.Col = 0 Then
            'if (your condition(s)) then
                'accept only charectors
            'Else
            ' keyascii=0
            'End If
        ElseIf MSFlexGrid.Col = 1 Then
            'if (your condition(s)) then
                'accepts only numbers
            'Else
            ' keyascii=0
            'End If
        ElseIf MSFlexGrid.Col = 2 Then
            'if (your condition(s)) then
                'accept all
            'Else
            ' keyascii=0
            'End If
        End If
    End If
    MSFlexGrid.Text = MSFlexGrid.Text + Chr(KeyAscii)
End Sub
PS)Mi sembra di aver capito che questa istruzione "MSFlexGrid.Text +
Chr(KeyAscii)" prenda i caratteri da tastiera e li aggiunga a quello che c'è
gia in cella, non si può fare che appena inserisco qualcosa questo si
sovrapponga ?
PS.2)Il codice l'ho trovato nel sito MSN ma non mi ricordo l'indirizzo
esatto.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ringraziato.
Hai provato nella pagina di help di SendKeys? ;)
Ciao


L'avevo vista, ma non l'avevo capita. Probabilmente ho un cervello da
dinosauro; è preoccupante. Una cosa che ho capito è che la programmazione è
un continuo togliere veli. Chissà se alla fine si troverà qualche bella e
procace programmatrice.
Ciao e grazie, Roberto


 ringraziato.
Uno passionato consiglio e' un ripasso dell'istruzione With - End With
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 esatto.
msDn.microsoft.com
 ?
j.


Chiedo venia, ma non conosco "With - End With"
Roberto


 Chiedo venia, ma non conosco "With - End With"
Premere F1 pare brutto ?
Bye, G.