form1.frm

计算器和记事本的VB源码,计算器和记事本

      End
      Begin VB.Menu about 
         Caption         =   "关于迷你记事本"
      End
   End
   Begin VB.Menu EXIT 
      Caption         =   "退出(&Q)"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'声明API函数用于异步打开一个文档
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
Private Sub about_Click()

frmAbout.Show

End Sub

Private Sub baocun_Click()

CommonDialog1.DialogTitle = "保存文件"
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*|"
CommonDialog1.ShowSave

On Error GoTo exit1
Open CommonDialog1.FileName For Output As #1
     Print #1, Text1.Text
    

Close #1
exit1:


End Sub

Private Sub center_Click()

Text1.Alignment = 2

End Sub



Private Sub dakai_Click()

Dim wenjian

CommonDialog1.DialogTitle = "打开"
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*|"
CommonDialog1.ShowOpen

On Error GoTo exit1


Open CommonDialog1.FileName For Input As #1
     Do While Not EOF(1)
              Input #1, wenjian
              Loop
     Text1.Text = wenjian
Close #1

exit1:

End Sub

Private Sub EXIT_Click()
End
End Sub

Private Sub FANTI_Click()
Text1.FontName = "PMingLiU"
End Sub

Private Sub font10hao_Click()

Text1.FontSize = 10

End Sub

Private Sub font15hao_Click()

Text1.FontSize = 15

End Sub

Private Sub font20hao_Click()

Text1.FontSize = 20

End Sub



Private Sub Form_Load()
App.HelpFile = App.Path & "\help.chm" '调用与主程序同目录下的help.chm帮助文件，按F1键调用



jianqie.Enabled = False
fuzhi.Enabled = False
zhanqie.Enabled = False

StatusBar1.Panels(1) = Time
StatusBar1.Panels(2) = Date



End Sub

Private Sub Form_Resize()

Text1.Width = ScaleWidth
Text1.Height = ScaleHeight - 900


End Sub



Private Sub fuzhi_Click()

Clipboard.SetText Text1.SelText
zhanqie.Enabled = True

End Sub

Private Sub GONGJU_Click()
  GONGJU.Checked = Not GONGJU.Checked
    Toolbar1.Visible = GONGJU.Checked
End Sub

Private Sub help_Click()
Dim a As Long
Dim b As String
b = App.Path & "\help.chm" '用变量b记录与主程序同目录下的help.chm帮助文件
a = ShellExecute(0, "open", b, "", "", SW_SHOWNORMAL)

End Sub

Private Sub HUANGSE_Click()
Text1.ForeColor = RGB(255, 255, 0)
End Sub

Private Sub jianqie_Click()

Clipboard.SetText Text1.SelText
Text1.SelText = ""
zhanqie.Enabled = True

End Sub

Private Sub kaiti_Click()

Text1.FontName = "楷体_GB2312"

End Sub

Private Sub lanse_Click()
Text1.ForeColor = vbBlue
End Sub

Private Sub left_Click()

Text1.Alignment = 0

End Sub

Private Sub lishu_Click()
Text1.FontName = "隶书"
End Sub

Private Sub lvse_Click()
Text1.ForeColor = vbGreen
End Sub

Private Sub mnuFilePrint_Click()
  On Error Resume Next
    If Form Is Nothing Then Exit Sub
    

    With dlgCommonDialog
        .DialogTitle = "Print"
        .CancelError = True
        .Flags = cdlPDReturnDC + cdlPDNoPageNums
        If Form.rtfText.SelLength = 0 Then
            .Flags = .Flags + cdlPDAllPages
        Else
            .Flags = .Flags + cdlPDSelection
        End If
        .ShowPrinter
        If Err <> MSComDlg.cdlCancel Then
            Form.rtfText.SelPrint .hDC
        End If
    End With

End Sub

Private Sub mnuViewStatusBar_Click()
    mnuViewStatusBar.Checked = Not mnuViewStatusBar.Checked
    StatusBar1.Visible = mnuViewStatusBar.Checked
End Sub

Private Sub RED_Click()
Text1.ForeColor = vbRed
End Sub

Private Sub right_Click()

Text1.Alignment = 1

End Sub

Private Sub SANSHI_Click()
Text1.FontSize = 30
End Sub

Private Sub shanchu_Click()

Text1.SelText = ""

End Sub

Private Sub SISHI_Click()
Text1.FontSize = 40
End Sub

Private Sub songti_Click()

Text1.FontName = "宋体"

End Sub

Private Sub Text1_Change()

If Text1.Text = "" Then
                   jianqie.Enabled = False
                   fuzhi.Enabled = False
                   Else
                   jianqie.Enabled = True
                   fuzhi.Enabled = True
End If

End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

StatusBar1.Panels(1) = "目前位置:文本框"

End Sub

Private Sub Timer1_Timer()
If StatusBar1.Panels(2).Text <> CStr(Time) Then
StatusBar1.Panels(2).Text = Time
End If

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Key
       Case "新建"
         xinjian_Click
       Case "打开"
         dakai_Click
       Case "保存"
       baocun_Click
       Case "剪切"
       jianqie_Click
       Case "复制"
       fuzhi_Click
       Case "粘贴"
       zhanqie_Click
       Case "左对齐"
       left_Click
       Case "居中"
       center_Click
       Case "右对齐"
       right_Click
End Select


End Sub

Private Sub Toolbar1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
StatusBar1.Panels(1) = "目前位置:工具栏"
End Sub

Private Sub tuichu_Click()

End

End Sub

Private Sub XIANSHI_Click()
StatusBar1.Visible = True
End Sub

Private Sub xinjian_Click()
Dim ret As Single

ret = MsgBox("文本即将关闭,保存吗?", vbOKCancel, "提示")
If ret = vbOK Then
   baocun_Click
  End If
  Text1.Text = ""
  
End Sub

Private Sub YINCANG_Click()
StatusBar1.Visible = False
End Sub

Private Sub YOUYUAN_Click()
Text1.FontName = "幼圆"
End Sub

Private Sub zhanqie_Click()

Text1.SelText = Clipboard.GetText()

End Sub


Private Sub ZHUANGTAI_Click()
    ZHUANGTAI.Checked = Not ZHUANGTAI.Checked
    StatusBar.Visible = ZHUANGTAI.Checked
End Sub

Private Sub ZISE_Click()
Text1.ForeColor = RGB(255, 0, 255)
End Sub