Visual Basic 6.0 Text Effects Program - iJayaprakash

Visual Basic 6.0 Text Effects Program

Here is the Code for the Program about adding text effects to the text box

Check the Video for Clear Cut Example




Private Sub Exit_Click()
End
End Sub

Private Sub Font_Click()
 CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
  CommonDialog1.ShowFont
  Form1.Text1.FontName = CommonDialog1.FontName
  Form1.Text1.FontBold = CommonDialog1.FontBold
  Form1.Text1.FontItalic = CommonDialog1.FontItalic
  Form1.Text1.FontUnderline = CommonDialog1.FontUnderline
  Form1.Text1.FontSize = CommonDialog1.FontSize

End Sub

Private Sub fontColr_Click()
CommonDialog1.ShowColor
  Form1.Text1.ForeColor = CommonDialog1.Color
End Sub

Private Sub new_Click()
Form2.Show
End Sub

Private Sub Open_Click()
Form1.Show
End Sub




No comments:

Post a Comment

Translate