Programming Tool Box

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

/ Programming Tool Box / SIMS_2.iso / demo / btdemo / miscform.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-02-27 | 25.6 KB | 681 lines

VERSION 2.00 Begin Form MiscForm BackColor = &H00808000& BorderStyle = 0 'None Caption = "Miscellaneous ButtonTool Properties" ClientHeight = 5325 ClientLeft = 1605 ClientTop = 735 ClientWidth = 6135 ControlBox = 0 'False FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 7.5 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 5730 Left = 1545 LinkMode = 1 'Source LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 5325 ScaleWidth = 6135 Top = 390 Width = 6255 Begin BTDEMOButton Panel1 Prop24 = &H00404000& Prop25 = &H00C0C000& Prop23 = 0 BackColor = &H00000000& ButtonDown = 0 'No effect FontColor = &H00808000& Height = 5304 Left = 12 ShadowBackColor = &H00C00000& ShadowForeColor = &H00800000& SymBackColor = &H00808000& SymForeColor = &H00800000& TabIndex = 0 Top = 0 Width = 6120 Begin BTDEMOButton Panel2 Prop24 = &H00404000& Prop25 = &H00C0C000& Prop23 = 1 BackColor = &H00808000& BorderThickness = 0 ButtonDown = 0 'No effect FontColor = &H00404000& Height = 2952 Left = 180 ShadowBackColor = &H00808000& ShadowForeColor = &H00404000& SymBackColor = &H00808000& SymForeColor = &H00808000& TabIndex = 1 Top = 2184 Width = 5712 Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "ToggleMode" Height = 312 Index = 21 Left = 3780 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 24 Top = 2484 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "SymWidth" Height = 312 Index = 19 Left = 180 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00C0C000& TabIndex = 22 Top = 2472 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "Toggled" Height = 312 Index = 20 Left = 3780 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 23 Top = 2124 Width = 1752 End Begin BTDEMOButton BTButton2 Prop25 = &H00808080& BackColor = &H00808080& ButtonDown = 2 'Invert 3-D colors FontColor = &H00C0C0C0& Height = 720 Left = 1995 ShowFocus = 0 'False SymForeColor = &H00007F00& SymPicDown = MISCFORM.FRX:0000 SymPicUp = MISCFORM.FRX:03DE SymType = 1 SymXRatio = 80 SymYRatio = 80 TabIndex = 30 Top = 2130 Width = 1710 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "SymType" Height = 312 Index = 18 Left = 180 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 21 Top = 2112 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "SymPicDown" Height = 288 Index = 17 Left = 3780 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 20 Top = 1800 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "SymPicUp" Height = 288 Index = 16 Left = 1980 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 19 Top = 1800 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "SymHeight" Height = 288 Index = 15 Left = 180 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 18 Top = 1788 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "SymForeColor" Height = 288 Index = 14 Left = 3780 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 17 Top = 1476 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "SymBackColor" Height = 288 Index = 13 Left = 1968 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 16 Top = 1476 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "Sym3D" Height = 288 Index = 12 Left = 180 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 15 Top = 1464 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "ShowFocus" Height = 288 Index = 11 Left = 3780 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 14 Top = 1152 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "ShadowThickness" Height = 288 Index = 10 Left = 1968 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 13 Top = 1152 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "ShadowForeColor" Height = 288 Index = 9 Left = 180 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 12 Top = 1140 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "ShadowBackColor" Height = 300 Index = 8 Left = 3780 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 11 Top = 828 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "FontColor" Height = 288 Index = 7 Left = 1980 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 10 Top = 828 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "CaptionJustify" Height = 288 Index = 6 Left = 180 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 9 Top = 816 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "ButtonDown" Height = 288 Index = 5 Left = 3780 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 8 Top = 504 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "BorderColor" Height = 288 Index = 4 Left = 1980 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 7 Top = 516 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "Autosize" Height = 288 Index = 3 Left = 180 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 6 Top = 492 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "3DThickness" Height = 288 Index = 2 Left = 3780 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 5 Top = 180 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "3DShadeColor" Height = 288 Index = 1 Left = 1980 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00FFFFFF& TabIndex = 4 Top = 180 Width = 1752 End Begin BTDEMOButton MiscButton1 Prop24 = &H00C0C000& Prop25 = &H00404040& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 Caption = "3DLightColor" Height = 288 Index = 0 Left = 180 ShadowBackColor = &H007F7F00& ShadowForeColor = &H00424242& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00C0C000& TabIndex = 3 Top = 168 Width = 1752 End End Begin BTDEMOButton PropLabel Prop24 = &H00404000& Prop25 = &H00C0C000& Prop23 = 1 BackColor = &H00000080& BorderThickness = 0 ButtonDown = 0 'No effect FontColor = &H00000080& Height = 468 Left = 180 ShadowBackColor = &H0000FF00& ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00808000& TabIndex = 29 Top = 1596 Width = 5712 End Begin BTDEMOButton Panel3 Prop24 = &H00404000& Prop25 = &H00C0C000& Prop23 = 1 BackColor = &H00808000& BorderThickness = 0 ButtonDown = 0 'No effect Enabled = 0 'False FontColor = &H00404000& Height = 1380 Left = 192 SymBackColor = &H00808000& SymForeColor = &H00404000& TabIndex = 2 Top = 156 Width = 5712 Begin BTDEMOButton BTButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 ButtonDown = 0 'No effect Caption = " properties click the buttons in the panel below." CaptionJustify = 0 'Left Height = 288 Index = 10 Left = 72 ShowFocus = 0 'False SymBackColor = &H00808000& TabIndex = 28 Top = 984 Width = 5448 End Begin BTDEMOButton BTButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 ButtonDown = 0 'No effect Caption = " thing on this form is a button. For a description of the various" CaptionJustify = 0 'Left Height = 288 Index = 9 Left = 72 ShowFocus = 0 'False SymBackColor = &H00808000& TabIndex = 27 Top = 684 Width = 5448 End Begin BTDEMOButton BTButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 ButtonDown = 0 'No effect Caption = " are designed to provide powerful visual effects. In fact every- " CaptionJustify = 0 'Left Height = 288 Index = 8 Left = 72 ShowFocus = 0 'False SymBackColor = &H00808000& TabIndex = 26 Top = 396 Width = 5448 End Begin BTDEMOButton BTButton1 Prop24 = &H00C0C000& Prop25 = &H00404000& Prop23 = 1 BackColor = &H00000000& BorderThickness = 0 ButtonDown = 0 'No effect Caption = " ButtonTool makes available a number of new properties that" CaptionJustify = 0 'Left Height = 288 Index = 7 Left = 72 ShowFocus = 0 'False SymBackColor = &H00808000& SymForeColor = &H00C0C000& TabIndex = 25 Top = 96 Width = 5448 End End End Sub BTButton2_Click () Unload MiscForm End Sub Sub MiscButton1_Click (Index As Integer) Untoggle (Index) If (Index = 0) Then PropLabel.Caption = "Sets 3D color for the left and top" End If If (Index = 1) Then PropLabel.Caption = "Sets 3D color for the bottom and right" End If If (Index = 2) Then PropLabel.Caption = "Sets thickness of the 3D effect" End If If (Index = 3) Then PropLabel.Caption = "Button automatically resizes graphic" End If If (Index = 4) Then PropLabel.Caption = "Sets color of the border" End If If (Index = 5) Then PropLabel.Caption = "Sets special effect for button when down" End If If (Index = 6) Then PropLabel.Caption = "Left, center and right justification" End If If (Index = 7) Then PropLabel.Caption = "Sets font color for the caption" End If If (Index = 8) Then PropLabel.Caption = "Sets color of the shadow background" End If If (Index = 9) Then PropLabel.Caption = "Sets color of the shadow foreground" End If If (Index = 10) Then PropLabel.Caption = "Sets thickness of the shadow effect" End If If (Index = 11) Then PropLabel.Caption = "Sets focus effect to displayed or not-displayed" End If If (Index = 12) Then PropLabel.Caption = "Sets 3D effect to ON or OFF" End If If (Index = 13) Then PropLabel.Caption = "Sets color for the symbol background" End If If (Index = 14) Then PropLabel.Caption = "Sets color for the symbol foreground" End If If (Index = 15) Then PropLabel.Caption = "Sets height of the symbol" End If If (Index = 16) Then PropLabel.Caption = "Sets picture used by symbol when up (icon,bitmap,metafile)" End If If (Index = 17) Then PropLabel.Caption = "Sets picture used by symbol when pressed (icon,bitmap,metafile)" End If If (Index = 18) Then PropLabel.Caption = "Sets symbol type (none,predefined,graphic)" End If If (Index = 19) Then PropLabel.Caption = "Sets width of the symbol" End If If (Index = 20) Then PropLabel.Caption = "Sets toggle effec to to ON or OFF" End If If (Index = 21) Then PropLabel.Caption = "Allows manual setting of toggle (UP or DOWN)" End If End Sub Sub OKButton_Click () MiscForm.Hide End Sub