[VB6] Rendere disponibile funzione Copia/Incolla su un FlexGrid

[ghini76]

Ciao a tutti,
su un programmino che esegue una ricerca in un db e mostra i risultati in una flexgrid vorrei dare la possibilità all'utente di "copiare" le righe della Flex e quindi poi poterle incollare su Excel, Word o dove vuole, in sostanza copiarle in clipboard...

suggerimenti?

Grazie

[yyzyyz]

nn so se potrebbe andarti bene una soluzione di questo tipo:

Private Sub Command1_Click()

Dim testo, testo_tmp As String

colonna = FlexGrid1.Col
riga = FlexGrid1.Row
n_col = FlexGrid1.Cols - 1

For i = 1 To n_col
testo = FlexGrid1.TextMatrix(riga, i)
testo_tmp = testo_tmp & testo
Next

Clipboard.Clear
Clipboard.SetText (testo_tmp)

End Sub

Private Sub Form_Load()

With FlexGrid1
        .BackColor = &HE0E0E0
        .Rows = 4
        .Cols = 4
        .FixedCols = 1
        .FixedRows = 1
        .TextMatrix(0, 0) = ""
        .TextMatrix(0, 1) = "campo1"
        .TextMatrix(0, 2) = "campo2"
        .TextMatrix(0, 3) = "campo3"
    ' inserimento txt
        .TextMatrix(1, 1) = "a1"
        .TextMatrix(1, 2) = "b1"
        .TextMatrix(1, 3) = "c1"
        .TextMatrix(2, 1) = "a2"
        .TextMatrix(2, 2) = "b2"
        .TextMatrix(2, 3) = "c2"
        .TextMatrix(3, 1) = "a3"
        .TextMatrix(3, 2) = "b3"
        .TextMatrix(3, 3) = "c3"
        
    End With
End Sub

il problema e ke incollando su excel i valori provenienti dalla flexgrid nn vengono formattati , nel senso ke il contenuto della riga viene incollato su un cella e non su + celle distinte, forse dipende da come salvo i dati nella Clipboard . . .

[ghini76]

grazie proverò a smanettarci sopra un po' e poi ti faccio sapere...
ciaoooo