vb农历公历转换系统设计 第5页
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)
    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()

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页