by sandeep goyal (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 30th October 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
notepad application
VBcoders
txt.FontName = cmb.List(cmb.ListIndex)
End Sub
Private Sub cmdbold_Click()
txt.FontBold = Not txt.FontBold
cmdbold.Checked = Not cmdbold.Checked
End Sub
Private Sub cmdcopy_Click()
Clipboard.SetText txt.SelText
End Sub
Private Sub cmdcut_Click()
Clipboard.SetText txt.SelText
txt.SelText = ""
End Sub
Private Sub cmditalic_Click()
txt.FontItalic = Not txt.FontItalic
cmditalic.Checked = Not cmditalic.Checked
End Sub
Private Sub cmdpaste_Click()
txt.SelText = Clipboard.GetText()
End Sub
Private Sub Form_Load()
Dim n As Integer
cmdbold.Checked = False
txt.FontBold = False
cmditalic.Checked = False
txt.FontItalic = False
Clipboard.Clear
cmb.Text = "Ms Sans Serif"
For n = 0 To Screen.FontCount - 1
cmb.AddItem Screen.Fonts(n)
Next n
txt.FontName = "Ms Sans Serif"
txt.FontSize = 9
VScroll1.Value = 9
End Sub
Sub cmdedit_click()
If Clipboard.GetText = "" Then
cmdpaste.Enabled = False
Else
cmdpaste.Enabled = True
End If
If txt.SelText = "" Then
cmdcopy.Enabled = False
cmdcut.Enabled = False
Else
cmdcopy.Enabled = True
cmdcut.Enabled = True
End If
End Sub
Private Sub txt_Change()
End Sub
Private Sub VScroll1_Change()
lbl.Caption = VScroll1.Value
End Sub
