Learn Visual Basic 6.0 (VB6) -Design Font Dialog Box using ListBox,Checkbox,Frame controls-

[@gamingislife493]

You are a great tutor.. I have learned many things from you.. keep bringing more on visual basic 6.0 Thank You..

[@michaelangeloquides9193]

you save my grades lol

[@naderhumood5418]

Thanks you so much your great brother.

[@erikagutierrez5754]

how about in text box instead of label .. what code i'll be using then?

[@SandeepKaundalSir]

+erika gutierrez If you have tried this application using Label control.Then Make some changes in your form.So, first Insert One Text Box (Name:Text1) in place of Label control into your form.Now Do the following steps.1.Replace Label1.caption with Text1.text and Every other Label1 with Text1.No Need to change anything else in the coding. Here is the complete code if you are using a Textbox control in place of Label control. Private Sub Form_Load() Dim i As Integer List1.AddItem "Times new roman" List1.AddItem "Roman" List1.AddItem "Stencil" List1.AddItem "Calibri" List1.AddItem "Batang" List1.AddItem "Arial" For i = 8 To 25 Step 2 List2.AddItem i Next i List3.AddItem "Regular" List3.AddItem "Bold" List3.AddItem "Italic" List3.AddItem "Bold Italic" End Sub Private Sub List1_Click() Text1.FontName = List1.Text End Sub Private Sub List2_Click() Text1.FontSize = List2.Text End Sub Private Sub List3_Click() If List3.Text = "Bold" Then Text1.FontBold = True ElseIf List3.Text = "Italic" Then Text1.FontItalic = True ElseIf List3.Text = "Bold Italic" Then Text1.FontItalic = True Text1.FontBold = True ElseIf List3.Text = "Regular" Then Text1.FontItalic = False Text1.FontBold = False Else Text1.FontItalic = False Text1.FontBold = False End If End Sub Private Sub LowerCase_Click() If LowerCase.Value = 1 Then Text1.Text = LCase(Text1.Text) Else Text1.Text = "Sample Text" End If End Sub Private Sub Strike_Click() If Strike.Value = 1 Then Text1.FontStrikethru = True Else Text1.FontStrikethru = False End If End Sub Private Sub Underline_Click() If Underline.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub Private Sub UpperCase_Click() If UpperCase.Value = 1 Then Text1.Text = UCase(Text1.Text) Else Text1.Text = "Sample Text" End If End Sub Hope you will find it useful.If you further assistance ,Let me know. Best of Luck.

[@arunavabasak1580]

Excellent

[@ritamandal5711]

Very nice

[@s-linkcomputer5594]

Awesome bro

[@rufaiyusuf552]

hi you are doing good job can l get vb project on student management from you

[@shriyachauhan1533]

Sir I want .. jigsaw puzzle game coding in visual basic 6.0