home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 41 / IOPROG_41.ISO / soft / delphi / NCTDesignBox2.exe / Main / frmStepV1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-09-29  |  4.9 KB  |  149 lines
  1. VERSION 5.00
  2. Object = "{489F6F86-FA5F-46C1-9154-0BDFE98E2B02}#1.0#0"; "NCTDesignBox.ocx"
  3. Begin VB.Form frmStepV1 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Test StepButtonVer01"
  6.    ClientHeight    =   3390
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   6210
  10.    Icon            =   "frmStepV1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3390
  15.    ScaleWidth      =   6210
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin NCTDesignBox.StepButtonVer01 StepButtonVer011 
  18.       Height          =   1500
  19.       Left            =   330
  20.       TabIndex        =   9
  21.       Top             =   330
  22.       Width           =   1500
  23.       _ExtentX        =   2646
  24.       _ExtentY        =   2646
  25.    End
  26.    Begin VB.HScrollBar HScroll1 
  27.       Height          =   825
  28.       LargeChange     =   5
  29.       Left            =   2160
  30.       Max             =   1000
  31.       TabIndex        =   8
  32.       Top             =   2310
  33.       Width           =   3705
  34.    End
  35.    Begin VB.Frame Frame2 
  36.       Caption         =   "BtnBorder"
  37.       Height          =   945
  38.       Left            =   210
  39.       TabIndex        =   0
  40.       Top             =   2220
  41.       Width           =   1815
  42.       Begin VB.OptionButton Option2 
  43.          Caption         =   "Single"
  44.          Height          =   285
  45.          Left            =   210
  46.          TabIndex        =   2
  47.          Top             =   540
  48.          Width           =   1155
  49.       End
  50.       Begin VB.OptionButton Option1 
  51.          Caption         =   "None"
  52.          Height          =   225
  53.          Left            =   210
  54.          TabIndex        =   1
  55.          Top             =   270
  56.          Value           =   -1  'True
  57.          Width           =   1245
  58.       End
  59.    End
  60.    Begin VB.Label Label1 
  61.       Alignment       =   2  'Center
  62.       Caption         =   "BtnClick Event"
  63.       Height          =   450
  64.       Left            =   2250
  65.       TabIndex        =   7
  66.       Top             =   210
  67.       Width           =   3900
  68.    End
  69.    Begin VB.Label Label2 
  70.       Alignment       =   2  'Center
  71.       Caption         =   "BtnMouseDown Event"
  72.       Height          =   330
  73.       Left            =   2250
  74.       TabIndex        =   6
  75.       Top             =   660
  76.       Width           =   3900
  77.    End
  78.    Begin VB.Label Label3 
  79.       Alignment       =   2  'Center
  80.       Caption         =   "BtnMouseUp Event"
  81.       Height          =   330
  82.       Left            =   2250
  83.       TabIndex        =   5
  84.       Top             =   990
  85.       Width           =   3900
  86.    End
  87.    Begin VB.Label Label4 
  88.       Alignment       =   2  'Center
  89.       Caption         =   "BtnMouseMove Event"
  90.       Height          =   330
  91.       Left            =   2250
  92.       TabIndex        =   4
  93.       Top             =   1320
  94.       Width           =   3900
  95.    End
  96.    Begin VB.Label Label5 
  97.       Alignment       =   2  'Center
  98.       Caption         =   "ValueChange Event"
  99.       Height          =   330
  100.       Left            =   2250
  101.       TabIndex        =   3
  102.       Top             =   1680
  103.       Width           =   3900
  104.    End
  105. Attribute VB_Name = "frmStepV1"
  106. Attribute VB_GlobalNameSpace = False
  107. Attribute VB_Creatable = False
  108. Attribute VB_PredeclaredId = True
  109. Attribute VB_Exposed = False
  110. Private Sub HScroll1_Change()
  111.     HScroll1_Scroll
  112. End Sub
  113. Private Sub HScroll1_Scroll()
  114.     If StepButtonVer011.Value < HScroll1.Value Then
  115.         StepButtonVer011.ScrollPlus
  116.     Else
  117.         StepButtonVer011.ScrollMinus
  118.         'StepButtonVer011.ScrollMinus
  119.     End If
  120.     StepButtonVer011.Value = HScroll1.Value
  121.     'StepButtonVer011_ValueChange HScroll1.Value
  122. End Sub
  123. Private Sub Option1_Click()
  124.     StepButtonVer011.BtnBorder = bbNone
  125.     StepButtonVer011.Top = 330
  126.     StepButtonVer011.Left = 330
  127. End Sub
  128. Private Sub Option2_Click()
  129.     StepButtonVer011.BtnBorder = bbSingle
  130.     StepButtonVer011.Top = 150
  131.     StepButtonVer011.Left = 150
  132. End Sub
  133. Private Sub StepButtonVer011_MouseClick(Btn As Boolean)
  134.     Label1.Caption = "MouseClick Event(Btn = " & Btn & ")"
  135. End Sub
  136. Private Sub StepButtonVer011_MouseDown(MouseButton As Integer, Btn As Boolean)
  137.     Label2.Caption = "MouseDown Event(MouseBtn = " & MouseButton & " Btn = " & Btn & ")"
  138. End Sub
  139. Private Sub StepButtonVer011_MouseMove(MouseButton As Integer, Btn As Boolean)
  140.     Label4.Caption = "MouseMove Event(MouseBtn = " & MouseButton & " Btn = " & Btn & ")"
  141. End Sub
  142. Private Sub StepButtonVer011_MouseUp(MouseButton As Integer, Btn As Boolean)
  143.     Label3.Caption = "MouseUp Event(MouseBtn = " & MouseButton & " Btn = " & Btn & ")"
  144. End Sub
  145. Private Sub StepButtonVer011_ValueChange(ByVal Value As Double)
  146.     HScroll1.Value = Value
  147.     Label5.Caption = "ValueChange Event (Val = " & Format(Value, "0.##0") & ")"
  148. End Sub
  149.