form3.frm

<Visual Basic 数据库开发实例精粹（第二版）>一书首先介绍了Visual Basic(简称VB)开发的技巧和重点技术

VERSION 5.00
Begin VB.Form FMRoomState 
   Caption         =   "房间状态"
   ClientHeight    =   6825
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8745
   LinkTopic       =   "Form1"
   ScaleHeight     =   6825
   ScaleWidth      =   8745
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu Menu_Close 
      Caption         =   "关房"
      Begin VB.Menu Menu_Close_Fix 
         Caption         =   "Fix"
      End
      Begin VB.Menu Menu_Close_Open 
         Caption         =   "Open"
      End
   End
End
Attribute VB_Name = "FMRoomState"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
    Me.MSFlexGrid1.Rows = 3
    Me.MSFlexGrid1.Cols = 3
    Me.MSFlexGrid1.RowHeightMin = 1200
    
    
   Me.MSFlexGrid1.ColWidth(0) = 1200
   Me.MSFlexGrid1.ColWidth(1) = 1200
   Me.MSFlexGrid1.ColWidth(2) = 1200
          
  Me.MSFlexGrid1.ColAlignment(0) = flexAlignLeftBottom
  Me.MSFlexGrid1.ColAlignment(1) = flexAlignCenterTop
  Me.MSFlexGrid1.ColAlignment(2) = flexAlignCenterTop
          
          Dim i     As Long
    Dim Entry
    Entry = "02"
    
    Me.MSFlexGrid1.AddItem Entry, 0
    Me.MSFlexGrid1.Col = 0
    Me.MSFlexGrid1.Row = 0
    Set Me.MSFlexGrid1.CellPicture = LoadPicture("kongfang.bmp")
    
    'Set Me.MSFlexGrid1.CellAlignment(flexAlignCenterTop)
    '= "102"
    
    
    Me.MSFlexGrid1.Col = 0
    Me.MSFlexGrid1.Row = 1
    Set Me.MSFlexGrid1.CellPicture = LoadPicture("yuding.bmp")
    
    Me.MSFlexGrid1.Col = 0
    Me.MSFlexGrid1.Row = 2
    Set Me.MSFlexGrid1.CellPicture = LoadPicture("yuding.bmp")
          
    Me.MSFlexGrid1.Col = 1
    Me.MSFlexGrid1.Row = 0
    Set Me.MSFlexGrid1.CellPicture = LoadPicture("zhanyong.bmp")
    Me.MSFlexGrid1.Col = 1
    Me.MSFlexGrid1.Row = 1
    Set Me.MSFlexGrid1.CellPicture = LoadPicture("zhanyong.bmp")
    Me.MSFlexGrid1.Col = 1
    Me.MSFlexGrid1.Row = 2
    Set Me.MSFlexGrid1.CellPicture = LoadPicture("zhanyong.bmp")

              Me.MSFlexGrid1.Col = 2
    Me.MSFlexGrid1.Row = 0
    Set Me.MSFlexGrid1.CellPicture = LoadPicture("weixiu.bmp")

          
          Me.MSFlexGrid1.Col = 2
          Me.MSFlexGrid1.Row = 1
          Set Me.MSFlexGrid1.CellPicture = LoadPicture("dasao.bmp")
          Me.MSFlexGrid1.Col = 2
          Me.MSFlexGrid1.Row = 2
          Set Me.MSFlexGrid1.CellPicture = LoadPicture("dasao.bmp")
  End Sub


Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 2 Then
        Me.PopupMenu Me.Menu_Close
    End If
End Sub