Newsgroup: it.comp.lang.visual-basic
Titolo: MSHFlexGrid Row e Col

>> Mi da sempre ZERO e non raggiungo il 5
e son già fermo... cosa canno con il MSHFlexGrid.col?
MSHFlexGrid.TextMatrix(MSHFlexGrid.Row, MSHFlexGrid.col)
ho sempre zero al ".col"... e non trovo il textmatrix
MSHFlexGrid.TextMatrix(MSHFlexGrid.Row, 5)
funziona tranquillamente... ma se clicko sulla 6... son fregato... :-)))
ciao grazie mille
anto

 e son già fermo... cosa canno con il MSHFlexGrid.col?
Non saprei, ma vedi il codice che segue (una MsHFlexGrid e una Label sul
form):
Private Sub Form_Load()
    MSHFlexGrid1.Cols = 3
    For n = 1 To 10
        MSHFlexGrid1.AddItem n & vbTab & Chr(n + 64) & vbTab & n + 20
    Next n
    MSHFlexGrid1.RemoveItem 1
    MSHFlexGrid1.Row = 0
    For colonna = 0 To MSHFlexGrid1.Cols - 1
        MSHFlexGrid1.Col = colonna
        MSHFlexGrid1.Text = "Col." & colonna
    Next colonna
End Sub
Private Sub MSHFlexGrid1_Click()
    salva_row = MSHFlexGrid1.Row
    MSHFlexGrid1.Row = 0
    titolo = MSHFlexGrid1.Text
    MSHFlexGrid1.Row = salva_row
    Label1.Caption = "Riga=" & MSHFlexGrid1.Row & ", Colonna=" &
MSHFlexGrid1.Col & ", Titolo=" & titolo
End Sub

 form):
Grazie mille,
L'ho subito provata e funziona correttamente, e' anche più o meno come avevo
pensato di fare e provato, ma non capisco come mai sulla mia non funziona
neanche questa.
La mshflex la faccio in questo modo (anche se non credo che al click dipenda
da come è riempita...però...), in fin fine risulta un normale tabella che
comunque al .COL mi da sempre zero.. accidenti.... Anche il cols funziona
correttamente.
Che mi manca qualche variabile da riportare? Non trovo/vedo la cannata...
---------
    Set rstStatistiche = New ADODB.Recordset
Public Sub StartSearch()
    rstStatistiche.Open StrSql2, CnnStat, adOpenDynamic
    ' la strsql è la query di ricerca e la cnnstat è la connessione al
provider
    With frmShowStat
        .MSHFlexGrid1.Clear
        .MSHFlexGrid1.Redraw = False
        If Not rstStatistiche.EOF Then
            Set .MSHFlexGrid1.DataSource = rstStatistiche
            Dim X As Integer
            For X = 0 To .MSHFlexGrid1.Cols
                .MSHFlexGrid1.ColAlignmentHeader(X) = flexAlignCenterCenter
            Next X
            .MSHFlexGrid1.ColWidth(0) = 2325
            For X = 1 To .MSHFlexGrid1.Cols - 1
                .MSHFlexGrid1.ColWidth(X) = 555
            Next X
        End If
        .SSTab1.Tab = 0
        .MSHFlexGrid1.Redraw = True
    End With
    rstStatistiche.Close
End Sub
---------------
che poi nel dblclick anche con la tua:
Private Sub MSHFlexGrid1_DblClick()
    salva_row = MSHFlexGrid1.Row
    MSHFlexGrid1.Row = 0
    titolo = MSHFlexGrid1.Text
    MSHFlexGrid1.Row = salva_row
    MsgBox "Riga=" & MSHFlexGrid1.Row & ", Colonna=" & MSHFlexGrid1.Col & ",
Titolo=" & titolo
---
niente... col sempre a zero...
non capisco dove posso controllare la cannata... anche perchè la mshflex
funziona senza problemi ( a parte questo)...
grazie per qualche consiglio...
Anto.

> grazie per qualche consiglio...
Azzz... &%*ç*)/@#
proprio ora.. dopo un giorno di strusate... ecco che nelle proprietà avevo
lasciato (non ricordo più perchè e se potrebbe causarmi qualche difetto o se
avevo già cannato ...:-) ) :
SELECTION MODE   1 (by row)
Ora a 0 - FREE funzia come l'altra...
Grazie comunque! col tuo esempio ho aperto l'altro form "vergine" e di
default andava!
Tanks!

 mia non funziona neanche questa.
Ho provato per brevità a popolare la griglia collegandola a un AdoDc,
comunque son d'accordo con te che il metodo per popolare la griglia non
c'entra nulla. A me, anche in questo modo, funziona.
A questo punto non posso far altro che ipotizzare che da qualche parte hai
un'istruzione che cambia la .Col ponendola a 0, anche se tu clicchi in
un'altra... Prova a mettere quelle istruzioni di test nell'evento Click, non
nel DoubleClick. Se non va ancora, esegui passo passo e vedi dove se ne va
in giro. Se va, il problema sta nelle istruzioni che ora hai nell'evento
click. Hai qualche timer che agisce sulla Col?

 grazie per qualche consiglio...
Azzz... &%*ç*)/@#
altro che timer... l'opzione azzerata... in SELECTION MODE 1 by ROW
proprio ora.. dopo un giorno di strusate... ecco che nelle proprietà avevo
lasciato (non ricordo più perchè e se potrebbe causarmi qualche difetto o se
avevo già cannato ...:-) ) :
Grazie comunque! col tuo esempio ho aperto l'altro form "vergine" e di
default andava quindi ho paragonato le proprietà..., accidenti...!
Tanks much!
Anto