Chip 2002 June

home *** CD-ROM | disk | FTP | other *** search

/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / cmdbtnx5.msi / Cabs.w1.cab / General.frm (.txt) < prev next >

Wrap

Visual Basic Form | 2001-08-01 | 23.4 KB | 705 lines

VERSION 5.00 Object = "{20976770-692B-4564-84B5-CCC822AA2B7A}#1.2#0"; "CMDBTNX5.OCX" Begin VB.Form frmGeneral BorderStyle = 3 'Fixed Dialog Caption = "General Demonstration" ClientHeight = 7170 ClientLeft = 630 ClientTop = 510 ClientWidth = 9285 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Icon = "General.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 478 ScaleMode = 3 'Pixel ScaleWidth = 619 ShowInTaskbar = 0 'False StartUpPosition = 2 'CenterScreen Begin VB.Frame Frame4 Caption = "Events:" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1770 Left = 4635 TabIndex = 32 Top = 3555 Width = 2175 Begin VB.TextBox txtNum Height = 285 Index = 5 Left = 180 TabIndex = 36 Top = 1215 Width = 1185 End Begin VB.CheckBox chkFirePushTimer Caption = "FirePushTimer" Height = 285 Left = 180 TabIndex = 34 Top = 630 Width = 1545 End Begin VB.CheckBox chkFireDblClick Caption = "FireDblClick" Height = 285 Left = 180 TabIndex = 33 Top = 315 Value = 1 'Checked Width = 1545 End Begin VB.Label lblHdr AutoSize = -1 'True Caption = "PushTimerInterval:" Height = 195 Index = 12 Left = 180 TabIndex = 35 Top = 990 Width = 1365 End End Begin CommandButtonXCtl.CommandButtonX btnGroup Height = 915 Index = 0 Left = 6930 TabIndex = 39 Top = 5130 Width = 1050 _ExtentX = 1852 _ExtentY = 1614 DropDownPicture = "General.frx":014A Checked = -1 'True Caption = "" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Picture = "General.frx":01CC End Begin CommandButtonXDemo.pucTextTip pucSimpleTip1 Height = 2355 Left = 6930 Top = 2655 Width = 2175 _ExtentX = 3836 _ExtentY = 4154 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Text = $"General.frx":04E6 End Begin VB.Frame Frame3 Caption = "General:" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 4425 Left = 135 TabIndex = 0 Top = 900 Width = 2175 Begin VB.CheckBox chkActiveBorder Caption = "ActiveBorder" Height = 285 Left = 180 TabIndex = 12 Top = 3960 Width = 1275 End Begin VB.CheckBox chkDefaultHighlight Caption = "DefaultHighlight" Height = 285 Left = 180 TabIndex = 11 Top = 3645 Value = 1 'Checked Width = 1545 End Begin VB.CheckBox chkChecked Caption = "Checked" Height = 285 Left = 180 TabIndex = 10 Top = 3330 Width = 1185 End Begin VB.TextBox txtNum Height = 285 Index = 4 Left = 180 TabIndex = 9 Top = 2925 Width = 1185 End Begin VB.ComboBox cboStyle Height = 315 ItemData = "General.frx":058A Left = 180 List = "General.frx":0597 Style = 2 'Dropdown List TabIndex = 3 Top = 900 Width = 1815 End Begin VB.ComboBox cboBorderStyle Height = 315 ItemData = "General.frx":05CB Left = 180 List = "General.frx":05E1 Style = 2 'Dropdown List TabIndex = 5 Top = 1575 Width = 1815 End Begin VB.ComboBox cboFocusStyle Height = 315 ItemData = "General.frx":0638 Left = 180 List = "General.frx":0648 Style = 2 'Dropdown List TabIndex = 7 Top = 2250 Width = 1815 End Begin VB.CheckBox chkEnabled Caption = "Enabled" Height = 285 Left = 180 TabIndex = 1 Top = 315 Value = 1 'Checked Width = 1185 End Begin VB.Label lblHdr AutoSize = -1 'True Caption = "BorderWidth:" Height = 195 Index = 11 Left = 180 TabIndex = 8 Top = 2700 Width = 960 End Begin VB.Label lblHdr AutoSize = -1 'True Caption = "Style:" Height = 195 Index = 0 Left = 180 TabIndex = 2 Top = 675 Width = 420 End Begin VB.Label lblHdr AutoSize = -1 'True Caption = "BorderStyle:" Height = 195 Index = 1 Left = 180 TabIndex = 4 Top = 1350 Width = 900 End Begin VB.Label lblHdr AutoSize = -1 'True Caption = "FocusStyle:" Height = 195 Index = 6 Left = 180 TabIndex = 6 Top = 2025 Width = 840 End End Begin VB.Frame Frame2 Caption = "Picture Related:" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 2580 Left = 4635 TabIndex = 25 Top = 900 Width = 2175 Begin VB.TextBox txtNum Height = 285 Index = 3 Left = 180 TabIndex = 31 Top = 1845 Width = 1185 End Begin VB.TextBox txtNum Height = 285 Index = 2 Left = 180 TabIndex = 29 Top = 1215 Width = 1185 End Begin VB.ComboBox cboAlignmentEx Height = 315 Index = 1 ItemData = "General.frx":0693 Left = 180 List = "General.frx":06B2 Style = 2 'Dropdown List TabIndex = 27 Top = 540 Width = 1815 End Begin VB.Label lblHdr AutoSize = -1 'True Caption = "PictureOffsetY:" Height = 195 Index = 10 Left = 180 TabIndex = 30 Top = 1620 Width = 1110 End Begin VB.Label lblHdr AutoSize = -1 'True Caption = "PictureOffsetX:" Height = 195 Index = 9 Left = 180 TabIndex = 28 Top = 990 Width = 1110 End Begin VB.Label lblHdr AutoSize = -1 'True Caption = "PictureAlignment:" Height = 195 Index = 3 Left = 180 TabIndex = 26 Top = 315 Width = 1260 End End Begin VB.Frame Frame1 Caption = "Caption Related:" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 4425 Left = 2385 TabIndex = 13 Top = 900 Width = 2175 Begin VB.CheckBox chkWordWrap Caption = "WordWrap" Height = 285 Left = 180 TabIndex = 24 Top = 3780 Value = 1 'Checked Width = 1545 End Begin VB.TextBox txtNum Height = 285 Index = 1 Left = 180 TabIndex = 23 Top = 3330 Width = 1185 End Begin VB.TextBox txtNum Height = 285 Index = 0 Left = 180 TabIndex = 21 Top = 2700 Width = 1185 End Begin VB.ComboBox cboAlignmentEx Height = 315 Index = 0 ItemData = "General.frx":0758 Left = 180 List = "General.frx":0777 Style = 2 'Dropdown List TabIndex = 19 Top = 2025 Width = 1815 End Begin VB.ComboBox cboAlignment Height = 315 ItemData = "General.frx":081D Left = 180 List = "General.frx":082A Style = 2 'Dropdown List TabIndex = 17 Top = 1350 Width = 1815 End Begin VB.TextBox txtField Height = 510 Left = 180 MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 15 Top = 495 Width = 1815 End Begin VB.Label lblHdr AutoSize = -1 'True Caption = "CaptionOffsetY:" Height = 195 Index = 8 Left = 180 TabIndex = 22 Top = 3105 Width = 1170 End Begin VB.Label lblHdr AutoSize = -1 'True Caption = "CaptionOffsetX:" Height = 195 Index = 7 Left = 180 TabIndex = 20 Top = 2475 Width = 1170 End Begin VB.Label lblHdr AutoSize = -1 'True Caption = "CaptionAlignment:" Height = 195 Index = 2 Left = 180 TabIndex = 18 Top = 1800 Width = 1320 End Begin VB.Label lblHdr AutoSize = -1 'True Caption = "Alignment:" Height = 195 Index = 5 Left = 180 TabIndex = 16 Top = 1125 Width = 765 End Begin VB.Label lblHdr AutoSize = -1 'True Caption = "Caption:" Height = 195 Index = 4 Left = 180 TabIndex = 14 Top = 270 Width = 615 End End Begin CommandButtonXCtl.CommandButtonX cmdxDemo Height = 1500 Left = 6930 TabIndex = 37 Top = 1035 Width = 2175 _ExtentX = 3836 _ExtentY = 2646 WordWrap = -1 'True DropDownPicture = "General.frx":0852 OLEDropMode = 1 PictureAlignment= 3 Caption = "Demo" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Picture = "General.frx":08D4 End Begin CommandButtonXDemo.pucEventList evlDemo Height = 1635 Left = 135 TabIndex = 38 Top = 5400 Width = 6675 _ExtentX = 11774 _ExtentY = 2884 AboutVisible = -1 'True ExitVisible = -1 'True End Begin CommandButtonXCtl.CommandButtonX btnGroup Height = 915 Index = 1 Left = 8055 TabIndex = 41 Top = 5130 Width = 1050 _ExtentX = 1852 _ExtentY = 1614 DropDownPicture = "General.frx":0A2E Caption = "" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Picture = "General.frx":0AB0 End Begin CommandButtonXCtl.CommandButtonX btnGroup Height = 915 Index = 2 Left = 6930 TabIndex = 40 Top = 6120 Width = 1050 _ExtentX = 1852 _ExtentY = 1614 DropDownPicture = "General.frx":0DCA Caption = "" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Picture = "General.frx":0E4C End Begin CommandButtonXCtl.CommandButtonX btnGroup Height = 915 Index = 3 Left = 8055 TabIndex = 42 Top = 6120 Width = 1050 _ExtentX = 1852 _ExtentY = 1614 DropDownPicture = "General.frx":1166 Caption = "" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Picture = "General.frx":11E8 End Begin CommandButtonXDemo.pucLogoPane LogoPane1 Align = 1 'Align Top Height = 780 Left = 0 Top = 0 Width = 9285 _ExtentX = 16378 _ExtentY = 1376 Picture = "General.frx":1502 End Attribute VB_Name = "frmGeneral" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit DefInt A-Z '--------------------------------------------------------------- 'Name : SetProperty 'Created : 06/09/2000 20:46 '--------------------------------------------------------------- 'Author : Richard James Moss 'Organisation: Ariad Software '--------------------------------------------------------------- 'Description : Sets the properties of all demonstration buttons '--------------------------------------------------------------- 'Updates : '--------------------------------------------------------------- ' Ariad Procedure Builder Add-In 1.00.0036 Public Sub SetProperty(PropertyName$, Value As Variant) Attribute SetProperty.VB_Description = "Sets the properties of all demonstration buttons" '##BLOCK_DESCRIPTION Sets the properties of all demonstration buttons Dim Btn As Control For Each Btn In Controls If TypeOf Btn Is CommandButtonX Then CallByName Btn, PropertyName$, VbLet, Value End If Next End Sub '(Public) Sub SetProperty () Private Sub btnGroup_Click(Index As Integer) Dim I For I = 0 To btnGroup.UBound btnGroup(I).Checked = (Index = I) Next End Sub Private Sub cboAlignment_Click() SetProperty "Alignment", cboAlignment.ListIndex End Sub Private Sub cboAlignmentEx_Click(Index As Integer) Select Case Index Case 0: SetProperty "CaptionAlignment", cboAlignmentEx(Index).ListIndex Case 1: SetProperty "PictureAlignment", cboAlignmentEx(Index).ListIndex End Select End Sub Private Sub cboBorderStyle_Click() SetProperty "BorderStyle", cboBorderStyle.ListIndex End Sub Private Sub cboFocusStyle_Click() SetProperty "FocusStyle", cboFocusStyle.ListIndex End Sub Private Sub cboStyle_Click() SetProperty "Style", cboStyle.ListIndex End Sub Private Sub chkActiveBorder_Click() SetProperty "ActiveBorder", chkActiveBorder End Sub Private Sub chkChecked_Click() cmdxDemo.Checked = chkChecked End Sub Private Sub chkDefaultHighlight_Click() SetProperty "DefaultHighlight", chkDefaultHighlight End Sub Private Sub chkEnabled_Click() SetProperty "Enabled", chkEnabled End Sub Private Sub chkFireDblClick_Click() SetProperty "FireDblClick", chkFireDblClick End Sub Private Sub chkFirePushTimer_Click() SetProperty "FirePushTimer", chkFirePushTimer End Sub Private Sub chkWordWrap_Click() SetProperty "WordWrap", chkWordWrap End Sub Private Sub cmdxDemo_Click() evlDemo.Add "Click" End Sub Private Sub cmdxDemo_DblClick() evlDemo.Add "DblClick" End Sub Private Sub cmdxDemo_GotFocus() evlDemo.Add "GotFocus" End Sub Private Sub cmdxDemo_KeyDown(KeyCode As Integer, Shift As Integer) evlDemo.Add "KeyDown", KeyCode, Shift End Sub Private Sub cmdxDemo_KeyPress(KeyAscii As Integer) evlDemo.Add "KeyPress", KeyAscii End Sub Private Sub cmdxDemo_KeyUp(KeyCode As Integer, Shift As Integer) evlDemo.Add "KeyUp", KeyCode, Shift End Sub Private Sub cmdxDemo_LostFocus() evlDemo.Add "LostFocus" End Sub Private Sub cmdxDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) evlDemo.Add "MouseDown", Button, Shift, X, Y End Sub Private Sub cmdxDemo_MouseEnter() evlDemo.Add "MouseEnter" End Sub Private Sub cmdxDemo_MouseExit() evlDemo.Add "MouseExit" End Sub Private Sub cmdxDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) evlDemo.Add "MouseUp", Button, Shift, X, Y End Sub Private Sub cmdxDemo_PushTimer() evlDemo.Add "PushTimer" End Sub Private Sub evlDemo_AboutClicked() cmdxDemo.About End Sub Private Sub evlDemo_ExitClicked() Unload Me End Sub Private Sub Form_Load() With cmdxDemo .AutoRedraw = False cboStyle.ListIndex = .Style cboBorderStyle.ListIndex = .BorderStyle cboAlignmentEx(0).ListIndex = .CaptionAlignment cboAlignmentEx(1).ListIndex = .PictureAlignment cboAlignment.ListIndex = .Alignment cboFocusStyle.ListIndex = .FocusStyle txtField = "CommandButtonX" & vbCrLf & "Version 5.0" txtNum(0) = .CaptionOffsetX txtNum(1) = .CaptionOffsetY txtNum(2) = .PictureOffsetX txtNum(3) = .PictureOffsety txtNum(4) = .BorderWidth txtNum(5) = .PushTimerInterval .AutoRedraw = True End With End Sub Private Sub txtField_Change() cmdxDemo.Caption = txtField End Sub Private Sub txtNum_Change(Index As Integer) Select Case Index Case 0: SetProperty "CaptionOffsetX", Val(txtNum(Index)) Case 1: SetProperty "CaptionOffsetY", Val(txtNum(Index)) Case 2: SetProperty "PictureOffsetX", Val(txtNum(Index)) Case 3: SetProperty "PictureOffsety", Val(txtNum(Index)) Case 4: SetProperty "BorderWidth", Val(txtNum(Index)) Case 5: SetProperty "PushTimerInterval", Val(txtNum(Index)) End Select End Sub