View Single Post
  #5   Report Post  
Posted to microsoft.public.vb.winapi,microsoft.public.excel.programming
Nile_Hef[_2_] Nile_Hef[_2_] is offline
external usenet poster
 
Posts: 23
Default Sheet Tabs: API manipulation to a multiline TabControl

Thanks for clarifying that: yes, I should be using SetWindowLong.

Unfortunately, the three XLCTL windows turn out to be resizing controls for
the workbook scrollbars; the TabStrip control is well and truly hidden.
Visible Excel objects are an odd mix of standard Windows components for
exotic jobs and exotic handcrafted objects for commonplace Windows actions.

Oh well: looks like I'll have to do some work... For people who value their
time so much that a worksheet tab that's scrolled out of view is uneconomical
to chase with the mouse.

Nile

__________________________________________________ ______________
"The Meek Shall Inherit The Earth. In very small plots, about six feet by
three"

"Timo Kunze" wrote:

Nile_Hef schrieb:
SendMessage(hwndCtrl, TCS_MULTILINE, 0&, 0&)

TCS_MULTILINE is a control style and no message. If you want to check
whether it is set, you would have to use something like this:

Dim style As Long

style = GetWindowLong(hwndCtrl, GWL_STYLE)
If style And TCS_MULTILINE Then
Debug.Print "Control uses TCS_MULTILINE!"
End If

And if you want to set this style, do it like this:

Dim style As Long

style = GetWindowLong(hwndCtrl, GWL_STYLE)
style = style Or TCS_MULTILINE
SetWindowLong hwndCtrl, GWL_STYLE, style

Timo
--
www.TimoSoft-Software.de - the home of ExplorerTreeView
Boycott DRM! Boycott HDCP!