Command Bars - Command Bars Resize

Print Page | Close Window

Command Bars Resize

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Command Bars
Forum Description: Topics Related to Codejock Command Bars
URL: http://forum.codejock.com/forum_posts.asp?TID=18869
Printed Date: 09 June 2025 at 3:34am
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Command Bars Resize

Posted By: rplp4
Subject: Command Bars Resize
Date Posted: 26 August 2011 at 4:05pm

I have the below code in the resize event. I get an exception the first time resize is fired. What can I do to fix this?

Exception of type 'System.Windows.Forms.AxHost+InvalidActiveXStateException' was thrown.

Dim left As Integer

Dim top As Integer

Dim right As Integer

Dim bottom As Integer

Try

CommandBars1.GetClientRect(left, top, right, bottom)

grpMain.SetBounds(left, top, right - left - 10, bottom - top - 10)

Catch ex As Exception

Console.WriteLine(ex.Message)

End Try

-------------
Product: Xtreme SuitePro (ActiveX) version 12.0.0
Platform: Vista (64bit) - SP 2
Language: Visual Basic 6.0

Replies:

Posted By: gibra
Date Posted: 03 September 2011 at 6:01pm

Use as Long instead of As Integer

the guide cite

Public Sub GetClientRect( _
   ByRef  mk:@MSITStore:C:%5CProgram%20Files%20%28x86%29%5CCodejock%20Software%5CActiveX%5CXtreme%20SuitePro%20ActiveX%20v15.0.2%5CHelp%5CSymbolReference.chm::/XtremeCommandBars~CommandBars~GetClientRect.html# -  - Top  As Long, _
   ByRef  mk:@MSITStore:C:%5CProgram%20Files%20%28x86%29%5CCodejock%20Software%5CActiveX%5CXtreme%20SuitePro%20ActiveX%20v15.0.2%5CHelp%5CSymbolReference.chm::/XtremeCommandBars~CommandBars~GetClientRect.html# -  - Bottom  As Long _
)

-------------
gibra
CJ SuiteControl v: 13.x to 19.x
Windows 10 64bit
VS2019 - VB6.0 SP6
<a href="http://nuke.vbcorner.net/Home/tabid/36/language/en-US/Default.aspx" rel="nofollow">VS/VB 6.0 Installer v6.8