Dipende cosa devi ottenere, una soluzione potrebbe essere quella di impostare il font come Serif o Sans serif e, ma non sono sicuro, di solito funziona.
E magari il size:
Public Sub Form_Open()
Label1.text = Application.Font.Name
Application.Font.Name = "Serif"
Label2.text = Application.Font.Name
Print Application.Font.Size
End
:ciao:
Ho provato a fare così e sembra funzionare
da verificare su altre macchine poichè alcuni font sulla mia sono già installati
creato nel progetto una cartella Font nella quale ho messo i file ttf dei font che mi interessano
i font del sistema si trovano un
/usr/share/fonts/truetype/
poi all'avvio
Dim files as string
If Not Exist(user.home &/ ".fonts") Then Mkdir (User.home &/ ".fonts")
For Each files In Dir("Font", "*.ttf")
If Not Exist(User.home &/ ".fonts" &/ files) Then Copy ("Font" &/ files) To (User.home &/ ".fonts" &/ files)
Next
copio dal progetto alla cartella .fonts nella home
Gambas va a pescare i font anche li