日程提醒.frm

软件用到的技巧：透明窗体

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form FrmNongLi 
   BackColor       =   &H00FFF7E8&
   Caption         =   "农历换算"
   ClientHeight    =   3240
   ClientLeft      =   60
   ClientTop       =   495
   ClientWidth     =   8760
   LinkTopic       =   "Form11"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   3240
   ScaleWidth      =   8760
   Begin MSComCtl2.MonthView MonthView1 
      Height          =   2160
      Left            =   180
      TabIndex        =   0
      Top             =   555
      Width           =   4575
      _ExtentX        =   8070
      _ExtentY        =   3810
      _Version        =   393216
      ForeColor       =   8421376
      BackColor       =   16775144
      Appearance      =   0
      MonthBackColor  =   16775144
      ShowWeekNumbers =   -1  'True
      StartOfWeek     =   55967745
      TitleBackColor  =   32896
      TitleForeColor  =   12648447
      TrailingForeColor=   128
      CurrentDate     =   39259
   End
   Begin VB.Label Label8 
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000080FF&
      Height          =   225
      Left            =   5910
      TabIndex        =   6
      Top             =   2505
      Width           =   2670
   End
   Begin VB.Label Label7 
      BackStyle       =   0  'Transparent
      ForeColor       =   &H000080FF&
      Height          =   255
      Left            =   5910
      TabIndex        =   5
      Top             =   2205
      Width           =   2685
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "被选择的日期："
      ForeColor       =   &H000080FF&
      Height          =   180
      Left            =   5700
      TabIndex        =   4
      Top             =   1890
      Width           =   1260
   End
   Begin VB.Image Image1 
      Height          =   2535
      Left            =   4845
      Picture         =   "日程提醒.frx":0000
      Top             =   555
      Width           =   3810
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "Label4"
      ForeColor       =   &H00800000&
      Height          =   225
      Left            =   270
      TabIndex        =   3
      Top             =   2790
      Width           =   2925
   End
   Begin VB.Label Label2 
      Caption         =   "Label2"
      Height          =   180
      Left            =   195
      TabIndex        =   2
      Top             =   1200
      Width           =   480
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "请选择一个公历的日期"
      ForeColor       =   &H00008000&
      Height          =   180
      Left            =   1320
      TabIndex        =   1
      Top             =   330
      Width           =   1815
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00E0E0E0&
      BorderWidth     =   2
      Height          =   2865
      Left            =   180
      Top             =   180
      Width           =   4590
   End
End
Attribute VB_Name = "FrmNongLi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/12/24
'描    述：商务名片及客户资料管理系统 Ver 1.73
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Option Explicit


Private Sub Form_Load()
    Me.BackColor = FormBackColor
    Me.Icon = MDIForm1.Icon
    Me.MonthView1.Value = Date
    Me.Height = 3645
    Me.Width = 8880
    Label4.Caption = "今天： " & GetNongLi(Date)
        Label7.Caption = MonthView1.Value

    Label8.Caption = GetNongLi(MonthView1.Value)

End Sub

Private Sub Form_Resize()
    On Error GoTo ddd
    Me.Height = 3645
    Me.Width = 8880
    Exit Sub
ddd:
End Sub

Private Sub MonthView1_SelChange(ByVal StartDate As Date, ByVal EndDate As Date, Cancel As Boolean)
    Label7.Caption = MonthView1.Value

    Label8.Caption = GetNongLi(MonthView1.Value)

End Sub