Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - [VB .NET] carattere in toolstrip
Forum - C# / VB.NET - [VB .NET] carattere in toolstrip

Avatar
pinza (Normal User)
Rookie


Messaggi: 48
Iscritto: 21/09/2009

Segnala al moderatore
Postato alle 16:53
Venerdì, 13/11/2009
salve a tutti
io uso questo codice per il caratter dentro al toolstrip:

Codice sorgente - presumibilmente VB.NET

  1. Dim font As New Drawing.Text.InstalledFontCollection
  2.         Dim b As String = ""
  3.         For Each s As FontFamily In font.Families
  4.             b = s.Name
  5.             toolstrip.Items.Add(b)
  6.  
  7.         Next


pero quando carico un file vorrei che nel toolstrip mi venisse scritto il carattere
che usa quel file (rtf)

grazie




PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 15:21
Sabato, 14/11/2009
Non è proprio semplice... Premetto che questo lo devi fare manualmente, ossia non esiste nessuna proprietà o metodo preimpostati che ti permettano di farlo. Devi cambiare la proprietà DrawMode del toolstrip su OwnerDrawFixed (è un combobox, giusto?). Quindi, nell'evento DrawItem, devi scrivere il codice per stampare un dato elemento con un dato font. Per fare questo ti serve memorizzare la lista di font installati.

Codice sorgente - presumibilmente VB.NET

  1. Class Form1
  2.  
  3.     Private Fonts As New List(Of Font)
  4.  
  5.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.         For Each f As FontFamily In (New Drawing.Text.InstalledFontCollection()).Families
  7.             Try
  8.                 Dim Fnt As New Font(f.Name, 12, FontStyle.Regular)
  9.                 Fonts.Add(Fnt)
  10.                 ComboBox1.Items.Add(f.Name)
  11.             Catch Ex As Exception
  12.             End Try
  13.         Next
  14.     End Sub
  15.  
  16.  
  17.     Private Sub ComboBox1_DrawItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
  18.         e.Graphics.DrawString(ComboBox1.Items(e.Index), Fonts(e.Index), Brushes.Black, e.Bounds.X, e.Bounds.Y)
  19.     End Sub
  20. End Class



"Infelici sono quelli che hanno tanto cervello da vedere la loro stupidità."
(Fligende Blatter)

"Dubitare di se stessi è il primo segno d'intelligenza."
(Ugo Ojetti)
PM Quote
Avatar
pinza (Normal User)
Rookie


Messaggi: 48
Iscritto: 21/09/2009

Segnala al moderatore
Postato alle 10:21
Domenica, 15/11/2009
Testo quotato

Postato originariamente da Il Totem:

Quindi, nell'evento DrawItem, devi scrivere il codice per stampare un dato elemento con un dato font. Per fare questo ti serve memorizzare la lista di font installati.




:-| Potresti spiegarti meglio nn sn molto esperto col vb net

grazie cmq




PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 17:01
Domenica, 15/11/2009
Ti ho anche allegato il codice...


"Infelici sono quelli che hanno tanto cervello da vedere la loro stupidità."
(Fligende Blatter)

"Dubitare di se stessi è il primo segno d'intelligenza."
(Ugo Ojetti)
PM Quote