menu511.frm

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

         TabIndex        =   5
         Top             =   240
         Width           =   1380
      End
      Begin VB.TextBox tone 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Index           =   5
         Left            =   960
         MaxLength       =   8
         TabIndex        =   4
         Top             =   960
         Width           =   1335
      End
      Begin VB.TextBox tone 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Index           =   6
         Left            =   3360
         MaxLength       =   50
         TabIndex        =   3
         Top             =   960
         Width           =   1695
      End
      Begin VB.TextBox tone 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Index           =   7
         Left            =   6120
         MaxLength       =   100
         TabIndex        =   2
         Top             =   960
         Width           =   1695
      End
      Begin VB.ComboBox Combo3 
         Height          =   300
         Left            =   8760
         TabIndex        =   1
         Top             =   1080
         Width           =   1095
      End
      Begin VB.Label Label1 
         Caption         =   "付款方式"
         Height          =   255
         Left            =   4560
         TabIndex        =   36
         Top             =   1560
         Width           =   855
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         Caption         =   "联系电话"
         Height          =   180
         Index           =   10
         Left            =   2280
         TabIndex        =   33
         Top             =   1560
         Width           =   720
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         Caption         =   "房屋格局"
         Height          =   180
         Index           =   9
         Left            =   2520
         TabIndex        =   32
         Top             =   720
         Width           =   720
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         Caption         =   "户主姓名"
         Height          =   180
         Index           =   5
         Left            =   120
         TabIndex        =   31
         Top             =   1440
         Width           =   720
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         Caption         =   "房  号"
         Height          =   180
         Index           =   4
         Left            =   7320
         TabIndex        =   30
         Top             =   240
         Width           =   540
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         Caption         =   "楼    号"
         Height          =   180
         Index           =   1
         Left            =   120
         TabIndex        =   29
         Top             =   240
         Width           =   720
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         Caption         =   "单    元"
         Height          =   180
         Index           =   2
         Left            =   2520
         TabIndex        =   28
         Top             =   240
         Width           =   720
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         Caption         =   "楼    层"
         Height          =   180
         Index           =   3
         Left            =   4920
         TabIndex        =   27
         Top             =   240
         Width           =   720
      End
      Begin VB.Label Label10 
         Caption         =   "是否销售"
         Height          =   255
         Left            =   7920
         TabIndex        =   26
         Top             =   1080
         Width           =   735
      End
      Begin VB.Label Label2 
         Caption         =   "实 付 款"
         Height          =   255
         Left            =   4560
         TabIndex        =   25
         Top             =   1800
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "应 付 款"
         Height          =   255
         Left            =   2280
         TabIndex        =   24
         Top             =   1920
         Width           =   855
      End
      Begin VB.Label Label4 
         Caption         =   "销售面积"
         Height          =   255
         Left            =   5280
         TabIndex        =   23
         Top             =   600
         Width           =   735
      End
      Begin VB.Line Line1 
         X1              =   0
         X2              =   8400
         Y1              =   1320
         Y2              =   1320
      End
      Begin VB.Label lblLabels 
         AutoSize        =   -1  'True
         Caption         =   "销售单价"
         Height          =   180
         Index           =   8
         Left            =   120
         TabIndex        =   22
         Top             =   1920
         Width           =   720
      End
      Begin VB.Label Label5 
         Caption         =   "住房类别"
         Height          =   255
         Left            =   120
         TabIndex        =   21
         Top             =   600
         Width           =   735
      End
      Begin VB.Label Label6 
         Caption         =   "车    库"
         Height          =   255
         Left            =   120
         TabIndex        =   20
         Top             =   960
         Width           =   735
      End
      Begin VB.Label Label7 
         Caption         =   "附加设备"
         Height          =   255
         Left            =   2520
         TabIndex        =   19
         Top             =   1080
         Width           =   855
      End
      Begin VB.Label Label8 
         Caption         =   "备    注"
         Height          =   255
         Left            =   5280
         TabIndex        =   18
         Top             =   1080
         Width           =   735
      End
      Begin VB.Label Label9 
         BackStyle       =   0  'Transparent
         Caption         =   "平方米"
         Height          =   255
         Left            =   8160
         TabIndex        =   17
         Top             =   600
         Width           =   735
      End
   End
   Begin VB.Image Image1 
      Height          =   5280
      Left            =   720
      Picture         =   "menu511.frx":0014
      Stretch         =   -1  'True
      Top             =   2400
      Width           =   9840
   End
End
Attribute VB_Name = "winmenu511"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
allscreen = True
Frame2.Visible = False
Image1.Visible = True
Image1.Left = 0
Image1.Top = 0
Image1.Width = Me.ScaleWidth
Image1.Height = Me.ScaleHeight - 500
Command2.Visible = True
Command2.Top = Me.ScaleHeight - 500
End Sub

Private Sub Command2_Click()
Image1.Top = 2520
Image1.Left = 840
Image1.Height = 5280
Image1.Width = 9840
Frame2.Visible = True
Command2.Visible = False
End Sub

Private Sub Form_Load()
winmenu511.Left = 0
winmenu511.Top = 0
winmenu511.Width = 11930
winmenu511.Height = 7940
Image1.Top = 2520
Image1.Left = 840
Image1.Height = 5280
Image1.Width = 9840
End Sub