农历公历转换(五)

本论文在其他论文栏目，由论文格式网整理,转载请注明来源www.lwgsw.com,更多论文,请点论文格式范文查看
    End If
    chk = 1
End Sub
Private Sub cmdEq_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   Show_b Picture5, P8, cmdEq
End Sub
Private Sub cmdEq_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
   Show_b Picture5, P9, cmdEq
End Sub
Private Sub cmdNum_Click(Index As Integer)
    On Error GoTo eh2
      MPl.Play
    If chk = 1 Then
        e = ""
        f = ""
        op = ""
        chk = 0
    End If
    If op = "" Then
        e = e & Trim(Str(Index))
        txtDisp.Text = e
    Else
        f = f & Trim(Str(Index))
        txtDisp.Text = f
    End If
    Exit Sub
eh2:
    txtDisp.Text = "-E-"
    e = ""
    f = ""
    op = ""
End Sub
Private Sub cmdOp_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
   Show_b Picture5, P8, cmdOp(Index)
End Sub
Private Sub cmdOp_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
   Show_b Picture5, P9, cmdOp(Index)
End Sub
Private Sub cmdOp_Click(Index As Integer)
    On Error GoTo eh3
       op_Sub
        txtDisp.Text = e
        op = ""
        chk = 0
    Select Case Index
        Case 0
            op = "+"
        Case 1
            op = "-"
        Case 2
            op = "*"
        Case 3
            op = "/"
        Case 4
            op = "^"
    End Select
    Exit Sub
eh3:
    txtDisp.Text = "-E-"
    e = ""
    f = ""
    op = ""
End Sub
Private Sub cmdPi_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   Show_b Picture5, P8, cmdPi
End Sub
Private Sub cmdPi_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
   Show_b Picture5, P9, cmdPi
End Sub
Private Sub cmdPi_Click()
     MPl.Play
    If op = "" Then
        e = "3.141592654"
        txtDisp.Text = e
    Else
        f = "3.141592654"
        txtDisp.Text = f
    End If
End Sub
Private Sub cmdPM_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   Show_b Picture5, P8, cmdPM
End Sub
Private Sub cmdPM_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
   Show_b Picture5, P9, cmdPM
End Sub
Private Sub cmdPM_Click()
    On Error GoTo eh1
    op_Sub
    txtDisp.Text = e
    op = ""
    chk = 1
    Exit Sub
eh1:
    txtDisp.Text = "-E-"
    e = ""
    f = ""
    op = ""
End Sub
Private Sub cmdPt_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   Show_b Picture5, P8, cmdPt
End Sub
Private Sub cmdPt_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
   Show_b Picture5, P9, cmdPt
End Sub
Private Sub cmdPt_Click()
MPl.Play
If op = "" Then
    e = e & "."
    txtDisp.Text = e
Else
    f = f & "."
    txtDisp.Text = f
End If
End Sub
Private Sub cmdT_Click()
    '显示查询面板
    If tiAo Then
        Timer4.Enabled = False
        Timer3.Enabled = True
    Else
        Timer4.Enabled = True
        Timer3.Enabled = False
    End If
     Label4.Enabled = False
     Picture4.Visible = True
     Picture5.Visible = False
End Sub

Private Sub Label4_Click()
   Pt.Visible = True
   cmdT.Enabled = False
   Picture5.Visible = True
   Picture4.Visible = False
    If jiSuan Then
        Timer6.Enabled = True
        Timer5.Enabled = False
        Timer1.Enabled = True
        Timer8.Enabled = False
    Else
        Timer6.Enabled = False
        Timer5.Enabled = True
        Timer8.Enabled = True
        Timer1.Enabled = False
    End If
   Picture5.SetFocus
End Sub
'单击返回今天
Private Sub C_clock_Click()
Text1.Text = Year(Date)
Text2.Text = Month(Date)
Text3.Text = Day(Date)
    txt_Sub
    disPlay (Date)
End Sub
Private Sub Form_Activate()
    RunMain picScroll
End Sub
Private Sub Form_Load()
'===============================================
    Dim t As Single, rtn
    Form1.Height = 2715
    Form1.Width = 5400
     rtn = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, FLAGS)
     tip = 1
    t = Timer
    If Me.Picture <> 0 Then Call SetAutoRgn(Me)

首页上一页 2 3 4 5 6 7 8 下一页尾页 5/10/10