GFPBLabel/Testfrm.frm

VERSION 5.00
Begin VB.Form Testfrm
   Caption         =   "GFPBLabel"
   ClientHeight    =   4875
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   4875
   ScaleWidth      =   4650
   StartUpPosition =   3 'Windows‑Standard
   Begin VB.PictureBox TestPicture
      AutoRedraw      =   ‑1 'True
      Height          =   3555
      Left            =   60
      ScaleHeight     =   3495
      ScaleWidth      =   4455
      TabIndex        =   3
      Top             =   1260
      Width           =   4515
   End
   Begin VB.CommandButton TestDeleteCommand
      Caption         =   "Delete"
      Height          =   315
      Left            =   60
      TabIndex        =   2
      Top             =   780
      Width           =   1335
   End
   Begin VB.CommandButton TestEditCommand
      Caption         =   "Edit"
      Height          =   315
      Left            =   60
      TabIndex        =   1
      Top             =   420
      Width           =   1335
   End
   Begin VB.CommandButton TestNewCommand
      Caption         =   "New"
      Height          =   315
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   1335
   End
End
Attribute VB_Name = "Testfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'(c)2001 by Louis.

Private Sub TestDeleteCommand_Click()
    'on error resume next
    With GFPBLabelfrm
        Call .GFPBLabel_Delete(.GFPBLabel_GetFocusLabelIndex)
    End With
End Sub

Private Sub TestEditCommand_Click()
    'on error resume next
    With GFPBLabelfrm
        Call .GFPBLabel_Edit(.GFPBLabel_GetFocusLabelIndex)
    End With
End Sub

Private Sub TestNewCommand_Click()
    'on error resume next
    Call GFPBLabelfrm.GFPBLabel_Create(RGB(0, 0, 0), RGB(255, 255, 255), Testfrm.TestPicture)
    Call GFPBLabelfrm.GFPBLabel_Change(GFPBLabelStructNumber)
    Call GFPBLabelfrm.GFPBLabel_Draw 'display changes
End Sub

Private Sub TestPicture_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'on error resume next
    Call GFPBLabelfrm.GFPBLabel_ReceiveMouseMove(Button, X, Y)
End Sub

Private Sub TestPicture_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'on error resume next
    Call GFPBLabelfrm.GFPBLabel_ReceiveMouseUp
End Sub


[END OF FILE]