SuperHack/SuperHack CD.bin/CODING/VBASIC/KNOBVB25.ZIP/VB.ZIP/KSHAPE.FRM

Visual Basic Form | 1996-01-17 | 9.7 KB | 301 lines

VERSION 2.00
Begin Form Shapedemo
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Knob Shape Properties Demo"
   ClientHeight    =   3660
   ClientLeft      =   1695
   ClientTop       =   1500
   ClientWidth     =   5415
   FontBold        =   -1  'True
   FontItalic      =   0   'False
   FontName        =   "Arial"
   FontSize        =   8.25
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   Height          =   4065
   Left            =   1635
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   3660
   ScaleWidth      =   5415
   Top             =   1155
   Width           =   5535
   Begin Frame Frame4
      BackColor       =   &H00C0C0C0&
      Caption         =   "Knob Color"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1170
      Left            =   3120
      TabIndex        =   9
      Top             =   435
      Width           =   1305
      Begin Label HColors
         BackColor       =   &H00000000&
         Height          =   225
         Index           =   0
         Left            =   285
         TabIndex        =   18
         Top             =   330
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H00808080&
         Height          =   225
         Index           =   5
         Left            =   735
         TabIndex        =   17
         Top             =   555
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H00FFFFFF&
         Height          =   225
         Index           =   1
         Left            =   510
         TabIndex        =   16
         Top             =   330
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H000000FF&
         Height          =   225
         Index           =   6
         Left            =   285
         TabIndex        =   15
         Top             =   780
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H0000FF00&
         Height          =   225
         Index           =   2
         Left            =   735
         TabIndex        =   14
         Top             =   330
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H0000FFFF&
         Height          =   225
         Index           =   7
         Left            =   510
         TabIndex        =   13
         Top             =   780
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H00FF0000&
         Height          =   225
         Index           =   3
         Left            =   285
         TabIndex        =   12
         Top             =   555
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H00FF00FF&
         Height          =   225
         Index           =   8
         Left            =   735
         TabIndex        =   11
         Top             =   780
         Width           =   225
      End
      Begin Label HColors
         BackColor       =   &H000080FF&
         Height          =   225
         Index           =   4
         Left            =   510
         TabIndex        =   10
         Top             =   555
         Width           =   225
      End
   End
   Begin Frame Frame2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Knob Style"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1110
      Left            =   3120
      TabIndex        =   3
      Top             =   1725
      Width           =   2100
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Circle"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Index           =   0
         Left            =   180
         TabIndex        =   8
         Top             =   315
         Width           =   900
      End
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Pointer"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Index           =   1
         Left            =   180
         TabIndex        =   7
         Top             =   525
         Width           =   900
      End
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Complex"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Index           =   2
         Left            =   180
         TabIndex        =   6
         Top             =   735
         Width           =   900
      End
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Faucet"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Index           =   3
         Left            =   1080
         TabIndex        =   5
         Top             =   315
         Width           =   900
      End
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "User"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Index           =   4
         Left            =   1080
         TabIndex        =   4
         Top             =   525
         Width           =   900
      End
   End
   Begin KNOB Knob1
      Angle           =   0
      AutoRedraw      =   -1  'True
      AVersion        =   2.5
      BackgroundColor =   &H00C0C0C0&
      BevelInner      =   1  ' 1 - Raised
      BevelOuter      =   2  ' 2 - Inset
      BevelWidth      =   2
      BorderType      =   1  ' 1 - Bevel
      BorderWidth     =   2
      Digital         =   0   'False
      DigitalColor    =   &H00000000&
      DigitalDecimals =   0
      DigitalFontID   =   0
      DigitalX        =   0
      DigitalY        =   0
      FontID          =   0
      FrameColor      =   &H00000000&
      FrameScaleX     =   0
      FrameScaleY     =   0
      FrameStyle      =   0  ' 0 - None
      Height          =   2595
      KnobColor       =   &H00808080&
      KnobMultiTurn   =   0   'False
      KnobMultiTurnValue=   0
      KnobRadius      =   0.6
      KnobSnap        =   0   'False
      KnobSnapIncrement=   1
      KnobStyle       =   0  ' 0 - Cicular
      KnobUserDefined =   "0,1000,200,800,50,700,500,-600,0,-500,-500,-600,-50,700,-200,800"
      KnobValue       =   0
      Left            =   135
      MarkUserDefined =   ""
      MouseControl    =   -1  'True
      OutlineAlign    =   0  ' 0 - Left
      OutlineColor    =   &H00000000&
      OutlineTitle    =   ""
      OutlineWidth    =   0
      Radius          =   0
      TabIndex        =   2
      Top             =   120
      Value           =   0
      Width           =   2760
      XScale          =   0
      YScale          =   0
      ZLoad           =   KSHAPE.FRX:0000
   End
   Begin TextBox Text1
      Height          =   585
      Left            =   180
      MultiLine       =   -1  'True
      TabIndex        =   0
      Text            =   "0,1000,200,800,50,700,500,-600,0,-500,-500,-600,-50,700,-200,800"
      Top             =   2985
      Width           =   5085
   End
   Begin Label Label1
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "KnobUserDefined (x,y pair list)"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   210
      Index           =   4
      Left            =   180
      TabIndex        =   1
      Top             =   2745
      Width           =   2490
   End
Sub Form_Load ()
    option2(knob1.KnobStyle) = True
    text1 = knob1.KnobUserDefined
End Sub
Sub HColors_Click (index As Integer)
    knob1.KnobColor = HColors(index).BackColor
End Sub
Sub Option2_Click (index As Integer)
    knob1.KnobStyle = index
End Sub
Sub Text1_Change ()
    knob1.KnobUserDefined = text1
End Sub