how can i create user controls so that it work at run time also
Hi all!
i am developing an application in v.b 6.0. it consists of some user controls (developed by using Activex controls...)... I am able to drag and drop the user contols on the screen and these are working also...
Actually, my GUI consists of some images( like a generator symbols in electronics, and these are in acircuit), those are nothing but user controls. each one consists of click event and some other properties..
Now what i have to do is.. i have to be able to drag and drop the user controls at run time also..
for ex: take any M.s word application, eventhough we are typing some data, we will be able to drag and drop some tables, circles, rectangles, text boxes.. etc..
Like wise, suppose if my user wants to insert a usercontrol at run time into the circuit( asume that he pressed F5, and clicked on some user contols , in the middle, he thought that if there wold be an extra usercontrol, it would be better) at this situation also .. my user should be able to drag and drop the required user control....so that it also should have all propertis and events.
could you please say, Whether it is possible in V.b or not? if possible and you know How to do this pls provide me a sample code....
Re: how can i create user controls so that it work at run time also
The only way that I can think of to do this is to have each type of user control be already on the form with an Index value of 0 which will make them the first member of their own control arrays. They could be invisible to start with. Then you could perhaps have the user drag a picture of the particular user control to the spot where he wants it. At the end of the drag/drop you could substitute the usercontrol(0) for the picture and make it visible, or, if the usercontrol(0) was already in use Load usercontrol(1) and make it visible.
Re: how can i create user controls so that it work at run time also
If im not wrong you would need to achieve this using a control array.
Basically you create your control. Then copy and paste it.. say YES to create a control array.
Ill post the code later on when i get home to do this at runtime.
_____________________________________________________________________
----If this post has helped you. Please take time to Rate it.
----If you've solved your problem, then please mark it as RESOLVED from Thread Tools.
Re: how can i create user controls so that it work at run time also
K here ya go...
Try this on a new project.
Add a picturebox and set its INDEX property to 0. Then create a button and add the code below.
Code:
Private CountArray As Integer
Private Sub Command1_Click()
CountArray = CountArray + 1
Load Picture1(CountArray)
Picture1(CountArray).Top = Picture1(CountArray - 1).Top + 300
Picture1(CountArray).Visible = True
End Sub
Hope you'll get the idea.
_____________________________________________________________________
----If this post has helped you. Please take time to Rate it.
----If you've solved your problem, then please mark it as RESOLVED from Thread Tools.
Re: how can i create user controls so that it work at run time also
Hi some1uk03!
i have looked at your example.. its working... now i will start to use this in my real application, and i will make u know the feed back soon, if i get any problem,again i will come to u to take help...
Thanks:
regards:
raghunadhs
Originally Posted by some1uk03
K here ya go...
Try this on a new project.
Add a picturebox and set its INDEX property to 0. Then create a button and add the code below.
Code:
Private CountArray As Integer
Private Sub Command1_Click()
CountArray = CountArray + 1
Load Picture1(CountArray)
Picture1(CountArray).Top = Picture1(CountArray - 1).Top + 300
Picture1(CountArray).Visible = True
End Sub
Re: how can i create user controls so that it work at run time also
Hi martinliss,
i will follow u r suggestion, and make know the feed back
thanks:
regards:
raghunadhs
Originally Posted by MartinLiss
The only way that I can think of to do this is to have each type of user control be already on the form with an Index value of 0 which will make them the first member of their own control arrays. They could be invisible to start with. Then you could perhaps have the user drag a picture of the particular user control to the spot where he wants it. At the end of the drag/drop you could substitute the usercontrol(0) for the picture and make it visible, or, if the usercontrol(0) was already in use Load usercontrol(1) and make it visible.
Re: how can i create user controls so that it work at run time also
Hi some1uk03!
I worked with the control array concept... if u don't mind let me explain my requirements once...
(1): there must be a usercontrol, user should be able to drag and drop the user control at his required location ar run time( u r logic wehat u mentioned is doing some thing like this, but i am unable to drag and drop at my required location)
(2): he should be able to resize it, and able to delete it( if he feels that it is not required).
(3): like a M.S word application, my v.b application should have a tool kit, which consists of user contrls, so that when ever the user drag and drop a particular user control at any where on the form by selecting itself, it should work
Actaully, i don't know whether it is possible in V.B 6.0 or not!...
if it is possible in v.b pls tell me how to do it...
Thanks in advance:
regards:
raghunadhs.
Originally Posted by some1uk03
K here ya go...
Try this on a new project.
Add a picturebox and set its INDEX property to 0. Then create a button and add the code below.
Code:
Private CountArray As Integer
Private Sub Command1_Click()
CountArray = CountArray + 1
Load Picture1(CountArray)
Picture1(CountArray).Top = Picture1(CountArray - 1).Top + 300
Picture1(CountArray).Visible = True
End Sub
Re: how can i create user controls so that it work at run time also
Ok for the drag and drop add this:
Code:
Private CountArray As Integer 'Count the Created Object Array
Private AllowDrag As Boolean 'Disallow Arrayed object to create other objects
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
If AllowDrag = False Then Exit Sub
CountArray = CountArray + 1
Load Picture1(CountArray)
Picture1(CountArray).Visible = True
Picture1(CountArray).Print CountArray
Picture1(CountArray).Move (X - Source.Width / 2), (Y - Source.Height / 2)
End Sub
Private Sub Form_Load()
Picture1(0).AutoRedraw = True
End Sub
Private Sub Picture1_DragOver(Index As Integer, Source As Control, X As Single, Y As Single, State As Integer)
If Not Index = 0 Then
AllowDrag = False
Else
AllowDrag = True
End If
End Sub
As for Removing the Object use:
Unload Picture1( the array number goes here )
You can put this in a menu and then call it in the Picture1 Mouse Down event to Remove the Item.
Also for resizing thats to do with your OWN ActiveX controls. You will need to add that yourself.
_____________________________________________________________________
----If this post has helped you. Please take time to Rate it.
----If you've solved your problem, then please mark it as RESOLVED from Thread Tools.
Re: how can i create user controls so that it work at run time also
Hi some1uko3!
I am seeing u r code, i will get back u with feed back soon.. thanks for u r immediate correspondence..
regards:
raghunadhs
Originally Posted by some1uk03
Ok for the drag and drop add this:
Code:
Private CountArray As Integer 'Count the Created Object Array
Private AllowDrag As Boolean 'Disallow Arrayed object to create other objects
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
If AllowDrag = False Then Exit Sub
CountArray = CountArray + 1
Load Picture1(CountArray)
Picture1(CountArray).Visible = True
Picture1(CountArray).Print CountArray
Picture1(CountArray).Move (X - Source.Width / 2), (Y - Source.Height / 2)
End Sub
Private Sub Form_Load()
Picture1(0).AutoRedraw = True
End Sub
Private Sub Picture1_DragOver(Index As Integer, Source As Control, X As Single, Y As Single, State As Integer)
If Not Index = 0 Then
AllowDrag = False
Else
AllowDrag = True
End If
End Sub
As for Removing the Object use:
Unload Picture1( the array number goes here )
You can put this in a menu and then call it in the Picture1 Mouse Down event to Remove the Item.
Also for resizing thats to do with your OWN ActiveX controls. You will need to add that yourself.
Re: how can i create user controls so that it work at run time also
Hi some1uk03!
I tried your code, working properly.., sorry for delay, i have taken this mean time for doing some other stuff to implement this..
suppose if the user wants to delete one picture/usercontrol, he will be able to select that one and able to delete it, by pressing "delete" button.. so what i am doing is simply finding the key code of the "delete" button and if user attempts to delete the picture, i will check whether he pressed delete or not, if so according to u r suggestion, i am unloading it.
before deleting, user has to select the deletable picture/usercontrol with mouse's left click.. but the application, what i have developed is working if user selects the picture with mouse's right click and pressing delete button ,why it is behaving like this! what is the remedy for this. pls tell me, if u know it... one thing.. in u r code, u forgot to set the picture's dragMode propery to "automatic", just i am saying this for new users who may want to practise this.. like me(till now i did not know this , i am new to v.b)
Thanks in advance:
regards:
raghunadhs.
Re: how can i create user controls so that it work at run time also
Hi martinLiss!,
now i am attaching the sub which is having problem. pls go through it and let me know u r suggestions.
thanks in advance:
regards:
raghunadhs.
Originally Posted by MartinLiss
Please show the sub that contains the delete code.
Re: how can i create user controls so that it work at run time also
Originally Posted by raghunadhs
Hi martinLiss!,
now i am attaching the sub which is having problem. pls go through it and let me know u r suggestions.
thanks in advance:
regards:
raghunadhs.
Re: how can i create user controls so that it work at run time also
The best thing to do would be to have a double-click of the picture be an indication that the user wants to delete it rather than select-with-mouse-and-press-delete-key. The problem is however that with the drag-drop code in the program, as soon as you click the picture VB thinks that you are doing drag-drop so normal left-click or double-click doesn't work and I don't know how to fix the problem.
Last edited by MartinLiss; Jul 11th, 2007 at 12:58 PM.
Re: how can i create user controls so that it work at run time also
Ok! martin, i will follow u r suggestion, and let u know feed back.
Thanks:
regards:
raghunadh
Originally Posted by MartinLiss
The best thing to do would be to have a double-click of the picture be an indication that the user wants to delete it rather than select-with-mouse-and-press-delete-key. The problem is however that with the drag-drop code in the program, as soon as you click the picture VB thinks that you are doing drag-drop so normal left-click or double-click doesn't work and I don't know how to fix the problem.
Re: how can i create user controls so that it work at run time also
Hi martinLiss!,
I am going to home.. i will look at it tomorrow.. and will feed back you. once again thanks for u r immediate reply... Have a good day.
regards:
raghunadhs
[QUOTE=MartinLiss]I found a solution! New code is indicated by 'new
[highlight='vb']Private CountArray As Integer 'Count the Created Object Array
Private AllowDrag As Boolean 'Disallow Arrayed object to create other objects
'new
Private bLeftMouseClick As Boolean
Re: how can i create user controls so that it work at run time also
Ok heres the edited version of the project.
Now you can right click and you'll get a popup menu. Just run the program and youll see.
_____________________________________________________________________
----If this post has helped you. Please take time to Rate it.
----If you've solved your problem, then please mark it as RESOLVED from Thread Tools.
Re: how can i create user controls so that it work at run time also
Hi some1uk03!
Its really wonderful. here i could not get one thing. how can u add these two menu items, mnuDelete,mnuRclick i tried for these alot, eventhough these are visible in properties window, i could not trace out on form. how did u achieve this?
pls tell me....
thanks in advance:
regards:
raghunadh
Originally Posted by some1uk03
Ok heres the edited version of the project.
Now you can right click and you'll get a popup menu. Just run the program and youll see.
Re: how can i create user controls so that it work at run time also
MarinLiss!
Yes your code is working.now itself, i am able to delete it by selecting the picture with mouse's left clik. i will implement it in my app and will let u know any feed back.
Thank u very much...
refards:
raghunadhs.
[QUOTE=MartinLiss]I found a solution! New code is indicated by 'new
Re: how can i create user controls so that it work at run time also
how can u add these two menu items, mnuDelete,mnuRclick i tried for these alot, eventhough these are visible in properties window, i could not trace out on form. how did u achieve this?
Using the MENU EDITOR. (3rd Icon from left)
_____________________________________________________________________
----If this post has helped you. Please take time to Rate it.
----If you've solved your problem, then please mark it as RESOLVED from Thread Tools.
Re: how can i create user controls so that it work at run time also
Hi!
Again i came to this thread after long gap... sorry for this gap. now as per your suggestions, i created a object which will be able to drag and drop on the screen and consists of click event..etc
Actually my applications contains a GUI.It is working also,and this run time drag and drop objects for user purpose, that means he can be able to create his own GUI by clicking a "new" option in "file" menu( my applicaiton contains a menu bar also).then a new window should come,there user must be able to drag and drop objects....
now my question is
(a): when ever user clicks "new" menu option, a form should appear and it should be placed beside my user tool box(where my drag and drop objects placed), how can i achieve this?
(b): my friend suggested me MDI forms, i don't have any idea about this. suppose if i use this MDI forms, can i put my user controls on the parent form, so that it should be inherited to child forms also..
if the question is not clear, please let me know that...
Reply With Quote
2009 - 2016
Originally Posted by some1uk03
