Newsgroup: it.comp.lang.visual-basic
Titolo: Msflexgrid in VB6

salve
in un programma utilizzo iun solo msflexgrid di circa 15000 righe  x 8 
colonne  che carico ogni cella da un file di testo.
 ho notato quanto segue:
quando carico il flexgrid una prima volta impigo girca 45 secondi per 
popolarlo completamente
chiudo il programma e dopo lo riapro e il tempo di popolazione del flex grid 
aumenta
e questo fenomeno si sipete con tempi di caricamento sempre piu lunghi.
che errore ,se e' un errore, facchio ?
magari esiste qualche API per chiudere preocedure o processi  nascoste che 
il controllo msflexgrid attiva o esegue?
chi mi puo aiutare ?
inolte come fare a far scorrere  msflexgrid utilizzando la rotellina del 
mouse ?
leonello 

mouse ?
Leggi questa discussione, c'� anche il link per scaricare MouseWheel.zip con
il sorgente VB6.
http://forums.devx.com/showthread.php?t=154114
Inoltre c'� anche la spiegazione per farlo in subclassing.
--
ciao
  Stefano

 colonne  che carico ogni cella da un file di testo.
per me c'� qualcosa che ti allunga la procedura, perch� io carico 5000 riche 
per 60 colonne e sono 300.000 celle contro le tue 120.000 ed io ci metto cal 
massimo 20 secondi su un pc datato.
se non ricordo male ci sono due procedure per caricare: una proccedura 
carica la singola cella (io uso questa) ed una seconda (se non ricordo male) 
che ti carica l'intera riga.
ciao 

 ricordo male) che ti carica l'intera riga.
E come si fa ad assegnare un un intero record ad una riga?
-- 
Greg 

"greg" ha scritto

O con la propriet� .Clip o con la .TextArray. Personalmente preferisco
la prima. Segue una spiegazione terra terra per lavorare riga per riga,
ma tieni presente che puoi selezionare e riempire pi� righe alla volta,
vedi  l'help della .Clip.
* Selezioni la riga (tutte le colonne, meno eventuali fisse)
* Crei una variabile stringa con i contenuti delle celle separate
da vbTab (Chr$(9))
* Assegni la stringa alla propriet� .Clip della Flexgrid.
Esempio di codice: crea un form vuoto, un command e una flexgrid
con cinque o sei colonne e qualche riga, e prova questo codice:
'***********************
Private Sub Command1_Click()
        Dim testString As String
        Dim N As Long
        Dim M As Long
        Dim Righe As Long
        Dim Colonne As Long
        Colonne = MSFlexGrid1.Cols - MSFlexGrid1.FixedCols
        Righe = MSFlexGrid1.Rows - MSFlexGrid1.FixedRows
        For M = 0 To Righe
                testString = ""
                MSFlexGrid1.Col = 0
                MSFlexGrid1.Row = M
                MSFlexGrid1.ColSel = Colonne
                For N = 0 To Colonne
                        testString = testString & "R. " & M & ", Col. " & N & 
vbTab
                Next N
                Debug.Print testString
                MSFlexGrid1.Clip = testString
        Next M
End Sub
'***********************
Bye, G. 

 ha scritto nel messaggio 
news:h1m00v$2a2$1...@tdi.cu.mi.it...

deve essere una stringa con i dati separati da virgole e poi la assegni alla 
riga.

 volta, vedi  l'help della .Clip.
Molto molto interessante questa Clip. Non l'avevo mai considerata, pensavo 
che servisse per mettere una nota, un giallino, un clip appunto..
Immagino che essendo nativa sia anche molto piu veloce dell'assegnazione 
cella a cella
-- 
Greg