DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

access events of form in UserControl

Thread Solved

•

Join Date: Feb 2009

Posts: 4

Reputation: vtelebyteM is an unknown quantity at this point

Solved Threads: 0

vtelebyteM vtelebyteM is offline

Offline

Newbie Poster

access events of form in UserControl

Feb 24th, 2009

access events of form in UserControl
i have
1)User control with one MSFlexGrid on it
2)Form to place user control
3)Some form's own control
i dont know how many controls are there under form
i have to place them in grid columns (eg. combobox in grid to provide its service)
now problem is if i place any control in grid after i LostFocus from that control i need to palce the value present in control in grid.
i cannot ask to write LostFocus function to my UserControl user or any programmer so i must have provision to catch events of controls available on form.
let's make question more simple
i need to access events of controls present on form in userControl without any code in form

•

Join Date: Feb 2008

Posts: 509

Reputation: selvaganapathy is an unknown quantity at this point

Solved Threads: 88

selvaganapathy selvaganapathy is offline

Offline

Posting Pro

Re: access events of form in UserControl

Feb 24th, 2009

Hi, U can use Usercontrol.Parent Property get the Parent object and use WithEvents keyword to capture the Parent events

 Help with Code Tags 
 VB Syntax (Toggle Plain Text) 
'In UserControl
Option Explicit
 
Dim WithEvents mParent As Form
 
Private Sub mParent_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   MsgBox "Down"
End Sub
 
Public Sub SetParent(mParentForm As Form)
   Set mParent = mParentForm
End Sub
 
Private Sub UserControl_Show()
   If TypeOf UserControl.Parent Is Form Then
      Set mParent = UserControl.Parent
   End If
End Sub
'In UserControl
Option Explicit

Dim WithEvents mParent As Form

Private Sub mParent_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   MsgBox "Down"
End Sub

Public Sub SetParent(mParentForm As Form)
   Set mParent = mParentForm
End Sub

Private Sub UserControl_Show()
   If TypeOf UserControl.Parent Is Form Then
      Set mParent = UserControl.Parent
   End If
End Sub