scientific_calculator.frm

仿xp的计算器功能和普通计算器的功能一样

      ScaleHeight     =   345
      ScaleWidth      =   450
      TabIndex        =   4
      TabStop         =   0   'False
      Top             =   1680
      Width           =   510
   End
   Begin VB.PictureBox cmd_digits 
      ForeColor       =   &H00FF0000&
      Height          =   405
      Index           =   5
      Left            =   1425
      ScaleHeight     =   345
      ScaleWidth      =   450
      TabIndex        =   5
      TabStop         =   0   'False
      Top             =   1680
      Width           =   510
   End
   Begin VB.PictureBox cmd_digits 
      ForeColor       =   &H00FF0000&
      Height          =   405
      Index           =   6
      Left            =   1995
      ScaleHeight     =   345
      ScaleWidth      =   450
      TabIndex        =   6
      TabStop         =   0   'False
      Top             =   1680
      Width           =   510
   End
   Begin VB.PictureBox cmd_digits 
      ForeColor       =   &H00FF0000&
      Height          =   405
      Index           =   7
      Left            =   840
      ScaleHeight     =   345
      ScaleWidth      =   450
      TabIndex        =   7
      TabStop         =   0   'False
      Top             =   1200
      Width           =   510
   End
   Begin VB.PictureBox cmd_digits 
      ForeColor       =   &H00FF0000&
      Height          =   405
      Index           =   8
      Left            =   1425
      ScaleHeight     =   345
      ScaleWidth      =   450
      TabIndex        =   8
      TabStop         =   0   'False
      Top             =   1200
      Width           =   510
   End
   Begin VB.PictureBox cmd_digits 
      ForeColor       =   &H00FF0000&
      Height          =   405
      Index           =   9
      Left            =   1995
      ScaleHeight     =   345
      ScaleWidth      =   450
      TabIndex        =   9
      TabStop         =   0   'False
      Top             =   1200
      Width           =   510
   End
   Begin VB.PictureBox cmdmultiply 
      ForeColor       =   &H000000FF&
      Height          =   405
      Left            =   2565
      ScaleHeight     =   345
      ScaleWidth      =   450
      TabIndex        =   18
      TabStop         =   0   'False
      Top             =   1680
      Width           =   510
   End
   Begin VB.PictureBox cmdminus 
      ForeColor       =   &H000000FF&
      Height          =   405
      Left            =   2565
      ScaleHeight     =   345
      ScaleWidth      =   450
      TabIndex        =   19
      TabStop         =   0   'False
      Top             =   2160
      Width           =   510
   End
   Begin VB.PictureBox cmdplus 
      ForeColor       =   &H000000FF&
      Height          =   405
      Left            =   2565
      ScaleHeight     =   345
      ScaleWidth      =   450
      TabIndex        =   20
      TabStop         =   0   'False
      Top             =   2640
      Width           =   510
   End
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   1440
      Top             =   1200
   End
   Begin VB.PictureBox cd1 
      Height          =   480
      Left            =   1200
      ScaleHeight     =   420
      ScaleWidth      =   1140
      TabIndex        =   31
      Top             =   600
      Width           =   1200
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Form Set focus"
      Height          =   255
      Left            =   1320
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
   Begin VB.Image Image1 
      Height          =   3255
      Left            =   0
      Stretch         =   -1  'True
      Top             =   0
      Width           =   3855
   End
   Begin VB.Menu Edit 
      Caption         =   "Edit"
      Begin VB.Menu Copy 
         Caption         =   "Copy"
         Shortcut        =   ^C
      End
      Begin VB.Menu Paste 
         Caption         =   "Paste"
         Shortcut        =   ^V
      End
      Begin VB.Menu sss 
         Caption         =   "-"
      End
      Begin VB.Menu Exit 
         Caption         =   "Exit"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu View 
      Caption         =   "View"
      Begin VB.Menu standard 
         Caption         =   "Standard"
         Shortcut        =   ^S
      End
      Begin VB.Menu Scientific 
         Caption         =   "Scientific"
         Enabled         =   0   'False
      End
      Begin VB.Menu separator 
         Caption         =   "-"
      End
      Begin VB.Menu grouping 
         Caption         =   "Digit grouping"
         Enabled         =   0   'False
      End
      Begin VB.Menu memshoworhide 
         Caption         =   "Memory"
      End
      Begin VB.Menu look 
         Caption         =   "-"
      End
      Begin VB.Menu backg 
         Caption         =   "Insert picture"
      End
      Begin VB.Menu Digital 
         Caption         =   "Digital Look"
         Shortcut        =   ^L
      End
      Begin VB.Menu Default 
         Caption         =   "Default Look"
         Shortcut        =   ^D
      End
   End
   Begin VB.Menu Help 
      Caption         =   "Help"
      Begin VB.Menu Helptopic 
         Caption         =   "Help Topics"
         Enabled         =   0   'False
      End
      Begin VB.Menu separator2 
         Caption         =   "-"
      End
      Begin VB.Menu About_me 
         Caption         =   "About Calculator"
      End
   End
End
Attribute VB_Name = "Scientific_Calculator"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub About_me_Click()
Load About_Calc
About_Calc.Show 0, Me
Me.Enabled = False
End Sub

Private Sub backg_Click()
On Error GoTo e
cd1.Filter = "Bitmap (*.bmp)|*.bmp|Jpeg (*.jpg)|*.jpg|Gif (*.gif)|*.gif|All Files (*.*)|*.*"

cd1.ShowOpen
Image1.Picture = LoadPicture(cd1.FileName)
display.BackColor = vbWhite
display.ForeColor = vbBlack
e:
If Err.Number = 481 Then
MsgBox "It's Not a picture", vbExclamation
End If
End Sub

Private Sub Copy_Click()
display.SelStart = 0
display.SelLength = Len(display.Text)
Clipboard.Clear
Clipboard.SetText display.SelText
End Sub

Private Sub Default_Click()
display.BackColor = vbWhite
display.ForeColor = vbBlack
Image1.Picture = LoadPicture("")
End Sub

Private Sub Digital_Click()
Image1.Picture = LoadPicture(App.Path + "\backdigital.gif")
End Sub

Private Sub Exit_Click()
End
End Sub

Private Sub memshoworhide_Click()
If memshoworhide.Checked = True Then
    memshoworhide.Checked = False
    tmp.Visible = False
ElseIf memshoworhide.Checked = False Then
    memshoworhide.Checked = True
    tmp.Visible = True
End If
End Sub

Private Sub Paste_Click()
If display.Text = "0" Then
display.Text = Empty
display.Text = Clipboard.GetText
End If
End Sub

Private Sub standard_Click()
If standard.Checked = True Then
    standard.Checked = False
ElseIf standard.Checked = False Then
    standard.Checked = True
End If
End Sub

Private Sub Timer1_Timer()
Dim str$, Str1$

Str1 = Mid(Me.Caption, 1, 1)
str = Mid(Me.Caption, 2, Len(Me.Caption) - 1)
Me.Caption = str + Str1
End Sub