=======================================
Customize Font Dialog Box in Visual Basic 6
++++++++++++++++++++++++++++++++++++++
Visual Basic Customize Font Dialog Box is Identical to font dialog available with Microsoft Office.You can apply different font faces,Font Sizes,Font Styles and effects like Uppercase,Lowercase,Strike Through,Underline etc to the sample text.
We can design our own font dialog box using standard controls i.e Label,List Box,Checkbox,frame etc available in Visual Basic 6.0 (VB6)
Saturday, 29 August 2015
Saturday, 22 August 2015
How to install Adobe Pagemaker 7.0 for windows 7 Pc - Quick and easy
Adobe Pagemaker 7.0 is the last version of the desktop publishing application,provided by Adobe.
In this video,You will able to install the Adobe Pagemaker 7.0 easily.
Step by Step instruction:How to Install.
In this video,You will able to install the Adobe Pagemaker 7.0 easily.
Step by Step instruction:How to Install.
How to install Adobe Pagemaker 7.0 for windows 7 Pc - Quick and easy
Adobe Pagemaker 7.0 is the last version of the desktop publishing application,provided by Adobe.
In this video,You will able to install the Adobe Pagemaker 7.0 easily.
Step by Step instruction:How to Install.
In this video,You will able to install the Adobe Pagemaker 7.0 easily.
Step by Step instruction:How to Install.
Sunday, 16 August 2015
Customize Font Dialog Box using ListBox,Checkbox,Frame in (VB6) Visual B...
Customize Font Dialog Box using ListBox,Checkbox,Frame in (VB6) Visual Basic 6.0
Visual Basic Customize Font Dialog Box is Identical to font dialog available with Microsoft Office.You can apply different font faces,Font Sizes,Font Styles and effects like Uppercase,Lowercase,Strike Through,Underline etc to the sample text.
We can design our own font dialog box using standard controls i.e Label,List Box,Checkbox,frame etc available in Visual Basic 6.0 (VB6).
Please subscribe:-)
Source Code:
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()
Label1.FontName = List1.Text
End Sub
Private Sub List2_Click()
Label1.FontSize = List2.Text
End Sub
Private Sub List3_Click()
If List3.Text = "Bold" Then
Label1.FontBold = True
ElseIf List3.Text = "Italic" Then
Label1.FontItalic = True
ElseIf List3.Text = "Bold Italic" Then
Label1.FontItalic = True
Label1.FontBold = True
ElseIf List3.Text = "Regular" Then
Label1.FontItalic = False
Label1.FontBold = False
Else
Label1.FontItalic = False
Label1.FontBold = False
End If
End Sub
Private Sub LowerCase_Click()
If LowerCase.Value = 1 Then
Label1.Caption = LCase(Label1.Caption)
Else
Label1.Caption = "Sample Text"
End If
End Sub
Private Sub Strike_Click()
If Strike.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1.FontStrikethru = False
End If
End Sub
Private Sub Underline_Click()
If Underline.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
End Sub
Private Sub UpperCase_Click()
If UpperCase.Value = 1 Then
Label1.Caption = UCase(Label1.Caption)
Else
Label1.Caption = "Sample Text"
End If
End Sub
Visual Basic Customize Font Dialog Box is Identical to font dialog available with Microsoft Office.You can apply different font faces,Font Sizes,Font Styles and effects like Uppercase,Lowercase,Strike Through,Underline etc to the sample text.
We can design our own font dialog box using standard controls i.e Label,List Box,Checkbox,frame etc available in Visual Basic 6.0 (VB6).
Please subscribe:-)
Source Code:
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()
Label1.FontName = List1.Text
End Sub
Private Sub List2_Click()
Label1.FontSize = List2.Text
End Sub
Private Sub List3_Click()
If List3.Text = "Bold" Then
Label1.FontBold = True
ElseIf List3.Text = "Italic" Then
Label1.FontItalic = True
ElseIf List3.Text = "Bold Italic" Then
Label1.FontItalic = True
Label1.FontBold = True
ElseIf List3.Text = "Regular" Then
Label1.FontItalic = False
Label1.FontBold = False
Else
Label1.FontItalic = False
Label1.FontBold = False
End If
End Sub
Private Sub LowerCase_Click()
If LowerCase.Value = 1 Then
Label1.Caption = LCase(Label1.Caption)
Else
Label1.Caption = "Sample Text"
End If
End Sub
Private Sub Strike_Click()
If Strike.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1.FontStrikethru = False
End If
End Sub
Private Sub Underline_Click()
If Underline.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
End Sub
Private Sub UpperCase_Click()
If UpperCase.Value = 1 Then
Label1.Caption = UCase(Label1.Caption)
Else
Label1.Caption = "Sample Text"
End If
End Sub
Tuesday, 4 August 2015
How to download Upgarde Windows 10 Home Edition for Windows 7 PC-Easy
How to download Upgarde Windows 10 Home Edition for Windows 7 PC-Easy
Once you got the notification from microsoft.you will be able to download your much awaited Windows 10 easily.I will show you how you can download your free upgrade easily.
Subscribe to:
Posts (Atom)