农历公历转换(六)

本论文在其他论文栏目，由论文格式网整理,转载请注明来源www.lwgsw.com,更多论文,请点论文格式范文查看
    tiAo = False
    jiSuan = False
'-----------------------------------------------
    Picture4.Visible = False
    Picture5.Visible = False
'---------------------------------------
'计算器变量初始化
    s_mem_B = False
    S_mem = 0
    chk = 0
    e = ""
    f = ""
    op = ""
    txtDisp.Text = "0"
    g = 1
    ShowNumFun Pt, wPw2(3), 1
    ShowNumARG Pt, wPw1(3), 20
'-----------------------------------------
fhSec3 = 0
color_index = 1
jS = 0
picScroll.ForeColor = vbRed
picScroll.FontSize = 8
Picture2.Visible = False
color1 = 1
flAge = False
shxing
'=========================================
Text1.Text = Year(Date)
Text2.Text = Month(Date)
Text3.Text = Day(Date)
        txt_Sub
        disPlay (Date)
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 1 Then
           Dim ReturnVal As Long
           x = ReleaseCapture()
           ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
    End If
End Sub
Private Sub Gz_Click()
    End
End Sub
Private Sub picScroll_Click()
   Picture2.Visible = True
       RunMain Picture2
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 1 Then
           Dim ReturnVal As Long
           x = ReleaseCapture()
           ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
    End If

End Sub
Private Sub Picture2_Click()
Picture2.Visible = False
      RunMain picScroll
End Sub
Private Sub Picture4_Click()
   Timer3.Enabled = True
   Timer4.Enabled = False
End Sub
Private Sub Picture5_Click()
Pt.Visible = False
Timer6.Enabled = True
Timer5.Enabled = False
Timer1.Enabled = True
Timer8.Enabled = False
End Sub
Private Sub Picture5_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
    Case 13
        cmdPM_Click
    Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
        cmdNum_Click (KeyAscii - 48)
    Case 46
        cmdPt_Click
    Case 42
        cmdOp_Click (2)
    Case 43
        cmdOp_Click (0)
    Case 45
        cmdOp_Click (1)
    Case 47
        cmdOp_Click (3)
    Case Else
         KeyAscii = 0
End Select
End Sub
Private Sub Picture8_Click()
Picture8.Visible = False
End Sub
Private Sub Pt_Click()
Timer6.Enabled = True
Timer5.Enabled = False
Pt.Visible = False
Timer1.Enabled = True
Timer8.Enabled = False
End Sub
Private Sub Text1_Change()
    txt_Sub
    s_Disp
End Sub
Private Sub Text2_Change()
        txt_Sub
        If (Val(Text3.Text) > UpDown3.Max) Then
           Text3.Text = Str(UpDown3.Max)
        End If
        s_Disp
End Sub
Private Sub Text3_Change()
      s_Disp
End Sub
Private Sub Timer1_Timer()
   Dim textTime As String, h As Integer, m As Integer, s As Integer
   Dim hh As String, mm As String, ss As String, zIs As Integer
        fhHour = Hour(Now)
        fhMin = Minute(Now)
        fhSec = Second(Now)
        If (fhHour Mod 2) = 1 Then
          zIs = (fhHour + 1) / 2
        Else
          If fhHour = 0 Then
            zIs = 12
          Else
            zIs = fhHour / 2
          End If
        End If
    G_z.Caption = ziShi + Zhi(zIs - 1) + "时"
    If (fhHour < 10) Then
        fhHour1 = 0
        fhHour2 = fhHour
    Else
        fhHour1 = Int(fhHour / 10)
        fhHour2 = fhHour - fhHour1 * 10
    End If

    If (fhMin < 10) Then
        fhMin1 = 0
        fhMin2 = fhMin
    Else
        fhMin1 = Int(fhMin / 10)
        fhMin2 = fhMin - fhMin1 * 10
    End If
    If (fhSec < 10) Then
        fhSec1 = 0
        fhSec2 = fhSec
    Else

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