rtdx_gridfrm.frm

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

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form RTDX_gridfrm 
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "Grid"
   ClientHeight    =   5190
   ClientLeft      =   4410
   ClientTop       =   1410
   ClientWidth     =   6495
   Icon            =   "rtdx_gridfrm.frx":0000
   LinkTopic       =   "RTDX_gridfrm"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   5190
   ScaleWidth      =   6495
   ShowInTaskbar   =   0   'False
   Begin MSFlexGridLib.MSFlexGrid RTDX_grid 
      Height          =   5175
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6495
      _ExtentX        =   11456
      _ExtentY        =   9128
      _Version        =   393216
      GridLines       =   3
   End
End
Attribute VB_Name = "RTDX_gridfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Constants for the RTDX Grid Form
Dim FORM_START_WIDTH
Dim FORM_START_HEIGHT


Private Sub Form_Load()
    
    FORM_START_WIDTH = (Screen.Width / 2)
    FORM_START_HEIGHT = (Screen.Height / 2)

    Left = (Screen.Width - Width) / 1.235
    Top = (Screen.Height - Height) / 2
    RTDX_gridfrm.Show
End Sub

Private Sub Form_Resize()
    'Grow/Shrink Grid + leave room for scroll bars
    RTDX_grid.Width = _
        (RTDX_gridfrm.Width * (FORM_START_WIDTH - 150)) / _
            FORM_START_WIDTH
    RTDX_grid.Height = _
        (RTDX_gridfrm.Height * (FORM_START_HEIGHT - 500)) / _
            FORM_START_HEIGHT
    'Re-position Grid
    RTDX_grid.Left = 0
    RTDX_grid.Top = 0
End Sub

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