• Home
 · 
• Miscellaneous
 · 
• notepad application

notepad application

notepad application

Rate notepad application

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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