Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. 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

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...

PM Quote