Italian Resize a codice di una CLV

[Fulvio75]

A chi può interessare e se non già risaputo:

Per aumentare oppure diminuire l'altezza di una CustomListView da codice bisogna tenere presente che è divisa in due parti e vanno ingrandite oppure diminuite di grandezza entranbe altrimenti non si vedono tutti i dati

Es:

'Abilita la visualizzazione a tutto schermo della CLW per visualizzare i dati
private Sub CLW_FullScreen(Enabled As Boolean)
    
    'CLW è divisa in due parti il contenitore dei dati sv e il pannello che contiene tutto AsView
    
    If Enabled = True Then
        clwResult.AsView.Height = ......
        clwResult.sv.Height = clwResult.AsView.Height 
    Else If Enabled = False Then
        clwResult.Asview.Height = .........
        clwResult.sv.Height = clwResult.Asview.Height
    End If

End Sub

 

[Sabotto]

Perchè c'è l'IF dell'enabled se poi le istruzioni sono identiche in entrambe i casi?
Forse perchè cambia l'height tra l'una e l'altra? Ma perchè dovrebbe influire la condzione enabled sul visualizzarla fullscreen o no?

 

[Fulvio75]

Perchè c'è l'IF dell'enabled se poi le istruzioni sono identiche in entrambe i casi?
Forse perchè cambia l'height tra l'una e l'altra? Ma perchè dovrebbe influire la condzione enabled sul visualizzarla fullscreen o no?

Perché nell'esempio utilizzo height diverso a seconda se visualizzo una barra di stato e un menù o meno, se guardi ho messo dei puntini e non il codice che varia a seconda della visualizzazione

 

[Filippo]

A chi può interessare e se non già risaputo:

Per aumentare oppure diminuire l'altezza di una CustomListView da codice bisogna tenere presente che è divisa in due parti e vanno ingrandite oppure diminuite di grandezza entranbe altrimenti non si vedono tutti i dati

Es:

'Abilita la visualizzazione a tutto schermo della CLW per visualizzare i dati
private Sub CLW_FullScreen(Enabled As Boolean)
   
    'CLW è divisa in due parti il contenitore dei dati sv e il pannello che contiene tutto AsView
   
    If Enabled = True Then
        clwResult.AsView.Height = ......
        clwResult.sv.Height = clwResult.AsView.Height
    Else If Enabled = False Then
        clwResult.Asview.Height = .........
        clwResult.sv.Height = clwResult.Asview.Height
    End If

End Sub

Anche se penso che questa procedura non serva, in questo modo è più sexi.

'Abilita la visualizzazione a tutto schermo della CLW per visualizzare i dati
private Sub CLW_FullScreen(Enabled As Boolean)
    
    'CLW è divisa in due parti il contenitore dei dati sv e il pannello che contiene tutto AsView
    
    If Enabled Then
        clwResult.AsView.Height = ......
    Else
        clwResult.Asview.Height = .........
    End If
    clwResult.sv.Height = clwResult.AsView.Height

End Sub