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....

Thanks in advance..
regards:
raghunadhs.

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.

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.

Quote:

---

Originally Posted by some1uk03

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.

---

That's pretty much what I said.

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.

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

Quote:

---

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

---

Hope you'll get the idea.

---

Hi martinliss,
i will follow u r suggestion, and make know the feed back
thanks:
regards:
raghunadhs

Quote:

---

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.

---

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.

Quote:

---

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

---

Hope you'll get the idea.

---

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.

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

Quote:

---

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.

---

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.

Please show the sub that contains the delete code.

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.

Quote:

---

Originally Posted by MartinLiss

Please show the sub that contains the delete code.

---

Quote:

---

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.

---

I don't see any code or attachment.

sorry for inconveniance... i forgot to attach.
Thanks :
regards:
raghunadhs

Quote:

---

Originally Posted by MartinLiss

I don't see any code or attachment.

---

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.

Ok! martin, i will follow u r suggestion, and let u know feed back.
Thanks:
regards:
raghunadh

Quote:

---

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.

---

I found a solution! New code is indicated by 'new

vb Code:

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
 
 
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
'new
bLeftMouseClick = True
End Sub
 
Private Sub Picture1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
'new
If bLeftMouseClick Then
 
If KeyCode = 46 Then
   MsgBox (KeyCode)
   Unload Picture1(Index)
 End If
 
 'new
 End If
 bLeftMouseClick = False
 
End Sub

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

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.

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

Quote:

---

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.

---

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

Quote:

---

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)

Hi some1uk03!
now i have understood u r code, and surprised. till now i don't know how to use that menu editor... thanks alot..
regards:
raghunadhs

Quote:

---

Originally Posted by some1uk03

Using the MENU EDITOR. (3rd Icon from left)

---

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...

Thanks in advance:
regards:
raghuandhs

Quote:

---

Originally Posted by some1uk03

Using the MENU EDITOR. (3rd Icon from left)

---