frmselectmore.frm

这是我的一个课题：我省农业分布调查咨询系统。课题是和省农业厅合作的。源代码完整

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmselectmore 
   BackColor       =   &H00C0C000&
   Caption         =   "列表信息窗口"
   ClientHeight    =   1800
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4560
   LinkTopic       =   "Form1"
   ScaleHeight     =   2226.804
   ScaleMode       =   0  'User
   ScaleWidth      =   4634.551
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   1237
      Left            =   118
      TabIndex        =   0
      Top             =   432
      Width           =   4335
      _ExtentX        =   7646
      _ExtentY        =   2170
      _Version        =   393216
      Cols            =   4
      RowHeightMin    =   4
      BackColor       =   -2147483624
      ForeColor       =   12582912
      BackColorFixed  =   12632319
      ForeColorFixed  =   12582912
      BackColorSel    =   -2147483624
      ForeColorSel    =   12582912
      BackColorBkg    =   -2147483624
      GridColor       =   0
      ScrollTrack     =   -1  'True
      FocusRect       =   0
      GridLines       =   3
      SelectionMode   =   1
      AllowUserResizing=   1
      MousePointer    =   99
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H80000018&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H0080FFFF&
      Height          =   1370
      Left            =   59
      Top             =   360
      Width           =   4455
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Label1"
      ForeColor       =   &H000000FF&
      Height          =   180
      Left            =   120
      TabIndex        =   1
      Top             =   97
      Width           =   540
   End
End
Attribute VB_Name = "frmselectmore"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Resize()
If Me.ScaleHeight > 0 Then
    If Me.ScaleHeight <= 2145 Then
       Me.Height = 2145
    End If
    Shape1.Width = Me.ScaleWidth - 110
    Shape1.Height = Me.ScaleHeight - 525
    MSFlexGrid1.Width = Me.ScaleWidth - 240
    MSFlexGrid1.Height = Me.ScaleHeight - 680
End If
End Sub
Private Sub MSFlexGrid1_Click()
Dim i As Long
Dim myfrs As Features
Dim rowfeatureName As String
Dim myv As New Variables

i = MSFlexGrid1.Row
If i > 0 Then
    MSFlexGrid1.BackColorSel = RGB(0, 174, 255)
    rowfeatureName = MSFlexGrid1.TextArray(i * MSFlexGrid1.Cols + 1)
    myv.Add "searchname", Trim(rowfeatureName)
    Set myfrs = fMainForm.Map1.Layers("1g12").Search("行政代码 = searchname", myv)
    fMainForm.Map1.Bounds = myfrs.Item(1).Bounds
End If
End Sub