Italian come trovare tutte le label?

[LordZenzo]

vorrei fare una cosa del genere

For Each n As Label In Activity
n.TextSize=te1
Next

chiaramente non funziona come devo fare senza scrivere tutte le label a manina?

 

[imgsimonebiliato]

Io uso:

Dim lb as label
For Each v As View In Activity.GetAllViewsRecursive
If v Is Label Then
    lb = v

 

[LordZenzo]

ok grazie

Io uso:

Dim lb as label
For Each v As View In Activity.GetAllViewsRecursive
If v Is Label Then
    lb = v

 

[LordZenzo]

per chi interessa la routine di resize del testo

Sub ResiTTS  
    Dim Y,x,te As Float
    Dim i,te1 As Int
    Dim lb As Label
    y=(100%y/800)
    x=(100%x/1280)
    If x<y Then y=x Else x=y
    te=Acc.GetUserFontScale
    te1=(14)*y*(1/te)       ' dimensione 14 del testo
    For Each v As View In Activity.GetAllViewsRecursive
    If v Is Label Then
        lb = v
        lb.TextSize=te1
    End If
      Next
End Sub

Dim Acc As Accessiblity

 

[imgsimonebiliato]

Non serve a nulla se non porti fuori "Acc.GetUserFontScale"

 

[LordZenzo]

Non serve a nulla se non porti fuori "Acc.GetUserFontScale"

che intendi per fuori

 

[imgsimonebiliato]

Cos'è "Acc.GetUserFontScale"

 

[LordZenzo]

Cos'è "Acc.GetUserFontScale"

libreria accessibility che fornisce un po di valori legati al dispositivo