Printable View
i have a problem with the MDI
i have the main menu and i have set the main menu event with MainMenu_Activated
inside that i have a if statement called
If newclientinfo.CheckSaving1 = 1 Then
MenuItem14.Enabled = True
Else
MenuItem14.Enabled = False
End If
End sub
and in the child form call newclientinfo when the newclientinfo _closed i have a SQL command
select the client if the datareader read than i set the CheckSaving1 to 1
why it wont work ??? the CheckSaving1 is set to Public
What is newclientinfo?
For a quick answer, I'd suggest avoiding MDI forms. They're a pain.
the newclientinfo is a form and is a child of the main menu
i wanna use a MDI format to develop a system
so please help
MDI forms rule
I dont really understand what your trying to do but
i guess your problem is the fact your calling your perant mdi from your child form and it errors this is most likely becuase child forms speaking to perants ant all that
If you add a module to your solution then add a public variable of
pulbic FrmPerant as "what ever the perant is called"
then from the child form to access properties of the perant just use
frmPerant.WHATEVER
modules are global to the entire solution they do not need instanciating there they can be called when ever how ever......
hope it helps
Carl, you are correct, MDI forms do rule, now to try and help ninjaX.
How are you instantiating your form?
And is the name of the actual form newclientinfo or is that the instance name?
The problem with trying to reference controls on a form is that if you come from VB6 or earlier, then by just referencing a form by it's actual name worked fine, that is not true in VB7.
i got one simple MDI question
i can use what event to keep track what the child has done, example my parent window will continue keep track when the form is activate i have try the activated event before but no use.
example
i have a child form call newclient and parent is mainmenu
after the newclient click at the save button, some of the main menu function will set the enabled to true can i know how to do that ????
coz some of my function cannot be use if the user dont click at the newclient save button
Create a public method in your MDI parent form and have the child form call that method as the last call in the save button click event.
VB Code:
is it create at the parent form or inside the child form ???
why the myParent.EnabledControls cannot use one ?
Well then
In your child form, declare a public event like "Saved" and raise the event to all listeners (should only be your MDI container)
VB Code:
And in your MDI container form declare your child form withevents and code the event handler
VB Code:
This should do the trick nicely . . . it works on my machine ;)
Sorry CyberHawke
Private WithEvents ChildNew As frmChild
Private Sub ChildNew_Complete() Handles ChildNew.Complete
MessageBox.Show("It worked")
End Sub
.Complete Wont Work
Sorry, my bad, that's what I get for editing my code in this window.
VB Code:
VB Code:
Sorry CyberHawke
Donno why my coding cannot work with the code
ai ~~
Public Event Saved
Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
'Other code goes here...
RaiseEvent Saved
End Sub
this one i put it in my child called newclient
Private WithEvents ChildNew As frmChild
Private Sub ChildNew_Saved() Handles ChildNew.Saved
MessageBox.Show("It worked")
End Sub
this one i put in my parent form called main menu
but after i click the save button it wont work for me
is it my code for problem ??
It looks correct, I guess you should paste the code out of your actual module here, because this works fine for me
the parent for is call mainmenu the code is like below:
Dim newclientinfo As New newclientinfo
Private WithEvents ChildNew As newclientinfo
Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
If Check = 0 Then
doccode.ShowDialog()
newclientinfo = New NewClientInfo
If doccode.CheckCancel <> 1 Then
newclientinfo.code_TextBox.Text = doccode.DocCode_TextBox.Text
TempDocCode = doccode.DocCode_TextBox.Text
newclientinfo.Show()
newclientinfo.MdiParent = Me
Check += 1
End If
If doccode.CheckCancel = 1 Then
doccode.CheckCancel = 0
TempDocCode = 0
End If
Else
Dim mainmenu As New MainMenu
mainmenu.Show()
End If
Private Sub ChildNew_Saved() Handles ChildNew.Saved
MessageBox.Show("It worked")
End Sub
===============================================
the code below is for my new client form
Public Event Saved()
Private Sub save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save.Click
Dim mainmenu As New MainMenu
Dim IntSave As Integer
Dim ClientName As String
IntSave = MsgBox("Do You Want To Save Your Data ?", MsgBoxStyle.OKCancel, "Save")
If IntSave = DialogResult.OK Then
Try
OleDbConnection1.Open()
'*********************************************
Dim DataReader As OleDb.OleDbDataReader
OleDbDataAdapter1.SelectCommand.CommandText = "SELECT Client From Client Where Client = '" & ClientName_TextBox.Text & "' And Code = '" & code_TextBox.Text & "' "
DataReader = OleDbDataAdapter1.SelectCommand.ExecuteReader
If DataReader.Read Then
MessageBox.Show("Client Name Already Been Save. Thank You", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
Else
DataReader.Close()
SaveClientInfo()
CheckSaving = 1
RaiseEvent Saved()
End If
Catch ex As Exception
MsgBox(ex.ToString())
Finally
OleDbConnection1.Close()
End Try
If IntSave = DialogResult.Cancel Then
MessageBox.Show("Data Not Save")
CheckSaving = 0
End If
End If
End Sub
is it enough ?
thanx for helping me
two things, first, can you send me your code?
second, if you are going to paste code here, please use the vb format tags, it makes it much easier to read thanks :D
Remove this line:
Dim newclientinfo As New newclientinfo
Change this line:
newclientinfo = New NewClientInfo
to:
ChildNew = New newclientinfo
Replace all other references to newclientinfo to ChildNew
From what I am reading here, that should fix it.
thanx, CyberHawke the code is working now !!! :D :D :D :D :D :D
thanx ~
but now i got another problem, do mind to teach me ??
the problem is when i open one parent form and the user click at the new client to try to input another client information
example
form 1 and when i click at new client to let user to input again that is form 2 but when i close the form 1 the form 2 will continue close it hwo can i avoid the form 2 close ????
i have us the coding below to create a new form
If Check = 0 Then
Do my things here
Else
Dim mainmenu As New MainMenu
mainmenu.Show()
End If
can CyberHawke know what i mean ??
Ok, if I understand you correctly, you have two forms, your main form (mainmenu) and your client form newclientinfo, now when your user creates an instance of your newclientinfo form from the mainmenu form and then closes the mainmenu form, the newclientinfo form goes away also. Is that correct?
sorry, actually i have create 2 main form
If Check = 0 Then
Do my things here
Else
Dim mainmenu As New MainMenu
mainmenu.Show()
End If
i use the check to detect is the user is click at the new client this menu item or not if not it will display the new client
if yes it will help me to create another parent and when i have 2 parent is open, i call it parent 1 and parent 2 if i close the parent 1 the parent 2 will also close it, it is possible to make the 2 parent independent like the microsoft word ???
and the second problem is that i have open a form and the form have a document code textbox call 123, and when user is try to open the form document code 123 and the system will help me to detect is the form document code is open or not ?????
thank you very much
sorry to disturbing you again