Vb6 Advanced Font Change Tutorial

This is a tutorial made in vb6 on how to make a aplication that has advanced font change enjoy the tutorial

To watch this tutorial in high detail click the link below

http://www.youtube.com/watch?v=fJS0dAoGvHU&fmt=18

Ps: Special thank's to JTechTutorials for giving me the idea for this tut.

"Maybe blured in the video" Coding Below:

Private Sub command1_Click()
On Error GoTo e
With CommonDialog1
(THIS IS ONE LINE).Flags = cdlCFScreenFonts Or cdlCFForceFontExist Or cdlCFEffects _
Or cdlCFLimitSize(END OF LINE)
.Min = 1
.Max = 200
.FontName = Text1.FontName
.FontSize = Text1.FontSize
.FontBold = Text1.FontBold
.FontItalic = Text1.FontItalic
.FontUnderline = Text1.FontUnderline
.FontStrikethru = Text1.FontStrikethru
.Color = Text1.ForeColor
.CancelError = False
.ShowFont
Text1.FontName = .FontName
Text1.FontBold = .FontBold
Text1.FontItalic = .FontItalic
Text1.FontSize = .FontSize
Text1.FontUnderline = .FontUnderline
Text1.FontStrikethru = .FontStrikethru
Text1.ForeColor = .Color
e:
End With
End Sub

Category:

Education

Tags:

• mark6662
• mark
• 6662
• 666
• vb6
• vb
• visual
• basic
• visualbasic6
• advanced
• notepad
• tutorial
• programing
• education
• advancednotepadtutorial
• note
• pad
• font
• change

[zelda1810]

i dont have microsoft command dialog control 6.0. I have portable so idk..

[mark6662]

There would be other ways but this is the best, try get full it allows you to so much more.

[mark6662]

.Flags = cdlCFScreenFonts Or cdlCFForceFontExist Or cdlCFEffects _

Or cdlCFLimitSize Please notice in the description this coding is one line it just wouldnt fit so make sure you keep this on one line and make sure you enter it all in one line on vb6

[ThePayneofDeath]

oh yeaaaaaaaa!!

cool vid

im gonna make a great notepad

thanks dude

[ninja9899cp]

omg thx!!!! lol mark im watching all ur video tutorials and putting it together(such as save as tutorial) because im making an advanced notepad!!! thx mark u the best! 5/5!

[mark6662]

have answerd this question on notepad 4.0 vid comments if you need visual help send me your email and we cant ta;lk over msn, or some what it is not worth making a whole tut on just define custom color.

[mark6662]

Anytime, hope this helps