Programmer 7500

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

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / FERRAMEN / VBXSTD12 / PICBTN.FR_ / PICBTN.FRM

(.txt)

Wrap

Visual Basic Form | 1994-08-23 | 21.8 KB | 683 lines

VERSION 2.00 Begin Form PicBtnDemo BackColor = &H00C0C0C0& Caption = "VBPicBtn demo..." ClientHeight = 3936 ClientLeft = 888 ClientTop = 1524 ClientWidth = 6420 Height = 4356 Left = 840 LinkTopic = "Form3" ScaleHeight = 3936 ScaleWidth = 6420 Top = 1152 Width = 6516 Begin VBPicBtn VBPicBtn17 AlwaysRepaint = 0 'False BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00C0C0C0& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 264 Help = &H00000000& Left = 5604 OnOffMode = -1 'True PictureDown = PICBTN.FRX:0000 PictureFocus = PICBTN.FRX:0182 PictureUp = PICBTN.FRX:0304 RadioMode = -1 'True ShowBorder = 0 'False ShowFocus = -1 'True TabIndex = 19 Top = 2616 UseSystemColors = 0 'False UseTranspBitmap = 0 'False Prop32 = &H00000000& Width = 288 XMargin = 5 YMargin = 5 Prop30 = 2154 End Begin VBPicBtn VBPicBtn16 AlwaysRepaint = 0 'False BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00C0C0C0& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 264 Help = &H00000000& Left = 5268 OnOffMode = -1 'True PictureDown = PICBTN.FRX:0486 PictureFocus = PICBTN.FRX:0608 PictureUp = PICBTN.FRX:078A RadioMode = -1 'True ShowBorder = 0 'False ShowFocus = -1 'True TabIndex = 18 Top = 2616 UseSystemColors = 0 'False UseTranspBitmap = 0 'False Prop32 = &H00000000& Width = 288 XMargin = 5 YMargin = 5 Prop30 = 2154 End Begin VBPicBtn VBPicBtn15 AlwaysRepaint = 0 'False BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00C0C0C0& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 264 Help = &H00000000& Left = 4932 OnOffMode = -1 'True PictureDown = PICBTN.FRX:090C PictureFocus = PICBTN.FRX:0A8E PictureUp = PICBTN.FRX:0C10 RadioMode = -1 'True ShowBorder = 0 'False ShowFocus = -1 'True TabIndex = 17 Top = 2616 UseSystemColors = 0 'False UseTranspBitmap = 0 'False Prop32 = &H00000000& Width = 288 XMargin = 5 YMargin = 5 Prop30 = 2154 End Begin VBPicBtn VBPicBtn14 AlwaysRepaint = 0 'False BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00C0C0C0& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 264 Help = &H00000000& Left = 3912 OnOffMode = -1 'True PictureDown = PICBTN.FRX:0D92 PictureFocus = PICBTN.FRX:0F14 PictureUp = PICBTN.FRX:1096 RadioMode = 0 'False ShowBorder = 0 'False ShowFocus = -1 'True TabIndex = 16 Top = 2616 UseSystemColors = 0 'False UseTranspBitmap = 0 'False Prop32 = &H00000000& Width = 288 XMargin = 5 YMargin = 5 Prop30 = 2154 End Begin VBPicBtn VBPicBtn13 AlwaysRepaint = 0 'False BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00C0C0C0& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 264 Help = &H00000000& Left = 2904 OnOffMode = 0 'False PictureDown = PICBTN.FRX:1218 PictureFocus = PICBTN.FRX:139A PictureUp = PICBTN.FRX:151C RadioMode = 0 'False ShowBorder = 0 'False ShowFocus = -1 'True TabIndex = 15 Top = 2616 UseSystemColors = 0 'False UseTranspBitmap = 0 'False Prop32 = &H00000000& Width = 288 XMargin = 5 YMargin = 5 Prop30 = 2154 End Begin VBPicBtn VBPicBtn12 AlwaysRepaint = 0 'False BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00C0C0C0& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 264 Help = &H00000000& Left = 2568 OnOffMode = 0 'False PictureDown = PICBTN.FRX:169E PictureFocus = PICBTN.FRX:1820 PictureUp = PICBTN.FRX:19A2 RadioMode = 0 'False ShowBorder = 0 'False ShowFocus = -1 'True TabIndex = 14 Top = 2616 UseSystemColors = 0 'False UseTranspBitmap = 0 'False Prop32 = &H00000000& Width = 288 XMargin = 5 YMargin = 5 Prop30 = 2154 End Begin VBPicBtn VBPicBtn11 AlwaysRepaint = 0 'False BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00C0C0C0& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 264 Help = &H00000000& Left = 2220 OnOffMode = 0 'False PictureDown = PICBTN.FRX:1B24 PictureFocus = PICBTN.FRX:1CA6 PictureUp = PICBTN.FRX:1E28 RadioMode = 0 'False ShowBorder = 0 'False ShowFocus = -1 'True TabIndex = 13 Top = 2616 UseSystemColors = 0 'False UseTranspBitmap = 0 'False Prop32 = &H00000000& Width = 288 XMargin = 5 YMargin = 5 Prop30 = 2154 End Begin VBPicBtn VBPicBtn10 AlwaysRepaint = 0 'False BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00C0C0C0& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 264 Help = &H00000000& Left = 1884 OnOffMode = 0 'False PictureDown = PICBTN.FRX:1FAA PictureFocus = PICBTN.FRX:212C PictureUp = PICBTN.FRX:22AE RadioMode = 0 'False ShowBorder = 0 'False ShowFocus = -1 'True TabIndex = 12 Top = 2616 UseSystemColors = 0 'False UseTranspBitmap = 0 'False Prop32 = &H00000000& Width = 288 XMargin = 5 YMargin = 5 Prop30 = 2154 End Begin VBText VBText3 Autosizing = 0 'False BackColor = 4 'Light grey (pure) Caption = "You can give customised buttons..." ForeColor = &H00000000& Frame3D = 0 'None Height = 252 Help = &H00000000& HorizAlignment = 2 'Left Left = 228 Multiline = 0 'False Style3D = 0 'None TabIndex = 11 TabStop = 0 'False Top = 2208 Prop18 = &H00000000& VerticalAlignment= 0 'Centre Width = 3096 Prop17 = 2154 End Begin VBPicBtn VBPicBtn9 AlwaysRepaint = 0 'False BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00000000& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 732 Help = &H00000000& Left = 4992 OnOffMode = 0 'False PictureDown = PICBTN.FRX:2430 PictureFocus = PICBTN.FRX:254A PictureUp = PICBTN.FRX:2664 RadioMode = 0 'False ShowBorder = -1 'True ShowFocus = -1 'True TabIndex = 10 Top = 1164 UseSystemColors = 0 'False UseTranspBitmap = 0 'False Prop32 = &H00000000& Width = 888 XMargin = 5 YMargin = 5 Prop30 = 2154 End Begin VBPicBtn VBPicBtn8 AlwaysRepaint = 0 'False BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00000000& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 732 Help = &H00000000& Left = 4008 OnOffMode = 0 'False PictureDown = PICBTN.FRX:277E PictureFocus = PICBTN.FRX:2930 PictureUp = PICBTN.FRX:2AE2 RadioMode = 0 'False ShowBorder = -1 'True ShowFocus = -1 'True TabIndex = 9 Top = 1164 UseSystemColors = 0 'False UseTranspBitmap = 0 'False Prop32 = &H00000000& Width = 888 XMargin = 5 YMargin = 5 Prop30 = 2154 End Begin VBPicBtn VBPicBtn7 AlwaysRepaint = 0 'False BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00000000& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 732 Help = &H00000000& Left = 3036 OnOffMode = 0 'False PictureDown = PICBTN.FRX:2C94 PictureFocus = PICBTN.FRX:2E0A PictureUp = PICBTN.FRX:2F80 RadioMode = 0 'False ShowBorder = -1 'True ShowFocus = -1 'True TabIndex = 8 Top = 1164 UseSystemColors = 0 'False UseTranspBitmap = 0 'False Prop32 = &H00000000& Width = 888 XMargin = 5 YMargin = 5 Prop30 = 2154 End Begin VBPicBtn VBPicBtn6 AlwaysRepaint = 0 'False BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00000000& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 732 Help = &H00000000& Left = 2064 OnOffMode = 0 'False PictureDown = PICBTN.FRX:30F6 PictureFocus = PICBTN.FRX:3314 PictureUp = PICBTN.FRX:3532 RadioMode = 0 'False ShowBorder = -1 'True ShowFocus = -1 'True TabIndex = 7 Top = 1164 UseSystemColors = 0 'False UseTranspBitmap = 0 'False Prop32 = &H00000000& Width = 888 XMargin = 5 YMargin = 5 Prop30 = 2154 End Begin VBText VBText2 Autosizing = 0 'False BackColor = 4 'Light grey (pure) Caption = "For selections..." ForeColor = &H00000000& Frame3D = 0 'None Height = 300 Help = &H00000000& HorizAlignment = 2 'Left Left = 228 Multiline = 0 'False Style3D = 0 'None TabIndex = 6 TabStop = 0 'False Top = 1080 Prop18 = &H00000000& VerticalAlignment= 0 'Centre Width = 1644 Prop17 = 2154 End Begin VBText VBText1 Autosizing = 0 'False BackColor = 4 'Light grey (pure) Caption = "You can use VBPicBtn as a radio button:" ForeColor = &H00000000& Frame3D = 0 'None Height = 276 Help = &H00000000& HorizAlignment = 2 'Left Left = 168 Multiline = 0 'False Style3D = 0 'None TabIndex = 5 TabStop = 0 'False Top = 564 Prop18 = &H00000000& VerticalAlignment= 0 'Centre Width = 3588 Prop17 = 2154 End Begin VBPicBtn VBPicBtn5 AlwaysRepaint = -1 'True BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00C0C0C0& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 240 Help = &H00000000& Left = 5580 OnOffMode = -1 'True PictureDown = PICBTN.FRX:3750 PictureFocus = PICBTN.FRX:390A PictureUp = PICBTN.FRX:3AC4 RadioMode = -1 'True ShowBorder = 0 'False ShowFocus = 0 'False TabIndex = 4 Top = 576 UseSystemColors = 0 'False UseTranspBitmap = -1 'True Prop32 = &H00000000& Width = 300 XMargin = 5 YMargin = 5 Prop30 = 2154 End Begin VBPicBtn VBPicBtn4 AlwaysRepaint = -1 'True BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00C0C0C0& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 240 Help = &H00000000& Left = 5232 OnOffMode = -1 'True PictureDown = PICBTN.FRX:3C7E PictureFocus = PICBTN.FRX:3E38 PictureUp = PICBTN.FRX:3FF2 RadioMode = -1 'True ShowBorder = 0 'False ShowFocus = 0 'False TabIndex = 3 Top = 576 UseSystemColors = 0 'False UseTranspBitmap = -1 'True Prop32 = &H00000000& Width = 300 XMargin = 5 YMargin = 5 Prop30 = 2154 End Begin VBPicBtn VBPicBtn3 AlwaysRepaint = -1 'True BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00C0C0C0& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 240 Help = &H00000000& Left = 4896 OnOffMode = -1 'True PictureDown = PICBTN.FRX:41AC PictureFocus = PICBTN.FRX:4366 PictureUp = PICBTN.FRX:4520 RadioMode = -1 'True ShowBorder = 0 'False ShowFocus = 0 'False TabIndex = 2 Top = 576 UseSystemColors = 0 'False UseTranspBitmap = -1 'True Prop32 = &H00000000& Width = 300 XMargin = 5 YMargin = 5 Prop30 = 2154 End Begin VBPicBtn VBPicBtn2 AlwaysRepaint = -1 'True BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00C0C0C0& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 240 Help = &H00000000& Left = 4572 OnOffMode = -1 'True PictureDown = PICBTN.FRX:46DA PictureFocus = PICBTN.FRX:4894 PictureUp = PICBTN.FRX:4A4E RadioMode = -1 'True ShowBorder = 0 'False ShowFocus = 0 'False TabIndex = 1 Top = 576 UseSystemColors = 0 'False UseTranspBitmap = -1 'True Prop32 = &H00000000& Width = 300 XMargin = 5 YMargin = 5 Prop30 = 2154 End Begin VBPicBtn VBPicBtn1 AlwaysRepaint = -1 'True BackColor = &H00C0C0C0& BitmapHeight = 20 BitmapWidth = 20 ButtonState = 0 'False CornersColor = &H00C0C0C0& DisplayMode = 2 'Centre HandCursor = 0 'False Height = 240 Help = &H00000000& Left = 4248 OnOffMode = -1 'True PictureDown = PICBTN.FRX:4C08 PictureFocus = PICBTN.FRX:4DC2 PictureUp = PICBTN.FRX:4F7C RadioMode = -1 'True ShowBorder = 0 'False ShowFocus = 0 'False TabIndex = 0 Top = 576 UseSystemColors = 0 'False UseTranspBitmap = -1 'True Prop32 = &H00000000& Width = 300 XMargin = 5 YMargin = 5 Prop30 = 2154 End Sub Form_Load () VBPicBtn1.SetState = True VBPicBtn16.SetState = True End Sub Sub VBPicBtn1_Click () If VBPicBtn1.ButtonState = True Then If VBPicBtn2.ButtonState = True Then VBPicBtn2.SetState = False End If If VBPicBtn3.ButtonState = True Then VBPicBtn3.SetState = False End If If VBPicBtn4.ButtonState = True Then VBPicBtn4.SetState = False End If If VBPicBtn5.ButtonState = True Then VBPicBtn5.SetState = False End If End If End Sub Sub VBPicBtn15_Click () If VBPicBtn15.ButtonState = True Then If VBPicBtn16.ButtonState = True Then VBPicBtn16.SetState = False End If If VBPicBtn17.ButtonState = True Then VBPicBtn17.SetState = False End If End If End Sub Sub VBPicBtn16_Click () If VBPicBtn16.ButtonState = True Then If VBPicBtn15.ButtonState = True Then VBPicBtn15.SetState = False End If If VBPicBtn17.ButtonState = True Then VBPicBtn17.SetState = False End If End If End Sub Sub VBPicBtn17_Click () If VBPicBtn17.ButtonState = True Then If VBPicBtn15.ButtonState = True Then VBPicBtn15.SetState = False End If If VBPicBtn16.ButtonState = True Then VBPicBtn16.SetState = False End If End If End Sub Sub VBPicBtn2_Click () If VBPicBtn2.ButtonState = True Then If VBPicBtn1.ButtonState = True Then VBPicBtn1.SetState = False End If If VBPicBtn3.ButtonState = True Then VBPicBtn3.SetState = False End If If VBPicBtn4.ButtonState = True Then VBPicBtn4.SetState = False End If If VBPicBtn5.ButtonState = True Then VBPicBtn5.SetState = False End If End If End Sub Sub VBPicBtn3_Click () If VBPicBtn3.ButtonState = True Then If VBPicBtn1.ButtonState = True Then VBPicBtn1.SetState = False End If If VBPicBtn2.ButtonState = True Then VBPicBtn2.SetState = False End If If VBPicBtn4.ButtonState = True Then VBPicBtn4.SetState = False End If If VBPicBtn5.ButtonState = True Then VBPicBtn5.SetState = False End If End If End Sub Sub VBPicBtn4_Click () If VBPicBtn4.ButtonState = True Then If VBPicBtn1.ButtonState = True Then VBPicBtn1.SetState = False End If If VBPicBtn2.ButtonState = True Then VBPicBtn2.SetState = False End If If VBPicBtn3.ButtonState = True Then VBPicBtn3.SetState = False End If If VBPicBtn5.ButtonState = True Then VBPicBtn5.SetState = False End If End If End Sub Sub VBPicBtn5_Click () If VBPicBtn5.ButtonState = True Then If VBPicBtn1.ButtonState = True Then VBPicBtn1.SetState = False End If If VBPicBtn2.ButtonState = True Then VBPicBtn2.SetState = False End If If VBPicBtn3.ButtonState = True Then VBPicBtn3.SetState = False End If If VBPicBtn4.ButtonState = True Then VBPicBtn4.SetState = False End If End If End Sub