Caption = "This control can be bound to an VB data control. It then allows the option of skipping a group of records (The amount is set by the programmer). To simulate the data VB data control, we use two of the ctDATA controls and a third party label box."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 945
Left = 300
TabIndex = 8
Top = 2910
Width = 5025
End
End
Begin Frame DataFrame
BackColor = &H00C0C0C0&
Caption = "Page 3 of 4"
Height = 4035
Index = 2
Left = 390
TabIndex = 14
Top = 330
Width = 5505
Begin ctDATA ctData5
Prop26 = 0 'Copyright (C) 1994 Gamesman Inc.
AmountButtons = 1 'Three Buttons
ArrowColor = &H00000000&
ArrowSize = 1 'Large
BevelSize = 2
BorderColor = &H00000000&
DisableCenter = 0 'False
DisableLeft = 0 'False
DisableRight = 0 'False
Height = 675
Left = 1440
PictureCenter = DATADEMO.FRX:0000
PictureRight = DATADEMO.FRX:019A
RepeatRate = 5
SizePictureCenter= -1 'True
SkipValue = 1
Style = 0 'Previous Records
TabIndex = 28
Top = 2340
Width = 2535
End
Begin Label Label19
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Each button in the control can contain a bitmap or icon. In the example above, the center button contains a sized bitmap and the right button contains an icon."
Height = 735
Left = 240
TabIndex = 30
Top = 3120
Width = 5115
End
Begin Label Label18
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Picture Controls"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00800000&
Height = 375
Left = 960
TabIndex = 29
Top = 1920
Width = 3675
End
Begin Label Label7
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "The ctDATA control does not have to have anything to do with data. The control can be set to two or three buttons; and it can be used to navigate through a series of forms. (like the controls below)"
Height = 885
Left = 180
TabIndex = 16
Top = 900
Width = 5055
End
Begin Label Label6
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Non-Data Related Control"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00800000&
Height = 345
Left = 600
TabIndex = 15
Top = 480
Width = 4215
End
End
Begin Frame DataFrame
BackColor = &H00C0C0C0&
Caption = "Page 2 of 4"
Height = 4035
Index = 1
Left = 390
TabIndex = 10
Top = 330
Width = 5505
Begin Label Label17
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "NOTE : I wrote this product to work with my SixBase/VB(tm) data grid. However, Successware(tm) has not had anything to do with the development of this control, nor is Gamesman Inc. and Successware(tm) associated in any way."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000080&
Height = 795
Left = 360
TabIndex = 27
Top = 1800
Width = 4845
End
Begin Label Label5
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "The control also acts like a spin button in that if you continue to press down on a button, it will fire repeatedly. The amount of times the events can be fired in one second can be defined by the programmer."
Height = 1035
Left = 510
TabIndex = 13
Top = 2700
Width = 4545
End
Begin Label Label4
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "The ctDATA control does not have to be bound to a data control. It was originally written to work with the data grid supplied in the SixBASE/VB(tm). Because each button in the control fires a seperate event, it can be set up to skip, page, and go to Beginning/End of files"
Height = 1035
Left = 360
TabIndex = 12
Top = 720
Width = 4935
End
Begin Label Label3
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Unbound Control"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00800000&
Height = 285
Left = 480
TabIndex = 11
Top = 330
Width = 4605
End
End
Begin Frame DataFrame
BackColor = &H00C0C0C0&
Caption = "Page 4 of 4"
Height = 4035
Index = 3
Left = 390
TabIndex = 17
Top = 330
Width = 5505
Begin Label Label16
BackColor = &H00C0C0C0&
Caption = "Craig Gluck"
Height = 255
Left = 4050
TabIndex = 26
Top = 3630
Width = 1275
End
Begin Label Label15
BackColor = &H00C0C0C0&
Caption = "Bus : (204) 475-7903"
ForeColor = &H00800000&
Height = 195
Left = 330
TabIndex = 25
Top = 3600
Width = 2745
End
Begin Label Label14
BackColor = &H00C0C0C0&
Caption = "FAX : (204) 284-3307"
ForeColor = &H00800000&
Height = 225
Left = 330
TabIndex = 24
Top = 3360
Width = 2685
End
Begin Label Label13
BackColor = &H00C0C0C0&
Caption = "Winnipeg Man. Canada R3M 0T7"
ForeColor = &H00800000&
Height = 225
Left = 330
TabIndex = 23
Top = 3120
Width = 3555
End
Begin Label Label12
BackColor = &H00C0C0C0&
Caption = "1161 McMillan Avenue"
ForeColor = &H00800000&
Height = 225
Left = 330
TabIndex = 22
Top = 2880
Width = 2325
End
Begin Label Label11
BackColor = &H00C0C0C0&
Caption = "Gamesman Inc."
ForeColor = &H00800000&
Height = 225
Left = 330
TabIndex = 21
Top = 2640
Width = 2325
End
Begin Label Label10
BackColor = &H00C0C0C0&
Caption = " A full copy of the VBX (with documentation on a .WRI file) can be ordered for $10.00. (Other arrangements can be made if the source code is required). Please make your cheque out to the following ..."
Height = 1065
Left = 180
TabIndex = 20
Top = 1590
Width = 5085
End
Begin Label Label9
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "This VBX is just a demo version. After pressing any button more than 50 times, the button will disable itself. When I finally figure out how to write a proper ""Dialog About"" box, I'll place those in my demos instead."
Height = 945
Left = 270
TabIndex = 19
Top = 690
Width = 4965
End
Begin Label Label8
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Ordering"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00800000&
Height = 345
Left = 990
TabIndex = 18
Top = 330
Width = 3315
End
End
Sub ctData1_ClickCenter ()
Text1.Text = "Page Up"
End Sub
Sub ctData1_MouseCenter ()
Text1.Text = "Page Up"
End Sub
Sub ctData1_MouseLeft ()
Text1.Text = "Beginning of File"
End Sub
Sub ctData1_MouseRight ()
Text1.Text = "Previous"
End Sub
Sub ctData2_MouseCenter ()
Text1.Text = "Page Down"
End Sub
Sub ctData2_MouseLeft ()
Text1.Text = "Next"
End Sub
Sub ctData2_MouseRight ()
Text1.Text = "End of File"
End Sub
Sub ctData3_ClickLeft ()
DataFrame(1).Visible = False
DataFrame(2).Visible = False
DataFrame(3).Visible = False
DataFrame(0).Visible = True
End Sub
Sub ctData3_ClickRight ()
If DataFrame(1).Visible = True Then
DataFrame(1).Visible = False
DataFrame(0).Visible = True
End If
If DataFrame(2).Visible = True Then
DataFrame(2).Visible = False
DataFrame(1).Visible = True
End If
If DataFrame(3).Visible = True Then
DataFrame(3).Visible = False
DataFrame(2).Visible = True
End If
End Sub
Sub ctData4_ClickLeft ()
If DataFrame(2).Visible = True Then
DataFrame(2).Visible = False
DataFrame(3).Visible = True
End If
If DataFrame(1).Visible = True Then
DataFrame(1).Visible = False
DataFrame(2).Visible = True
End If
If DataFrame(0).Visible = True Then
DataFrame(0).Visible = False
DataFrame(1).Visible = True
End If
End Sub
Sub ctData4_ClickRight ()
DataFrame(0).Visible = False
DataFrame(1).Visible = False
DataFrame(2).Visible = False
DataFrame(3).Visible = True
End Sub
Sub DataFrame_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = ""
End Sub
Sub Form_Load ()
DataFrame(1).Visible = False
DataFrame(2).Visible = False
DataFrame(3).Visible = False
DataFrame(0).Visible = True
End Sub
Sub Frame1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
(.txt)