Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ff As FontFamily
For Each ff In System.Drawing.FontFamily.Families
ComboBox2.Items.Add(ff.Name)
Next
end sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As_ System.Object, ByVal e As System.EventArgs) Handles_ ComboBox2.SelectedIndexChanged
Me.TextBox1.Font = New Drawing.Font(ComboBox2.Text, 12,FontStyle.Bold)
End Sub
Indlæg senest redigeret d. 06.03.2008 19:09 af Bruger #10268