Declare Function SendMessage& Lib "User" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, lParam As Any)
Sub Form_Load ()
nl = Chr$(13) & Chr$(10)
Initialize
LoadText
End Sub
Sub Form_Resize ()
Dim i%
If windowstate <> 1 Then
TabResize Me, -1, -1, tabbox, invbox, page(), tb
ResizeTextboxes
End If
End Sub
Sub Initialize ()
numpages = 6 'set to highest index (total-1)
'===create an array of controls =========================
ReDim page(0 To numpages)
For i = 0 To numpages: Set page(i) = f3d(i): Next
'===fill in the fields of the struct=====================
tb.num = numpages 'number of tabs
tb.active = 0 'initial focus
tb.cols = 4 'number of tabs in each row
tb.orient = tabsup '0 = up, 1 = down
tb.left = 0
tb.top = 0
tb.Width = 0
tb.Height = 0
'for resizable forms, set a minimum for a page h,w
tb.minwidth = 4095
tb.minheight = 2535
DefineControl Me, tabbox, invbox, page(), tb
End Sub
Sub LoadText ()
Dim s$
s$ = " This sample shows how to create a tab control on a sizable Form."
s = s & " The initial width of the window and the tab control is still determined by the design-time size of Page(0), but if the window is resized, the tab control and each of the pages will be resized to fit the window."
s = s & nl & nl
s = s & " The window can be maximized and minimized."
s = s & " If the window is resized too small to allow display of the tab captions, the window size is reset to a minimum size."
s = s & " The default minimum width is the width needed for the display of the captions; the default minimum height is set (in TabResize()) to tab control height + 20 pixels."
s = s & " You may specify larger sizes by setting tb.minwidth and tb.minheight before calling DefineControl()."
s = s & nl & nl
s = s & " The tab control will resize the tabs and pages(), but it does not resize the controls on each page()."
s = s & " You must do this in response to one of the resize events."
s = s & " This sample uses textboxes for the display of text so that a scrolling functionality can be enabled as needed, and it resizes them in response to form_resize."
t(0) = s
s = " The tabbox and invbox are exactly the same as in the first sample."
s = s & " This sample uses 3D frames instead of pictureboxes for the pages, and a single textbox in place of multiple labels on each page(). The 3d frames are named f3d(0) - f3d(6)."
s = s & " The textboxes are named t(0) - t(6)."
s = s & " Some of the pages still contain some labels."
s = s & " There are 7 pages on this sample, which produces one blank (unused) tab."
s = s & nl & nl & " To create a sizable window, set the borderstyle = 2."
s = s & " Create controls on each page with an eye toward how they will be affected by resizing."
s = s & " A dummy menu was added to the form to check the alignment of the tabs when the menu wraps."
s = s & " The solution to this problem was sloppy (it simply resizes the form again) and if there is no better solution that can be implemented from within VB, there are at least 2 possible workarounds."
s = s & nl & " 1. Use a message subclass control to intercept WM_GETMINMAXINFO."
s = s & nl & " 2. Set the tb.minwidth to a size that accomodates all the menu text."
t(1) = s
s = " The code is similar to the code in the first sample with a few additions."
s = s & nl & nl & " 1. Add the following lines to the general declarations section:"
s = s & nl & nl & " Dim page() As Control"
s = s & nl & " Dim tb As TabData"
s = s & nl & nl & " 2. Add the following lines to the form_load procedure (note that in the samples this code is actually in the procedure 'Initialize()' called from form_load):"
s = s & nl & nl & " Redim page(0 To 6)"
s = s & nl & " For i = 0 to 6: Set page(i) = f3d(i): Next"
s = s & nl & " tb.num = 6"
s = s & nl & " tb.active = 0"
s = s & nl & " tb.cols = 4"
s = s & nl & " tb.orient = 0"
s = s & nl & nl & " (Note the following lines may be necessary if you have multiple instances of the tab control and the tb.structure is not being properly initialized to 0. Note also that all 4 must be 0 or it will be assumed you are creating a 'nonaligned' tab and the form will not be fitted to the tab. See sample 3 for an example of this type.)"
s = s & nl & " tb.left = 0"
s = s & nl & " tb.top = 0"
s = s & nl & " tb.width = 0"
s = s & nl & " tb.height = 0"
s = s & nl & " (the following lines are optional but should be used if you have a menu and wish to prevent wrapping)"
s = s & nl & " tb.minwidth = (some value)"
s = s & nl & " tb.minheight = (some value)"
s = s & nl & nl & " DefineControl Me, tabbox, invbox, page(), tb"
s = s & nl & nl & " 3. Add the following line to the form_resize event:"
s = s & nl & " If windowstate <> 1 then TabResize Me, -1, -1, tabbox, invbox, page(), tb"
s = s & nl & nl & " 4. Add the following to tabbox_MouseUp:"
s = s & nl & " TabClick Button, X, Y, tabbox, page(), tb"
s = s & nl & nl & " 5. Add the following to tabbox_Paint:"
s = s & nl & " DrawText tabbox, page(), tb"
t(2) = s
s = " Size page(0) to the size to which you wish all the other page()s and the tab control to be initialized when the form is loaded."
s = s & nl & nl & " Again, set the Font properties of the tabbox to those you wish the captions to have."
s = s & nl & nl & " Add the following line to form_load before calling DefineControl() if you wish the tabs to be at the bottom of the pages: "
s = s & nl & " tb.orient = 1"
s = s & nl & nl & " Add the following line to form_KeyDown if you wish to toggle through the pages:"
s = s & nl & " If KeyCode = (some value) Then PageNext"
s = s & nl & " If KeyCode = (some value) Then PagePrev"
t(3) = s
s = " The resizing of the window is handled by TabResize(). It is not a good idea to manipulate the form size from within this event and the routine uses flags to keep from redrawing the tabs and text more than once."
s = s & nl & nl & " The refresh rate is nontheless poor, and as mentioned previously, it must resize the form twice if a menu wraps."
s = s & nl & nl & " I'm sure this section could be improved, but I just haven't hit on it. All in all, the resizable window is not the optimal use for this control."
s = s & nl & nl & " That's it. The final sample includes some controls to manipulate the tabs at runtime."
t(4) = s
s = " The tab control assumes one pixel shading outline in white and dark grey around the inside of the container in which it sits."
s = s & nl & nl & " The first sample uses line controls to shade the form's borders for convenience."
s = s & nl & nl & " This sample omitted the shading to avoid having to write code to move and resize the line controls."
s = s & nl & nl & " If you place the control in a 3d container such as a 3d panel, you may need to modify the DrawTabs routine to get the shading lines to match up."
s = s & nl & nl & " The third sample uses a 3d panel, but the size of the tab control must be specified at designtime and it is not resizable."
t(5) = s
End Sub
Sub ResizeTextboxes ()
Dim w%, h%, rc As RECT
w% = f3d(0).Width - 360
h% = f3d(0).Height - 360
For i = 0 To numpages: t(i).Visible = 0: Next
t(0).Move 120, 240, w, h
w = w - 360: h = h - 480
For i = 1 To numpages: t(i).Move 480, 720, w, h: Next
'this just buts the text in a little off the scroll bar
r = SendMessage(t(0).hWnd, EM_GETRECT, 0, rc)
rc.right = rc.right - 8
r = SendMessage(t(0).hWnd, EM_SETRECT, 0, rc)
r = SendMessage(t(1).hWnd, EM_GETRECT, 0, rc)
rc.right = rc.right - 8
For i = 1 To numpages
r = SendMessage(t(i).hWnd, EM_SETRECT, 0, rc)
For i = 0 To numpages: t(i).Visible = -1: Next
End Sub
Sub tabbox_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
TabClick Button, X, Y, tabbox, page(), tb
End Sub
Sub tabbox_Paint ()
DrawText tabbox, page(), tb
Debug.Print "call DrawText from tabbox_Paint========="
(.txt)