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]