|
Visual # verifica dei FONT caratteri disponibili
il programma puo' facilmente determinare se esiste una corrispondenza tra i tipi di carattere del sistema operativo e quelli della stampante. la proprieta' fonts applicata agli oggetti printer e screen restituisce una matrice composta da un elenco di tutti i tipi di carattere disponibili della stampante o dello schermo. nella matrice e' possibile individuare eventuali stringhe di nomi corrispondenti. questo esempio di codice determina se nel sistema e' disponibile un carattere della stampante corrispondente a quello utilizzato nel form selezionato: Private Sub form_click () Dim i As integer, flag As Boolean For i = 0 To printer.fontcount - 1 flag = Strcomp (font.name,printer.fonts(i), 1) If flag = True Then debug.print "esiste un carattere corrispondente." Exit For End If Next i End Sub |