Attach custom form to toolbar button |
Post Reply |
Author | |
daliaessam
Newbie Joined: 28 June 2005 Status: Offline Points: 15 |
Post Options
Thanks(0)
Posted: 28 June 2005 at 3:14pm |
Hello, I just purchased the ActiveX suite and I am happy realy with everything except for the docs. I need to attach a form to a toolbar button and be able to resize it after the form is displayed, What I am trying to do is exactly as the Insert Table button on MS Frontpage do, that's when I click on the inert table button, it displays the form and if the user drags the mouse I can resize it. This is an MDI project, I see in some sample you did something with a picture box. Please drive me. Thanks everyone
Edited by daliaessam |
|
daliaessam
Newbie Joined: 28 June 2005 Status: Offline Points: 15 |
Post Options
Thanks(0)
|
Here is what I tried based on your sample: Dim ControlTableBox As CommandBarPopup Private Sub CommandBars_InitCommandsPopup(ByVal CommandBar As XtremeCommandBars.ICommandBar) Dim formTableBox As New frmTableBox End Sub and frmTableBox is a form with a picture box Picture1: Option Explicit Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Me.Width = Me.Width + 60 End Sub The popup control seems to set its width, height from the form before display, now the question is, how do I change the control with, height to fit the form after I resize it. Is there a .Width and .height to resize the opened popup or what Iam doing wrong.
Edited by daliaessam |
|
daliaessam
Newbie Joined: 28 June 2005 Status: Offline Points: 15 |
Post Options
Thanks(0)
|
Joke Support, Why you are not answering this email and the ticked I sent. |
|
Oleg
Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234 |
Post Options
Thanks(0)
|
Hi, Sorry, there were some vacations...
Try this trick: 1. Add member of frmTableBox Public ControlForm As CommandBarControlCustom 2. Save it in CommandBars_InitCommandsPopup ... ControlForm.Handle = formTableBox.hWnd
3. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Picture1.Width = Picture1.Width + 60 ControlForm.Handle = Me.hWnd
|
|
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS |
|
Post Reply | |
Tweet
|
Forum Jump | Forum Permissions You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |