Programming Tool Box/SIMS_2.iso/demo/vbxpress/vbxpdemo.frm

Text File | 1994-08-15 | 18KB | 489 lines

VERSION 2.00
Begin Form VBXpress_Demo
   BackColor       =   &H00C0C0C0&
   Caption         =   "VBXpress Controls Demo"
   ClientHeight    =   6180
   ClientLeft      =   450
   ClientTop       =   690
   ClientWidth     =   8970
   ClipControls    =   0   'False
   Height          =   6585
   Icon            =   VBXPDEMO.FRX:0000
   Left            =   390
   LinkTopic       =   "Form1"
   ScaleHeight     =   428.98
   ScaleMode       =   0  'Benutzerdefiniert
   ScaleWidth      =   598.936
   Top             =   345
   Width           =   9090
   Begin mcRocker mcRocker1
      BtnPtr          =   1
      BtnState        =   0
      Float           =   0   'False
      Height          =   360
      Left            =   7590
      Style           =   4
      TabIndex        =   20
      Top             =   4680
      Width           =   735
      z_f             =   -1
   End
   Begin zdHelp zdHelp1
      BtnPtr          =   1
      BtnState        =   0
      DragIcon        =   VBXPDEMO.FRX:0302
      DragMode        =   1  'Automatisch
      Float           =   0   'False
      Height          =   345
      Left            =   8535
      Style           =   0
      TabIndex        =   19
      Top             =   101
      Width           =   375
      z_f             =   -1
   End
   Begin ZoDaToolbar ZoDaToolbar1
      BtnPtr          =   1
      BtnState        =   0
      Float           =   0   'False
      Height          =   2565
      Left            =   255
      Style           =   1
      TabIndex        =   18
      Top             =   2220
      Width           =   510
      z_f             =   -1
   End
   Begin Mixer Mixer1
      BodyClick       =   0   'False
      BtnPtr          =   1
      BtnState        =   0
      Clicks          =   0   'False
      Float           =   0   'False
      Height          =   1980
      Index           =   1
      Left            =   5790
      MaxVal          =   100
      MinVal          =   0
      Style           =   1
      TabIndex        =   17
      Top             =   2130
      Value           =   0
      Width           =   375
      z_f             =   -1
   End
   Begin Mixer Mixer1
      BodyClick       =   0   'False
      BtnPtr          =   1
      BtnState        =   0
      Clicks          =   0   'False
      Float           =   0   'False
      Height          =   1980
      Index           =   0
      Left            =   5310
      MaxVal          =   100
      MinVal          =   0
      Style           =   1
      TabIndex        =   16
      Top             =   2130
      Value           =   0
      Width           =   375
      z_f             =   -1
   End
   Begin zdVUMETER zdVUMETER1
      BtnPtr          =   1
      BtnState        =   0
      Float           =   0   'False
      Height          =   930
      Index           =   1
      Left            =   3105
      MaxVal          =   100
      MinVal          =   0
      Style           =   1
      TabIndex        =   15
      Top             =   2160
      Value           =   0
      Width           =   1755
      z_f             =   -1
   End
   Begin zdVUMETER zdVUMETER1
      BtnPtr          =   1
      BtnState        =   0
      Float           =   0   'False
      Height          =   930
      Index           =   0
      Left            =   1245
      MaxVal          =   100
      MinVal          =   0
      Style           =   1
      TabIndex        =   14
      Top             =   2160
      Value           =   0
      Width           =   1755
      z_f             =   -1
   End
   Begin mcRuler mcRuler1
      BodyClick       =   0   'False
      BtnPtr          =   1
      BtnState        =   0
      Clicks          =   0   'False
      Float           =   0   'False
      Height          =   435
      Left            =   45
      MaxVal          =   106
      MinVal          =   0
      Style           =   1
      TabIndex        =   10
      Top             =   90
      Value           =   0
      Width           =   4935
      z_f             =   -1
   End
   Begin FileButton FileButton1
      BtnPtr          =   1
      BtnState        =   0
      Float           =   0   'False
      Height          =   345
      Left            =   7680
      Style           =   1
      TabIndex        =   9
      Top             =   101
      Width           =   765
      z_f             =   -1
   End
   Begin mcCommand mcCommand1
      BtnPtr          =   1
      BtnState        =   0
      Float           =   0   'False
      Height          =   645
      Left            =   7455
      Style           =   0
      TabIndex        =   8
      Top             =   5250
      Width           =   1155
      z_f             =   -1
   End
   Begin mcBigButtons mcBigButtons1
      BtnPtr          =   1
      BtnState        =   0
      Float           =   0   'False
      Height          =   1125
      Left            =   405
      Style           =   0
      TabIndex        =   7
      Top             =   4920
      Width           =   6765
      z_f             =   -1
   End
   Begin mcSpin mcSpin1
      BtnPtr          =   1
      BtnState        =   0
      Float           =   0   'False
      Height          =   375
      Left            =   5340
      Style           =   7
      TabIndex        =   6
      Top             =   870
      Width           =   210
      z_f             =   -1
   End
   Begin mcPalette mcPalette1
      BorderStyle     =   1  'nicht Σnderbar, einfach
      BtnPtr          =   1
      BtnState        =   0
      Caption         =   "Tool Palette"
      Float           =   -1  'True
      Height          =   1680
      Left            =   6570
      Style           =   0
      TabIndex        =   5
      TabStop         =   0   'False
      Top             =   1995
      Width           =   1395
      z_f             =   -1
   End
   Begin Recorder Recorder1
      BtnPtr          =   1
      BtnState        =   0
      Float           =   0   'False
      Height          =   450
      Left            =   1245
      Style           =   1
      TabIndex        =   4
      Top             =   3255
      Width           =   3615
      z_f             =   -1
   End
   Begin Schrift Schrift1
      BtnPtr          =   1
      BtnState        =   0
      Float           =   0   'False
      Height          =   345
      Left            =   6360
      Style           =   2
      TabIndex        =   3
      Top             =   101
      Width           =   1140
      z_f             =   -1
   End
   Begin mcHorizSlider mcHorizSlider1
      BodyClick       =   0   'False
      BtnPtr          =   1
      BtnState        =   0
      Clicks          =   0   'False
      Float           =   0   'False
      Height          =   555
      Left            =   1170
      MaxVal          =   150
      MinVal          =   0
      Style           =   1
      TabIndex        =   2
      Top             =   4020
      Value           =   0
      Width           =   3240
      z_f             =   -1
   End
   Begin Format Format1
      BtnPtr          =   1
      BtnState        =   0
      Float           =   0   'False
      Height          =   345
      Left            =   5025
      Style           =   4
      TabIndex        =   1
      Top             =   101
      Width           =   1140
      z_f             =   -1
   End
   Begin SmallFloppy SmallFloppy1
      BtnPtr          =   1
      BtnState        =   0
      Float           =   0   'False
      Height          =   255
      Left            =   7710
      Style           =   0
      TabIndex        =   0
      Top             =   4095
      Width           =   480
      z_f             =   -1
   End
   Begin Label Bezeichnung1
      Caption         =   " kgklfdglfd dkjfhgfdkj gfdkjhhg fdgkjhghhdjfg fdjhgjhfdk djfkhgjfdh fdjhgjfdh dfjhgfd jdf gjfdhgfdj jhdfgjhfd   jfdghfdj dfjhgfd fdjhgjdjfhgf "
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1170
      Left            =   45
      TabIndex        =   12
      Top             =   615
      Width           =   4605
   End
   Begin Label Bezeichnung3
      BorderStyle     =   1  'nicht Σnderbar, einfach
      Height          =   1230
      Left            =   0
      TabIndex        =   13
      Top             =   585
      Width           =   5010
   End
   Begin Label Bezeichnung2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Demo Under Construction"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Serif"
      FontSize        =   24
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FFFF00&
      Height          =   1140
      Left            =   5790
      TabIndex        =   11
      Top             =   720
      Width           =   2955
   End
End
DefInt A-Z

' 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"
End Sub

Sub Form_Load ()
   Me.Left = 0
   Me.Top = 0
   mcRuler1.Value = 106
   Mixer1(0).Value = 100
   Mixer1(1).Value = 100
End Sub

Sub Form_Unload (Cancel As Integer)
   X% = WinHelp(VBXpress_Demo.hWnd, HlpFile$, HELP_QUIT, 0&)

End Sub

Sub Format1_ButtonPress (Button As Integer, Mouse As Integer)
Bezeichnung1.Alignment = Button - 1
End Sub

Sub Format1_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 toggle buttons.", , "Horizontal Toolbar"
End Sub

Sub mcBigButtons1_ButtonPress (Button As Integer, Mouse As Integer)
Select Case Button
Case 1
   X% = WinHelp(VBXpress_Demo.hWnd, HlpFile$, HELP_INDEX, 0&)
Case 2
   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)
X% = WinHelp(VBXpress_Demo.hWnd, HlpFile$, HELP_QUIT, 0&)
End
End Sub

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)
   zdVUMETER1(Index).Value = 100 - Mixer1(Index).Value
End Sub

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"
End Sub