gpdgridfrm.frm

dsp6713开发板的许多例程.对入门特别有用

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form GPDGridFrm 
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "Data"
   ClientHeight    =   3570
   ClientLeft      =   60
   ClientTop       =   300
   ClientWidth     =   2430
   Icon            =   "gpdgridfrm.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3570
   ScaleWidth      =   2430
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin MSFlexGridLib.MSFlexGrid grd_GridSheet 
      Height          =   3315
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2085
      _ExtentX        =   3678
      _ExtentY        =   5847
      _Version        =   393216
   End
End
Attribute VB_Name = "GPDGridFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Resize()
'#######################################################################
' This procedure is called if the form size if modifed. It's job is to
' re-size and re-position the Active-X controls according to scale.
'#######################################################################
    ' Set GridSheet to fill entire form area (minus border at edges)
    grd_GridSheet.Left = GPDGridFrm.ScaleLeft
    grd_GridSheet.Top = GPDGridFrm.ScaleTop
    grd_GridSheet.Width = GPDGridFrm.ScaleWidth
    grd_GridSheet.Height = GPDGridFrm.ScaleHeight
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ' Remove form only when tmr_Method_Dispatch is not running
    If GPDFrm.tmr_Method_Dispatch.Enabled = True Then
        Cancel = 1
    End If
End Sub