实验代码3
Dim x As Integer, y As Integer Private Sub BAOCUN_Click()CommonDialog1.Action = 2 Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text Close #1 End Sub Private Sub DAKAI_Click()CommonDialog1.Action = 1 End Sub Private Sub DAYIN_Click()CommonDialog1.Action = 5 End Sub Private Sub Form_Resize()Text1.Left = 0 Text1.Top = 0 Text1.Width = Form1.Width Text1.Height = Form1.Height End Sub Private Sub FUZHI_Click()x = Text1.SelText End Sub Private Sub GUANYU_Click()frmAbout.Show End Sub Private Sub JIANQIE_Click()y = Text1.SelText Text1.SelText = "" End Sub Private Sub LINGCUNWEI_Click()CommonDialog1.Action = 2 End Sub Private Sub NIANTIE_Click()x = Text1.SelText Text1.Text = Text1.Text & x
End Sub Private Sub QUANXUAN_Click()Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2)End Sub Private Sub SHANCHU_Click()Text1.SelText = "" End Sub Private Sub SHIJIAN_Click()Text1 = Now & vbCrLf & Text1.Text End Sub Private Sub TUICHU_Click()End End Sub Private Sub XINJIAN_Click()If Not flag And Text1.Text <> "" Then i = MsgBox("新建前是否先保存原来的文件？", vbYesNoCancel + vbInformation, "记事本")If i = vbNo Then Text1.Text = "" ElseIf i = vbYes Then CommonDialog1.Action = 2 End If Else Text1.Text = "" End If End Sub Private Sub ZITI_Click()CommonDialog1.Flags = 257 CommonDialog1.Action = 4 Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontUnderline = CommonDialog1.FontUnderline
Text1.FontStrikethru = CommonDialog1.FontStrikethru End Sub Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)If Text1.Text <> "" Then JIANQIE.Enabled = True FUZHI.Enabled = True SHANCHU.Enabled = True End If End Sub
