' VBXpress demo by Zoschke Data GmbH, For demonstration purposes only.
' Last revision 8/16/94
'
' VBX controls by Marquis Computing and Zoschke Data.
'
' All trade names referenced in the demo are
' property of their respective compamies.
Declare Function WinHelp Lib "User" (ByVal hWnd%, ByVal HelpFile$, ByVal HlpCommand%, Dat As Any) As Integer
Const HlpFile$ = "demovbx.hlp"
Const HELP_QUIT = &H2
Const HELP_INDEX = &H3
Sub FileButton1_ButtonPress (Button As Integer, Mouse As Integer)
MsgBox "Choose from the VBXpress Designer's rich 'point & shoot' graphics palettes or create your own graphics with any paint program!", , "Graphics made EASY"
End Sub
Sub FileButton1_DragDrop (Source As Control, X As Single, Y As Single)
MsgBox "This is a horizontal toolbar VBX created with VBXpress. The Style property is set to make it work as 'no wait' command buttons.", , "Horizontal Toolbar"
MsgBox "Create BIG buttons with text and graphics!", , "BIG buttons"
Case 3
MsgBox "Choose from the VBXpress Designer's rich 'point & shoot' graphics palettes or create your own graphics with any paint program!", , "Graphics made EASY"
Case 4
C$ = Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10)
MsgBox "With Marquis Computing's VBXpress Control Designer, you make real VBXs IN MINUTES!" + C$ + "For use with Microsoft Visual Basic and VC++, Borland dBASE for Windows and other Windows languages." + C$ + "No C, CDK or special Windows knowledge required." + C$ + "Just visually design your GUI controls with the designer and create VBXs on the push of a button!" + C$ + "Create sliders, tool bars, floating tool palettes, spin buttons and graphic command buttons THE EASY WAY!" + C$ + "Use and distribute the VBXs you create ROYALTY FREE!" + C$ + "Order your copy of the VBXpress Control Designer TODAY!" + C$ + "Available as English version (AJS Publishing) and German version (Zoschke Data).", , "VBXpress"
Case 5
MsgBox "Mix text & graphics as you need it!", , "BIG buttons"
Case 6
C$ = Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10)
MsgBox "With Marquis Computing's VBXpress Control Designer, you make real VBXs IN MINUTES!" + C$ + "For use with Microsoft Visual Basic and VC++, Borland dBASE for Windows and other Windows languages." + C$ + "No C, CDK or special Windows knowledge required." + C$ + "Just visually design your GUI controls with the designer and create VBXs on the push of a button!" + C$ + "Create sliders, tool bars, floating tool palettes, spin buttons and graphic command buttons THE EASY WAY!" + C$ + "Use and distribute the VBXs you create ROYALTY FREE!" + C$ + "Order your copy of the VBXpress Control Designer TODAY!" + C$ + "Available as English version (AJS Publishing) and German version (Zoschke Data).", , "VBXpress"
End Select
End Sub
Sub mcBigButtons1_DragDrop (Source As Control, X As Single, Y As Single)
MsgBox "This is a horizontal toolbar VBX with some BIG buttons with text and graphics, created with VBXpress.", , "Horizontal Toolbar"
End Sub
Sub mcCommand1_ButtonPress (Button As Integer, Mouse As Integer)
Sub mcCommand1_DragDrop (Source As Control, X As Single, Y As Single)
MsgBox "This is a command button style VBX created with VBXpress.", , "Command Button"
End Sub
Sub mcHorizSlider1_DragDrop (Source As Control, X As Single, Y As Single)
MsgBox "This is a horizontal slider control created with VBXpress.", , "Horizontal Slider"
End Sub
Sub mcHorizSlider1_SliderChange (Value As Long)
Z& = mcHorizSlider1.Value
Bezeichnung2.ForeColor = QBColor(Z& \ 10)
Bezeichnung2.Refresh
End Sub
Sub mcPalette1_ButtonPress (Button As Integer, Mouse As Integer)
Select Case Button
Case 1
mcPalette1.Float = mcPalette1.Float = 0
Case 2
'...
End Select
End Sub
Sub mcPalette1_DragDrop (Source As Control, X As Single, Y As Single)
MsgBox "This is a tool palette VBX created with VBXpress. Click the upper left button to turn the Float property (available for all VBXpress controls) on and off", , "Tool Palette"
End Sub
Sub mcRocker1_DragDrop (Source As Control, X As Single, Y As Single)
MsgBox "This is a rocker button style VBX created with VBXpress.", , "Rocker Button"
End Sub
Sub mcRuler1_DragDrop (Source As Control, X As Single, Y As Single)
MsgBox "This is a horizontal slider control created with VBXpress.", , "Horizontal Slider"
End Sub
Sub mcRuler1_SliderChange (Value As Long)
Bezeichnung1.Width = (Value / 106) * 329
End Sub
Sub mcSpin1_ButtonPress (Button As Integer, Mouse As Integer)
If Button = 1 Then
If Bezeichnung1.FontSize < 20 Then Bezeichnung1.FontSize = Bezeichnung1.FontSize + 1
Else
If Bezeichnung1.FontSize > 10 Then Bezeichnung1.FontSize = Bezeichnung1.FontSize - 1
End If
End Sub
Sub mcSpin1_DragDrop (Source As Control, X As Single, Y As Single)
MsgBox "This is a spin button VBX created with VBXpress.", , "Spin Button"
End Sub
Sub Mixer1_DragDrop (Index As Integer, Source As Control, X As Single, Y As Single)
MsgBox "This is a vertical slider control created with VBXpress. Here it is used in a control array. Instant feedback (NOWAIT) is turned ON.", , "Vertical Slider"
End Sub
Sub Mixer1_SliderChange (Index As Integer, Value As Long)
Sub Schrift1_ButtonPress (Button As Integer, Mouse As Integer)
Select Case Button
Case 1
Schrift1.BtnPtr = Button
Bezeichnung1.FontBold = Schrift1.BtnState
Case 2
Schrift1.BtnPtr = Button
Bezeichnung1.FontItalic = Schrift1.BtnState
Case 3
Schrift1.BtnPtr = Button
Bezeichnung1.FontUnderline = Schrift1.BtnState
End Select
End Sub
Sub Schrift1_DragDrop (Source As Control, X As Single, Y As Single)
MsgBox "This is a horizontal toolbar VBX created with VBXpress. The Style property is set to make it work as option buttons.", , "Horizontal Toolbar"
End Sub
Sub SmallFloppy1_ButtonPress (Button As Integer, Mouse As Integer)
MsgBox "VBXpress comes with buttons for ALL drive types - and many other controls ready to use!", , "Drive Buttons"
End Sub
Sub SmallFloppy1_DragDrop (Source As Control, X As Single, Y As Single)
MsgBox "This is a command button style VBX created with VBXpress.", , "Command Button"
End Sub
Sub zdVUMETER1_DragDrop (Index As Integer, Source As Control, X As Single, Y As Single)
MsgBox "VBXpress slider controls come in handy as fancy meter controls!", , "Meter Controls"
End Sub
Sub ZoDaToolbar1_ButtonPress (Button As Integer, Mouse As Integer)
Select Case Button
Case 1
MsgBox "Zoschke Data's German tool catalog offers plenty of VB-add-ons and help development tools from leading companies (catalog available in Germany, Austria and Switzerland only).", , "Zoschke Data Tool Catalog"
Case 2
MsgBox "ToolKat is Zoschke Data's extended hypertext catalog on disk.", , "Zoschke Data's ToolKat"
Case 3
MsgBox "Zoschke Data GmbH" + Chr$(13) + Chr$(10) + "Bahnhofstr. 3" + Chr$(13) + Chr$(10) + "D-24217 Schoenberg, Germany", , "Zoschke Data Mail Address"
Case 4
MsgBox " (49)4344-6166", , "Zoschke Data Phone"
Case 5
MsgBox " (49)4344-6162", , "Zoschke Data Fax"
End Select
End Sub
Sub ZoDaToolbar1_DragDrop (Source As Control, X As Single, Y As Single)
MsgBox "This is a vertical toolbar VBX created with VBXpress.", , "Vertical Toolbar"