Programmer 7500

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

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / FOLDER / FOLDERS.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1994-05-30 | 20.7 KB | 611 lines

VERSION 2.00 Begin Form Form1 BorderStyle = 3 'Fixed Double Caption = "Tab Test" ClientHeight = 4815 ClientLeft = 1380 ClientTop = 2055 ClientWidth = 7110 Height = 5220 KeyPreview = -1 'True Left = 1320 LinkTopic = "Form1" ScaleHeight = 4815 ScaleWidth = 7110 Top = 1710 Width = 7230 Begin Frame Frm Caption = "Misc2" Height = 3615 Index = 5 Left = 1200 TabIndex = 3 Top = 1800 Width = 4575 Begin CommandButton Command2 Caption = "&Quit" Height = 495 Left = 2040 TabIndex = 29 Top = 2400 Width = 735 End Begin Label Label15 BackColor = &H00C0C0C0& Caption = "No VBXs" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 5 Left = 480 TabIndex = 49 Top = 960 Width = 3000 End Begin Label Label15 BackColor = &H00C0C0C0& Caption = "No DLLs" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 4 Left = 480 TabIndex = 48 Top = 1200 Width = 3000 End Begin Label Label15 BackColor = &H00C0C0C0& Caption = "Completely customizable" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 3 Left = 480 TabIndex = 47 Top = 1440 Width = 3000 End Begin Label Label15 BackColor = &H00C0C0C0& Caption = "No fees or licenses" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 2 Left = 480 TabIndex = 46 Top = 1680 Width = 3000 End Begin Label Label15 BackColor = &H00C0C0C0& Caption = "Piece of Cake" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 1 Left = 480 TabIndex = 45 Top = 1920 Width = 3000 End Begin Label Label15 BackColor = &H00C0C0C0& Caption = "It's all done with code!" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 0 Left = 240 TabIndex = 44 Top = 600 Width = 3000 End End Begin Frame Frm Caption = "Step 1" Height = 1575 Index = 1 Left = 3120 TabIndex = 6 Top = 2760 Width = 3015 Begin PictureBox Picture1 Height = 255 Left = 120 ScaleHeight = 225 ScaleWidth = 945 TabIndex = 28 Top = 2040 Width = 975 End Begin Frame Frame3 Caption = "Step 1" Height = 975 Left = 3360 TabIndex = 25 Top = 1920 Width = 1215 Begin HScrollBar HScroll1 Height = 255 Left = 120 TabIndex = 41 Top = 600 Width = 975 End Begin DriveListBox Drive1 Height = 315 Left = 120 TabIndex = 40 Top = 240 Width = 975 End End Begin Frame Frame2 Caption = "Misc" Height = 855 Left = 1920 TabIndex = 24 Top = 1920 Width = 1335 Begin OptionButton Option1 Caption = "Option2" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 1 Left = 120 TabIndex = 39 Top = 480 Width = 855 End Begin OptionButton Option1 Caption = "Option1" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 0 Left = 120 TabIndex = 38 Top = 240 Width = 855 End End Begin Frame Frame1 Caption = "Brag" Height = 975 Left = 960 TabIndex = 23 Top = 2040 Width = 1095 Begin CommandButton Command3 Caption = "xyz" Height = 255 Left = 360 TabIndex = 37 Top = 360 Width = 375 End End Begin Label Label10 BackColor = &H00C0C0C0& Caption = "Add whatever controls are appropriate to each Frame." Height = 495 Index = 1 Left = 120 TabIndex = 36 Top = 1320 Width = 4575 End Begin Label Label10 BackColor = &H00C0C0C0& Caption = "Set the Caption property of each Frame to be the name for the folder tab." Height = 495 Index = 0 Left = 120 TabIndex = 27 Top = 840 Width = 4575 End Begin Label Label9 BackColor = &H00C0C0C0& Caption = "Create multiple Frame controls as an array. Also create one PictureBox." Height = 495 Left = 120 TabIndex = 26 Top = 360 Width = 4575 End End Begin Frame Frm Caption = "Step 3" Height = 2175 Index = 3 Left = 5520 TabIndex = 2 Top = 2160 Width = 2775 Begin Label Label14 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "That's it!" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 495 Left = 240 TabIndex = 43 Top = 1560 Width = 4335 End Begin Label Label13 BackColor = &H00C0C0C0& Caption = "Start the program with the DefineFolders function." Height = 255 Left = 240 TabIndex = 42 Top = 600 Width = 4335 End End Begin Frame Frm Caption = "Step 2" Height = 2055 Index = 2 Left = 5640 TabIndex = 0 Top = 1920 Width = 2415 Begin Frame Frame4 BackColor = &H00808080& Caption = "Brag" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1575 Left = 2400 TabIndex = 30 Top = 1320 Width = 1935 End Begin Label Label12 BackColor = &H00C0C0C0& Caption = "Font" ForeColor = &H000000FF& Height = 255 Index = 3 Left = 240 TabIndex = 35 Top = 1200 Width = 1815 End Begin Label Label12 BackColor = &H00C0C0C0& Caption = "Location" ForeColor = &H000000FF& Height = 255 Index = 2 Left = 240 TabIndex = 34 Top = 1440 Width = 1815 End Begin Label Label12 BackColor = &H00C0C0C0& Caption = "Size" ForeColor = &H000000FF& Height = 255 Index = 1 Left = 240 TabIndex = 33 Top = 1680 Width = 855 End Begin Label Label12 BackColor = &H00C0C0C0& Caption = "Background color" ForeColor = &H000000FF& Height = 255 Index = 0 Left = 240 TabIndex = 32 Top = 960 Width = 1815 End Begin Label Label11 BackColor = &H00C0C0C0& Caption = "Set the desired folder properties on the first frame only, including:" Height = 495 Left = 120 TabIndex = 31 Top = 480 Width = 4575 End End Begin Frame Frm Caption = "Misc1" Height = 1485 Index = 4 Left = 5640 TabIndex = 5 Top = 4080 Width = 2805 Begin CommandButton Command1 Caption = "&Goto tab #" Height = 375 Left = 240 TabIndex = 8 Top = 2520 Width = 1215 End Begin TextBox Text2 Height = 315 Left = 1680 TabIndex = 7 Text = "0" Top = 2520 Width = 285 End Begin Label Label7 BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "GotoFolder" FontBold = 0 'False FontItalic = 0 'False FontName = "Courier New" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Left = 120 TabIndex = 21 Top = 1680 Width = 1335 End Begin Label Label5 BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "TightenForm" FontBold = 0 'False FontItalic = 0 'False FontName = "Courier New" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Left = 120 TabIndex = 19 Top = 840 Width = 1455 End Begin Label Label8 BackColor = &H00C0C0C0& Caption = "Allows instant jumping to the selected folder (try it):" Height = 495 Left = 120 TabIndex = 22 Top = 1920 Width = 4335 End Begin Label Label6 BackColor = &H00C0C0C0& Caption = "This moves the folder to the top left of the window, and adjusts the windows to the tightest size." Height = 495 Left = 120 TabIndex = 20 Top = 1080 Width = 4575 End Begin Label Label4 BackColor = &H00C0C0C0& Caption = "Some of the other functions available are:" Height = 255 Left = 120 TabIndex = 18 Top = 480 Width = 4575 End End Begin Frame Frm BackColor = &H00C0C0C0& Caption = "Brag" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 3135 Index = 0 Left = 120 TabIndex = 4 Top = 120 Width = 4815 Begin Label Label2 BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "If KeyCode = &&H22 Then NextFolder" FontBold = 0 'False FontItalic = 0 'False FontName = "Courier New" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 2 Left = 120 TabIndex = 16 Top = 2520 Width = 4575 End Begin Label Label3 BackColor = &H00C0C0C0& BackStyle = 0 'Transparent Caption = "Other misc. lines handle some of the show-off stuff." Height = 255 Left = 120 TabIndex = 10 Top = 2880 Width = 4575 End Begin Label Label2 BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "If KeyCode = &&H21 Then PrevFolder" FontBold = 0 'False FontItalic = 0 'False FontName = "Courier New" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 3 Left = 120 TabIndex = 17 Top = 2280 Width = 4575 End Begin Label Label1 BackColor = &H00C0C0C0& Caption = "Two lines handle the PGUP/PGDN functions." Height = 255 Index = 3 Left = 120 TabIndex = 15 Top = 2040 Width = 4575 End Begin Label Label2 BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "FolderClick Button, X, Y" FontBold = 0 'False FontItalic = 0 'False FontName = "Courier New" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 1 Left = 120 TabIndex = 14 Top = 1680 Width = 4575 End Begin Label Label2 BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Success=DefineFolders(4,Frm(0),FTabs)" FontBold = 0 'False FontItalic = 0 'False FontName = "Courier New" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 0 Left = 120 TabIndex = 13 Top = 1080 Width = 4575 End Begin Label Label1 BackColor = &H00C0C0C0& Caption = "One line handles the clicking on the tabs." Height = 255 Index = 2 Left = 120 TabIndex = 12 Top = 1440 Width = 4575 End Begin Label Label1 BackColor = &H00C0C0C0& Caption = "One line created the folders. " Height = 255 Index = 1 Left = 120 TabIndex = 11 Top = 840 Width = 4575 End Begin Label Label1 BackColor = &H00C0C0C0& Caption = "These folders were added to this form with only a few lines of code." Height = 375 Index = 0 Left = 120 TabIndex = 9 Top = 360 Width = 4575 End End Begin PictureBox FTabs Height = 1095 Left = 3360 ScaleHeight = 1065 ScaleWidth = 2625 TabIndex = 1 Top = 240 Width = 2655 End Option Explicit Sub Command1_Click () GotoFolder (CInt(Text2.Text)) End Sub Sub Command2_Click () End End Sub Sub Form_KeyDown (KeyCode As Integer, Shift As Integer) If KeyCode = &H21 Then PrevFolder If KeyCode = &H22 Then NextFolder End Sub Sub Form_Load () Dim Success As Integer Success = DefineFolders(4, Frm(0), FTabs) TightenForm End Sub Sub FTabs_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) FolderClick Button, X, Y End Sub