frmdate.frm

给售房作的,但还没有全完成,最好是只看看里面有用的东东就可以了

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmdate 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "日期设置"
   ClientHeight    =   2655
   ClientLeft      =   4080
   ClientTop       =   2190
   ClientWidth     =   4185
   Icon            =   "frmdate.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2655
   ScaleWidth      =   4185
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      CausesValidation=   0   'False
      Default         =   -1  'True
      Height          =   285
      Left            =   3420
      TabIndex        =   0
      Top             =   30
      Width           =   675
   End
   Begin MSComCtl2.MonthView MonthView1 
      Height          =   2220
      Left            =   30
      TabIndex        =   1
      Top             =   300
      Width           =   4095
      _ExtentX        =   7223
      _ExtentY        =   3916
      _Version        =   393216
      ForeColor       =   -2147483630
      BackColor       =   -2147483629
      BorderStyle     =   1
      Appearance      =   1
      OLEDropMode     =   1
      MonthBackColor  =   -2147483624
      StartOfWeek     =   24510465
      CurrentDate     =   36711
   End
   Begin VB.TextBox Text1 
      Height          =   405
      Left            =   390
      TabIndex        =   4
      Top             =   960
      Width           =   1095
   End
   Begin VB.Label Label1 
      Caption         =   "请选择日期："
      Height          =   195
      Left            =   30
      TabIndex        =   3
      Top             =   60
      Width           =   1155
   End
   Begin VB.Label Label2 
      Height          =   255
      Left            =   1260
      TabIndex        =   2
      Top             =   30
      Width           =   1515
   End
End
Attribute VB_Name = "frmdate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If Button = 1 Then
    If Text1.Text = 1 And frmwyda.Text1(2).Locked = False Then
       frmwyda.Text1(2).Text = Label2.Caption
    Else
      If Text1.Text = 2 And frmzhda.Text1(7).Locked = False Then
         frmzhda.Text1(7).Text = Label2.Caption
      Else
         If Text1.Text = 3 Then frmysklr.Text1(3).Text = Label2.Caption
      End If
   End If
   Unload frmdate
 End If
End Sub

Private Sub Form_Load()
   MonthView1.Value = Now
   Label2.Caption = Format(Date, "yyyy-mm-dd")
End Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
   Label2.Caption = Format(MonthView1.Value, "yyyy-mm-dd")
End Sub