Web Development

Hi,
This code assumes a form (form1) with a combo box(combo1) and a text box (text1).
Whenever the text in combo box changes, the font changes and the new text is displayed in the text box.

If you need further assitance, please let me know

-Ravi<ananth_manabala@yahoo.com>

'Form General Code block

Dim fonts(5) As String

Private Sub Combo1_Click()
Dim i As Integer
i = Combo1.ListIndex
Text1.Text = fonts(i)
Combo1.FontName = fonts(i)
End Sub

Private Sub Form_Load()
fonts(0) = "MS Sans Serif"
fonts(1) = "Arial"
fonts(2) = "Tahoma"
fonts(3) = "Verdana"
fonts(4) = "Times New Roman"
End Sub

Dear Shariqsaad,

The textbox in the example I sent you was to display the result of the code, it was not necessary: You can remove the text box and the code to write to the text box. I can send you the code by email if you would like.
regards,
Ravi

This question was closed by the author