Italian Adattabilità dell'interfaccia

[sirjo66]

Scusa Luciano, ma intendi table.text oppure table.textsize ??

Per sapere la misura in pollici dello schermo puoi fare un calcolo, anche se (secondo me) non esce proprio preciso preciso.

Per scalare le Activity ed adattarle a tutti gli schermi la cosa migliore è usare la classe "Scale" di Klaus, io l'ho provata e mi trovo bene, eccovi qui l'ultima versione

Ciao
Sergio

 

[udg]

Se può interessare, il seguente codice (di Erel), mostra i valori fisici del device:

Sub Activity_Create(FirstTime As Boolean)
If 100%x > 100%y Then Log("Landscape") Else Log("Portrait")
Dim lv AsLayoutValues = GetDeviceLayoutValues
Log(lv & ", size = " & lv.ApproximateScreenSize)
End Sub

 

[LucaMs]

Usa GetDeviceLayoutValues.XXXX


[Ah, il sito inizia a funzionare maluccio, anzi, continua... subito dopo che ho scritto questa riga, sono comparse le risposte di @sirjo66 e @udg , tanto che ancora non le ho lette]

 

[luciano deri]

Grazie a tutti ecco la soluzione che sintetizza i vostri suggerimenti

Sub DeterminaLayout
Dim lv As LayoutValues
lv = GetDeviceLayoutValues
Dim screensize As Double
screensize = lv.ApproximateScreenSize
Select True
    Case screensize <= 4
            table.TextSize = 10
            table.HeaderHeight = 8%Y
            table.RowHeight = 8%Y

    Case screensize > 4 And screensize <= 7
            table.TextSize = 13
            table.HeaderHeight = 6%Y
            table.RowHeight = 6%Y

    Case screensize > 7 And screensize <= 10
            table.TextSize = 16
            table.HeaderHeight = 4%Y
            table.RowHeight = 4%Y

    Case screensize > 10
            table.TextSize = 19
            table.HeaderHeight = 3%Y
            table.RowHeight = 3%Y          
End Select  
End Sub

 

[LucaMs]

Puoi anche usare

Select Case ScreenSize
    case <= 4
    case ...

(lo dico perché personalmente quel Select True non mi piace affatto )

 

[luciano deri]

Puoi anche usare

Select Case ScreenSize
    case <= 4
    case ...

(lo dico perché personalmente quel Select True non mi piace affatto )

non lo compila, mi dice missing parameter

 

[LucaMs]

Non era completo, eh, era solo per dire come andrebbe usato.
Nel tuo caso (modificando il tuo codice):

Sub DeterminaLayout

Dim lv As LayoutValues
lv = GetDeviceLayoutValues
Dim screensize As Double
screensize = lv.ApproximateScreenSize

Select Case screensize
    Case < 4
            table.TextSize = 10
            table.HeaderHeight = 8%Y
            table.RowHeight = 8%Y

    Case < 7
            table.TextSize = 13
            table.HeaderHeight = 6%Y
            table.RowHeight = 6%Y

    Case  < 10
            table.TextSize = 16
            table.HeaderHeight = 4%Y
            table.RowHeight = 4%Y

    Case > 10 ' andrebbe bene anche Case Else
            table.TextSize = 19
            table.HeaderHeight = 3%Y
            table.RowHeight = 3%Y          
End Select  
End Sub

 

[LucaMs]

Oh bella, continua a dire "Missing parameter"...

 

[udg]

Mi sa che dipende da quel "Case" che segue il Select

Dovrebbe essere:
Select screensize

udg

 

[LucaMs]

A quanto pare funziona a chez, hehehe

Funziona senza variabile solo se usi:
Select case ScreenSize
Case 1
case 2
...

 

[LucaMs]

Mi sa che dipende da quel "Case" che segue il Select

Dovrebbe essere:
Select screensize

udg

Magari! manco così

 

[LucaMs]

Vuoi vedere che se uso variabili anche diverse funziona? Bleah, completamente sbagliato... provo...

 

[LucaMs]

Infatti... ha un funzionamento completamente diverso da VB.Net e totalmente illogico.
Questo, ad esempio, funziona:

    Dim Screen_Size, Pippo As Int
   
    Screen_Size = 3
    Pippo = 8

    Select True
        Case Screen_Size < 4 AND Pippo > 10
            Log("<4")
        Case Screen_Size < 4 AND Pippo < 10
            Log("cavolata")
    End Select

 

[LucaMs]

Ma funziona anche così (senza variabile ma solo col valore esatto, non con i simboli <>...)

    Dim Screen_Size As Int
   
    Screen_Size = 3

    Select Case Screen_Size
        Case 4
            Log("4")
        Case 3
            Log("ancora una cavolata")
    End Select

 

[LucaMs]

A questo punto c'è ben poca differenza rispetto all'uso di una lunga serie di IF Else


(uhm... ho il sospetto che siamo leggermente usciti fuori tema, colpa mia, hehehe)

 

[luciano deri]

A questo punto c'è ben poca differenza rispetto all'uso di una lunga serie di IF Else


(uhm... ho il sospetto che siamo leggermente usciti fuori tema, colpa mia, hehehe)

Si il select case funziona a chez, ma nel caso specifico il codice risulta un po' più leggibile rispetto alla catena di if che verrebbe

if SceenSize <= 4
....
else
   if SceenSize > 4 and ScreenSize <= 7
       .....
   else
       if screensize ....
       else
          if 'stella sull'albero di natale
          else
          end if
       end if
   end if
end if

 

[LucaMs]

Se metti
Else IF
sulla stessa riga, però, siamo quasi là

 

[sirjo66]

Mi sembra che bisogna scriverlo così:

Sub DeterminaLayoutDim lv AsLayoutValues
lv = GetDeviceLayoutValuesDim screensize As Double
screensize = lv.ApproximateScreenSize
Select Case screensize
Case Is < 4
    table.TextSize = 10
    table.HeaderHeight = 8%Y
    table.RowHeight = 8%Y
Case Is < 7
    table.TextSize = 13
    table.HeaderHeight = 6%Y
    table.RowHeight = 6%Y
Case Is < 10
    table.TextSize = 16
    table.HeaderHeight = 4%Y
    table.RowHeight = 4%Y
Case Else
    table.TextSize = 19
    table.HeaderHeight = 3%Y
    table.RowHeight = 3%Y
End Select
End Sub

P.S.: il Case Else sarebbe meglio, perchè nel caso in cui il valore di screenSize è 10, il codice originale (scritto da Luca) non funziona dato che ha solo testato per "minore di 10" o per "maggiore di 10"

 

[LucaMs]

ho provato anche Case Is e non mi funzionava, boh. Forse la fretta