Programming Tool Box

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

/ Programming Tool Box / SIMS_2.iso / vb_code2 / tabframe / tabdemo.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1994-05-20 | 32KB | 595 lines

frmTabDemo TabFrame Demo V1.4 Form15 cmdHelp GSTabFrame1 GSTabFrame E&xamples txtTabIndent txtTabIndent txtTabHeight txtTabHeight txtTabWidth txtTabWidth cboPictPos cboTextOrient picEx % picExBtns cmdNewGroup Add New Group ( cmdNewTab Add New Tab cmdReset Reset GSTabFrame4 GSTabFrame TF(0) wwwwwwwpwwp wwpww wpwwp wwpwwwwwwwp9 cboStyle cboPosition Label32 TabIndent Label31 TabHeight Label30 TabWidth Label29 PicturePosition Label28 TextOrientation Label25 Style Label24 Position GSTabFrame1 GSTabFrame &ToolTips MS Sans Serif picFlag Label27 Move the mouse over a tab and pause - the Country name will appear next to the cursor in a popup window. This is an example of the ToolTip control working with the TabFrame control. For more information about the ToolTip control click on the ToolTip icon in the bottom corner of this tab. GSToolTip1 GSToolTip GSTabFrame5 GSTabFrame United Kingdom GSTabFrame5 GSTabFrame MS Sans Serif United Staes of America GSTabFrame5 GSTabFrame MS Sans Serif Canada GSTabFrame5 GSTabFrame MS Sans Serif Mexico """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" """"" GSTabFrame5 GSTabFrame MS Sans Serif France GSTabFrame5 GSTabFrame MS Sans Serif Germany GSTabFrame5 GSTabFrame MS Sans Serif Italy """"/ """"/ """"/ """"/ """"/ """"/ """"/ """"/ """"/ """"/ """"/ """"/ """"/ """"/ """"/ """"/ """"/ """"/ GSTabFrame5 GSTabFrame MS Sans Serif Norway GSTabFrame5 GSTabFrame MS Sans Serif Sweden GSTabFrame5 GSTabFrame MS Sans Serif Finland GSTabFrame5 GSTabFrame MS Sans Serif Japan GSTabFrame5 GSTabFrame MS Sans Serif Denmark Image1 wwwwwwwwwwwx wwwwwwwwwwwx wwwwwx wwwwwwx wwwwwwx wwwwwwx wwwwwx wwwwwwx wwwwwwx wwwwwwwx wwwwwwwx wwwwwwwwx wwwwwwwwx wwwwwwwwwwwx wwwwwwwwwwwx GSTabFrame1 GSTabFrame &Properties MS Sans Serif GSTabFrame2 GSTabFrame Custom txtpropDesc txtPropDesc cboPropName Label1 Description: Label1 Property: GSTabFrame2 GSTabFrame Standard MS Sans Serif Label4 TabStop Label5 Several of these properties are synchronised across the TabFrame controls which make up a TabSet so that changing the property value for any one of the controls automatically changes the value for all the others. Label4 FontStrikethru Label4 FontSize Label4 Width Label4 Visible Label4 Label4 Label4 TabIndex Label4 Parent Label4 MousePointer Label4 Label4 Index Label4 Label4 HelpContextID Label4 Height Label4 ForeColor Label4 FontUnderline Label4 DragMode Label4 DragIcon Label4 FontName Label4 FontItalic Label4 FontBold Label4 Enabled Label4 ClipControls Label4 Caption Label4 BorderStyle Label4 BackColor Label3 JThe following standard properties are supported by the TabFrame control :- GSTabFrame1 GSTabFrame &Registration MS Sans Serif Label26 JRegistered versions will be sent out by e-mail unless otherwise specified. Label17 ENGLAND Label16 Derbyshire DE6 1PR Label15 Ashbourne Label14 Hognaston Label13 Fellsgarth House Label12 GC Consulting Services Ltd Label11 22) By sending a cheque or money order for 25 to : Label10 \1) Through the SWREG forum on Compuserve. The fee is $39.95 and the registration ID is 2018. Label9 bIf you find the TabFrame control useful you can receive a full version by registering as follows : Label8 This demonstration includes a fully functional version of the TabFrame control which may be used in the Visual Basic development environment only. It cannot be used in conjunction with an EXE file produced from Visual Basic. GSTabFrame1 GSTabFrame &Events MS Sans Serif GSTabFrame3 GSTabFrame Custom cboEventName txtEventDesc txtEventDesc Label1 Event: Label1 Description: GSTabFrame3 GSTabFrame Standard MS Sans Serif Label7 LostFocus Label7 GotFocus Label7 MouseMove Label7 MouseUp Label7 MouseDown Label7 DragOver Label7 DragDrop Label7 DblClick Label7 Click Label6 FThe following standard events are supported by the TabFrame control :- GSTabFrame1 GSTabFrame &General MS Sans Serif Label23 _Switching between tabs in design mode is made simple through the use of the right mouse button. Label22 If you have any comments or suggestions concerning this control then please contact Graham Cockell (Compuserve ID 100113, 2774) via e-mail or on the Compuserve MSBASIC forum. Label21 This demonstration shows some of the capabilities of the TabFrame control including various display styles and the ability to nest one set of TabFrame controls within another - see the Property and Event tabs. Label20 zThis product is distributed as shareware and registration details are provided in this demonstration and in the help file. Label19 The TabFrame control allows you to quikly and easily build a tabbed dialog style user interface, as popularised in Microsoft Word V6.0, using Visual Basic. The TabFrame control handles all the details of which tab should be visible as well as providing a number of other useful features such as 3D effects for child controls. Label18 LFor further details refer to the help file included with this demonstration. Label2 +Click tab with right mouse button to select MS Sans Serif GSTabFrame_Activated$ Index_ GSTabFrame_Deactivated> Cancel Command1_Click cmdClose_Click @ Form_Load cboPropNameb ListIndexu cboEventName Label4_Click. Label10_Click cmdHelp_Click Label2_Click WinHelp{ hWnd% lpHelpFile wCommand dwData frmTabDemoH sHelpFileV GSTabFrame1_Activated cboPropName_Change5 cboPropName_Click, PropDesc Listw txtPropDesc display3 About dialog< which identifies TabFrame version number This? property determines whether appear bottom controlJ cboEventName_Change EventDesc; txtEventDescl cboEventName_Click HelpFilez cboPositionV cboStyle cboPosition_Change cboPosition_Click GSTabFrame4 Position| cboStyle_Change Style cboStyle_Clickj TotalTabs. TabGroup Groups Caption Command2_Clickh Command3_Clickr nIndexA cmdNewTab_ClickV cmdNewGroup_Click cmdReset_Click Active Label2 GSToolTip1_GetToolTip FrmName$ CtlName ToolTip Image1_ClickO frmToolTip^ Screen Width Height! cboTextOrient TextOrientation. cboPos cboPictPos PicturePosition txtTabWidth TabWidth txtTabHeight TabHeight cboTextOrient_Changee TextOrient cboPictPos_Change txtTabWidth_ChangeM TabWidthErr nWidth cboTextOrient_Click2 cboPictPos_Clicky CentreButtons picExBtnsi ClientLeft ClientWidth ClientTop ClientHeight CentreExBtns GSTabFrme GSTabFrame SetTabWidth txtTabWidth_LostFocus2 txtTabWidth_KeyPress KeyAscii SetTabHeight nHeight TabHeightErrt txtTabHeight_ChangeL txtTabHeight_LostFocus txtTabHeight_KeyPress GSTabFrame1 txtTabIndent_Change txtTabIndent_KeyPress SetTabIndent txtTabIndent_LostFocus TabIndentErr txtTabIndent nIndent TabIndentR cboEventName_Click Activated This event occurs whenever a tab becomes active. Deactivated This event occurs before a tab is made inactive and a new tab is made active. The code may cancel the new tab activation if required. cboPictPos_Click cboPosition_Click cboPropName_Click About This property, which is only available at design time, can be used to display the About dialog which identifies the TabFrame version number. Active This property, which is only available at run time, determines if the tab is currently active. ActiveColor This property determines the background color of the active tab. AutoColor If this property is True then the TabFrame control will ensure that all tabs are using the same active and inactive colors. AutoFont If this property is True then the TabFrame control will ensure that all tabs are using the same font and that the caption of the active font will be shown bold. BufferDisplay If this property is True then the TabFrame control will buffer all display output to reduce flicker when selecting a new tab. Chamfer This property determines the size of the chamfer on the corner of the tabs. Child3D This property is used to determine which, if any, of the child controls on the TabFrame are given a 3D effect. ChildBevel This property determines the type of 3D effect (raised or inset) given to selected child controls on the TabFrame ChildBevelWidth This property determines the width of the bevel used to give selected child controls a 3D appearance. FocusTracking If this property is True then the TabFrame will rememeber which control has the focus from one activation to the next. Groups This property, which is only available at runtime, determines the number of TabGroups in the TabSet. InactiveColor This property determines the background color of the inactive tabs. Position This property determines whether the tab appear at the top, bottom, left or right of the TabFrame control. Stagger This property determines the offset between TabGroups. Style This property determines the display style of the TabFrame control. Options include 2D (flat) as well as 3D raised or inset. TabGroup This property determines which TabGroup the TabFrame belongs to. TabHeight This property determines the height of the tab. If set to zero then the TabFrame control will set the height automatically based on the font size. TabNumber This property determines the order, left-to-right, in which the tabs in a TabGroup are displayed. This property array, which is only available at runtime, determines the number of TabFramess in a TabGroup. TabWidth This property determines the width of the tab. If set to zero then the width will be set automatically so that all the tabs in a set of TabFrame controls fill the total width. TotalTabs This property, which is only available at runtime, determines the total number of TabFrames in the TabSet. Picture This property determines the picture (bitmap or icon) which will be displayed on the tab to the left of the caption. TextOrientation This property determines the orientation of the caption text on the tab. PicturePosition This property determines the position of the picture relative to the caption text. ClientLeft This property, which is not available at design time and is read-only at runtime, gives the position of the top left corner of the active tab client area - i.e. the area on which controls may be placed. ClientTop This property, which is not available at design time and is read-only at runtime, gives the position of the top left corner of the active tab client area - i.e. the area on which controls may be placed. ClientWidth This property, which is not available at design time and is read-only at runtime, gives the width of the active tab client area - i.e. the area on which controls may be placed. ClientHeight This property, which is not available at design time and is read-only at runtime, gives the height of the active tab client area - i.e. the area on which controls may be placed. FocusTab This property determines if the tab is given the focus when it is activated. AutoWidth If this property is True then the TabFrame control will ensure that all tabs are the same width. TabIndent This property determines the indent of the first tab from the edge of the TabSet. If the default TabWidth is used for one or more tabs in a group then the indent is also used for the last tab. cboStyle_Click cboTextOrient_Click CentreExBtns cmdHelp_Click cmdNewGroup_Click cmdNewTab_Click cmdReset_Click remove all TabFrames except the first reset TabFrame properties initialise combo/text boxes centre buttons on example formx Form_Load place in centre of screen change selection labeli Click tab with left mouse button to select get help file namer TabFrame.Hlp load property combo box About Active ActiveColor AutoColor AutoFont BufferDisplay Chamfer Child3D ChildBevel ChildBevelWidth FocusTracking Groups InactiveColor Position Stagger Style TabGroup TabHeight TabNumber TabWidth TotalTabs Picture TextOrientation PicturePosition ClientLeft ClientTop ClientWidth ClientHeight FocusTab AutoWidth TabIndent load event combo box Activated Deactivated load position combo box Bottom Right Right (Text out) Left (Top to Bottom) load style combo boxb 3D Active Raised 3D Both Raised 3D Active Inset 3D Both Inset load text orientation combo box Default Horizontal Vertical (Right) Vertical (Left) load picture position combo box Default Left of Text Right of Text Above Text Below Text initialise example GSToolTip1_GetToolTip Image1 Click to show details of the ToolTip control Image1_Click SetTabHeight TabHeight must be numeric SetTabIndent TabIndent must be numeric SetTabWidth TabWidth must be numeric txtTabHeight_KeyPress txtTabHeight_LostFocus txtTabIndent_KeyPress txtTabIndent_LostFocus txtTabWidth_KeyPress txtTabWidth_LostFocus