Programming Tool Box/SIMS_2.iso/tool/various/dbgrid/editkeyf.frm

Text File | 1995-02-27 | 9KB | 336 lines

VERSION 2.00
Begin Form EditKeyForm
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "DBT Grid Edit Key Selection"
   ClientHeight    =   3360
   ClientLeft      =   1515
   ClientTop       =   3270
   ClientWidth     =   6045
   Height          =   3885
   Left            =   1455
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3360
   ScaleWidth      =   6045
   Top             =   2805
   Width           =   6165
   Begin CommandButton Command14
      Caption         =   "<Space Bar>"
      Height          =   255
      Left            =   1200
      TabIndex        =   12
      Top             =   1920
      Width           =   3135
   End
   Begin CommandButton Command15
      Caption         =   "Enter"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   4080
      TabIndex        =   13
      Top             =   1200
      Width           =   615
   End
   Begin CommandButton Command13
      Caption         =   "F12"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   4920
      TabIndex        =   11
      Top             =   600
      Width           =   375
   End
   Begin CommandButton Command12
      Caption         =   "F11"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   4560
      TabIndex        =   10
      Top             =   600
      Width           =   375
   End
   Begin CommandButton Command10
      Caption         =   "F9"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   3840
      TabIndex        =   9
      Top             =   600
      Width           =   375
   End
   Begin CommandButton Command9
      Caption         =   "F8"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   3480
      TabIndex        =   8
      Top             =   600
      Width           =   375
   End
   Begin CommandButton Command8
      Caption         =   "F7"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   3120
      TabIndex        =   7
      Top             =   600
      Width           =   375
   End
   Begin CommandButton Command7
      Caption         =   "F6"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   2760
      TabIndex        =   6
      Top             =   600
      Width           =   375
   End
   Begin CommandButton Command6
      Caption         =   "F5"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   2400
      TabIndex        =   5
      Top             =   600
      Width           =   375
   End
   Begin CommandButton Command5
      Caption         =   "F4"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   2040
      TabIndex        =   4
      Top             =   600
      Width           =   375
   End
   Begin CommandButton Command4
      Caption         =   "F3"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   1680
      TabIndex        =   3
      Top             =   600
      Width           =   375
   End
   Begin CommandButton Command3
      Caption         =   "F2"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   1320
      TabIndex        =   2
      Top             =   600
      Width           =   375
   End
   Begin CommandButton Command2
      Caption         =   "F1"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   960
      TabIndex        =   1
      Top             =   600
      Width           =   375
   End
   Begin CommandButton Command1
      Caption         =   "Esc"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   600
      Width           =   495
   End
   Begin Label Label1
      BackColor       =   &H00C0C0C0&
      Caption         =   "You may choose any virtual key code for the three DBT Grid Edit Keys.  Only a few are presented here for purposes of demonstration.  Make certain that your Edit Key selections do not conflict with any of the Visual Basic <access keys> you are using."
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   975
      Left            =   120
      TabIndex        =   14
      Top             =   2280
      Width           =   5775
   End
End

Sub Command1_Click ()
SetEditKey 27
Unload EditKeyForm
End Sub

Sub Command10_Click ()
SetEditKey 120
Unload EditKeyForm

End Sub

Sub Command11_Click ()
SetEditKey 121
Unload EditKeyForm

End Sub

Sub Command12_Click ()
SetEditKey 122
Unload EditKeyForm

End Sub

Sub Command13_Click ()
SetEditKey 123
Unload EditKeyForm

End Sub

Sub Command14_Click ()
SetEditKey 32
Unload EditKeyForm

End Sub

Sub Command15_Click ()
SetEditKey 13
Unload EditKeyForm

End Sub

Sub Command2_Click ()
SetEditKey 112
Unload EditKeyForm

End Sub

Sub Command3_Click ()
SetEditKey 113
Unload EditKeyForm

End Sub

Sub Command4_Click ()
SetEditKey 114
Unload EditKeyForm

End Sub

Sub Command5_Click ()
SetEditKey 115
Unload EditKeyForm

End Sub

Sub Command6_Click ()
SetEditKey 116
Unload EditKeyForm

End Sub

Sub Command7_Click ()
SetEditKey 117
Unload EditKeyForm

End Sub

Sub Command8_Click ()
SetEditKey 118
Unload EditKeyForm

End Sub

Sub Command9_Click ()
SetEditKey 119
Unload EditKeyForm

End Sub

Sub SetEditKey (KeySelected As Integer)

Select Case EditKey

        Case 1  'AbortEditKey

            DemoForm.DBTGrid1.AbortEditKey = KeySelected

        Case 2  'BeginEditKey

            DemoForm.DBTGrid1.BeginEditKey = KeySelected

        Case 3  'EndEditKey

            DemoForm.DBTGrid1.EndEditKey = KeySelected
End Select


End Sub