|
Hi All
I Create A form Named ChildForm.
In Main form I write This Codes
Dim ChFrm As New ChildForm
ChFrm.Show
But I need to access the all form ( random) from Main Form. But I Can't Access This Forms.
Please Help Me.
Tanks.
Mogtabam
|
|
|
|
|
create an MDI Form as your main form.
make all other form's IsMDIChild property to true.
now you can access all the form from your main form.
Live life to the fullest
|
|
|
|
|
Hi And Tanks For Your Replys.
But My Problem Not Solved Yet.
Because I Want To Access then form and its Components (for example A textbox).
I Need To Change It From Main Form.
if i have 1 form This is Ok. But I have several form With One Name;
For Example Can You Write For Me A Code That Change The TextBox In First MdiChild & Put Another Text In Another MdiChilform?
Example:
ChForm:My Child Form
Have a textbox
MainForm: My Main Form
have a button Named But
In Main form:
sub But_click()
dim Cf as new ChForm
Cf.show
end sub
After Tow Or More Click On But I Need To Access TextBox In the ChildForm.
Can You Help Me?
Tanks.
Mogtabam
|
|
|
|
|
Declare the form outside the method (in the global area of the main form, and then create the new form in the button handler. The then the new form object will be available globally within the main form:
Public Class MainForm As Form
Public Cf as ChForm
sub But_click()
Cf = new ChForm
Cf.show
end sub
End Class
However, keep in mind that what you want to do (directly access a control on one form from another) is really bad practice. You should be building properties on the other forms and using them to access the data provided in controls on the form as shown bellow:
Public Class MainForm As Form
Public Cf as ChForm
Private mNameData As String
sub But_click()
Cf = new ChForm
Cf.show
mNameData - Cf.NameData()
end sub
End Class
Public Class ChForm As Form
Public Property NameData() As String
Get
Return txtName.Text
End Get
Set (value as String)
txtName.Text = value
End Set
End Property
End Class
This keeps things much cleaner and more modular.
|
|
|
|
|
Do you want the collection of forms like form1, form2 form3 then
or you want particular form with refernce to the parent.
Develop2Program & Program2Develop
|
|
|
|
|
first of all u want to make an MDI parent and child form and u want to access it thru parent form...
first of all make form 1 as parent b making its property as is MDI container as true..
nw put a pic box (optional)
and put a button on it..
add a form make its property as is MDI child as true..
i hope u knw this much
nw in button code..
Dim NewMDIChild As New Form2
'Set the Parent Form of the Child window.
NewMDIChild.MdiParent = Me
'Display the new form.
NewMDIChild.Show()
..
after this i am not getting yr query..
if u have any further query lemme know..
|
|
|
|
|
Hi guys i have one integer value..,
that i want to assign in datagrid template column(textbox)....,
Plz any one can tell the solution.....
regards,
Magi
|
|
|
|
|
Are you talking about ASP.NET? If so then I believe you would set the text property inside the textbox that you have placed in the datagrid to the following.
text='<% Container.DataItem("ColumnName") %>'
CleaKO
"I think you'll be okay here, they have a thin candy shell. 'Surprised you didn't know that." - Tommy Boy
"Fill it up again! Fill it up again! Once it hits your lips, it's so good!" - Frank the Tank (Old School)
|
|
|
|
|
one or two days back i got he answer of validating a textboxes by giving values between 0 and 45.
now i wanna validate textboxes again in a way that if one value is filled in one textbox user cant enter it again in any other textbox..
like if i have enterd 21 in textbox1, then in textbox2 i would not be able to fill 21 again.
it shud give error at that time only...
any help..
thanks..
|
|
|
|
|
Try this, Iterate through all the controls, pick out the textbox's and check their value:
For textbox1_textchanged event:
dim t as textbox<br />
for each t in me.controls<br />
if ctype(t) is textbox then<br />
if t.text = textbox1.text then<br />
'error<br />
end if<br />
end if<br />
next
Posted by The ANZAC
|
|
|
|
|
its not workin man..
giving some errors
and one more thing each and every textbox i have to validate through this coding..
if i have more than 100 no. of textboxes then wouldn't it will become very lenghty procedure..
any shortcut for validating 100 textboxes..
thanks..
|
|
|
|
|
The first posters code failed because 't' was declared as a textbox. If the control collection contains something other then a textbox the cast will fail. 't' should have been a control. Also instead of hardcoding textbox1 you can use the same technique you learned from your first validation post. Use directcast to cast the sender object as a textbox. This will allow you to handle all your textboxes from this single procedure. Try the following
Dim txtSender As TextBox = DirectCast(sender, TextBox)
'Loop through all controls on the form
'If the form isn't the parent use ParentName.Controls instead of me.controls
For Each ctrl As Control In Me.Controls
'Is ctrl a texbox and NOT the textbox that raised this method
If TypeOf ctrl Is TextBox AndAlso ctrl IsNot txtSender Then
If DirectCast(ctrl, TextBox).Text = txtSender.Text Then
'Add code to raise Error
Exit For
End If
End If
Next
I know you were told you could add handlers for multiple textboxes by doing Handles textbox1.textchanged, textbox2.textchange etc. But if you have a 100 textboxes that's just tedious especially when you have to do that for multiple procedures. The following code will loop through the controls and add handlers for you when the form loads. In this example I added a handler for the textchanged event for all the textboxes found on the form but you can add whatever handlers you want. I also added the textbox to a collection so you don't have to loop through the controls later but can loop through the collection of just textboxes.
Private TextBoxCollection As List(Of TextBox)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is TextBox Then
TextBoxCollection.Add(DirectCast(ctrl, TextBox))
AddHandler ctrl.TextChanged, AddressOf txtBox_TextChanged
End If
Next
End Sub
With the addition of the collection the first bit of code could be changed to this.
Dim txtSender As TextBox = DirectCast(sender, TextBox)
'Loop through all the textboxes
For Each txt As TextBox In TextBoxCollection
'If txt isn't the control that raised this method and the values
'match raise an error
If txt IsNot txtSender AndAlso txt.Text = txtSender.Text Then
'Add code to raise Error
Exit For
End If
Next
|
|
|
|
|
great man..
thanks for sending such a nice and detailed solution..
but i dont know why, i am not able to get this method.
may be i need a decent R & D on this topic , you gave a good link to study.
and meanwhile without putting my mind into into i am not able to implement this code directly
coz getting some errors and literally having no idea abt them..
as this topic is new to me....
i wanted this validation very immedietly..
nyways i hope your code will be too much helpful for me once i'll come to know the topic...
|
|
|
|
|
Well it doesn't help that I screwed up  This line 'Private TextBoxCollection As List(Of TextBox)' should be 'Private TextBoxCollection As new List(Of TextBox)"
Other then that the code works. It's hard to debug something when you don't fully understand it. It's pretty simple once you get it though. Sorry I don't have any links for you but you may want to research addhandler, and creating control arrays.
The important parts of the code are as follows. The code in the Form Load event loops through ALL the controls directly on the form. What I mean by that is it won't include controls that may be inside a panel or other container. If your textboxes are located in a panel and not on the form you should use Panel1.controls (or whatever applies) instead of me.controls. It tests each control it finds to see if its a textbox. If it is, it adds it to the collection and adds a handler for the TextChanged event. The method txtBox_TextChanged is required for this to work. Basically what it does is says when the TextChanged event for this control fires run this procedure.
The other code I gave you loops through the collection and compares the text in the current textbox with that of all the other textboxes. This code should probably go in the validation event. If you want it could be put in the TextChanged event instead. What also just occured to me is I forgot to post the txtBox_TextChanged method. This is one way you could do it.
Private Sub txtBox_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
Dim txtSender As TextBox = DirectCast(sender, TextBox)
'Loop through all the textboxes
For Each txt As TextBox In TextBoxCollection
'If txt isn't the control that raised this method and the values
'match raise an error
If txt IsNot txtSender AndAlso txt.Text = txtSender.Text Then
'Add code to raise Error
Console.WriteLine("Matched")
Exit For
End If
Next
End Sub
If you add this method to your code with the form load code you should have something that works without error. Sorry, I left out the necessary method before.
|
|
|
|
|
well its still giving the same errors as previous..
its still givingg error at 1. list(of textbox) 2. txtbox_textchanged
3. isnot textsender line.
m sending u the code as i am implementing it and as u have told..
jst check it out..
may be m inplementing it incorrectly...
if possible please run it and send me the full code of program, i am gonna insert it directly...
that woulds be an appreciable help to me...
thanks..
Private TextBoxCollection As new List(Of TextBox)' giving error<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
For Each ctrl As Control In Me.Controls<br />
If TypeOf ctrl Is TextBox Then<br />
TextBoxCollection.Add(DirectCast(ctrl, TextBox))<br />
AddHandler ctrl.TextChanged, AddressOf txtBox_TextChanged<br />
End If<br />
Next<br />
<br />
End Sub<br />
<br />
Private Sub txtBox_TextChanged(ByVal sender As Object, ByVal e As EventArgs)<br />
Dim txtSender As TextBox = DirectCas(sender,TextBox) For Each txt As TextBox In TextBoxCollection <br />
If txt IsNot txtSender AndAlso txt.Text = txtSender.Text Then ' this whole line is giving errror <br />
Console.WriteLine("Matched")<br />
Exit For<br />
End If<br />
Next<br />
End Sub
|
|
|
|
|
Change this:
manni_n wrote: Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
To:
Private Sub txtBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Also what version of Visual Studio are you using. List(Of) is new in .net 2.0. If you are running a version before 2005 you may not have that class. Try using an arraylist instead.
Private TextBoxCollection As New ArrayList
|
|
|
|
|
i modified the code check it....
i did in this way only but still list(of textbox) and isnot line are giving errors.
|
|
|
|
|
Check my last post again...I made a modification. Also what is the error your getting with the IsNot line. I don't know when IsNot was added but perhaps you should try 'Not txt is txtSender' instead
|
|
|
|
|
this code is not workin man, its flying...
great job...
i am really thankful to ya alot...
now i think i can frealy go for a sleep...
i was tryn differnt logics for this validations from last 10 hours..
feeling gud now..
bubye buddy..
thanks again and gud night.
|
|
|
|
|
there is one more problem in it...
suppose in textbox1 i have filled integer 3
and in textbox2 i have to fill 31, so the moment i press 3 in textbox2 it will show the error that same value...
it wont wait for the 1 to get typed...
|
|
|
|
|
Yup, thats right. I recomend the validation event. Personally I wouldn't validate text in the manner you want as it changes for the very reason you are now experiencing. What you need to do is create a new procedure to handle the validation event. This is the declaration of that procedure.
Private Sub txtBox_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
End Sub
You should move the validation code into this procedure. Then you'll need to change the addhandler statement. The event should be validating and the part that goes after addressof should be the name of the procedure ie. txtBox_Validating. The validating event fires just before the focus changes. In the validating event you can use e.cancel = true to prevent focus from leaving the textbox. So if the text isn't validated you can display a message and cancel the change of focus.
One more thing. Use this
If not txt Is txtSender AndAlso txt.Text = txtSender.Text AndAlso txt.Text <> "" Then instead of the current line you have otherwise validation will fail if a textbox is empty because other textbox's are empty. I should have changed that earlier. I forgot to mention it.
|
|
|
|
|
yeah i had done this thing of validating the empty textbox...
but i am affraid this e.cancel = true is not working dude...
i am using VS 2003. i think this code must be valid in 2005.
only this thing is stucked rest everything is running fine....
any other method u might be having...
|
|
|
|
|
Sorry, that's the only event I know of. I've never used 2003 so I'm not aware of the differences but it does work in 2005. If it's not working for you I'm not sure what to do. I think that's still the right place to do the validation however. You'll just have to come up with a workaround. For one, calling a controls focus method will make that control active. So you could do that inside the validating event if validation fails. At least that way you can bring the users attention back to that control.
|
|
|
|
|
no buddy, i have checked every second method which i was knowing, to do this
validation.
i also tried to used gotfocus validation of textbox.but i think every effort went into vein.
as i am using back end also so i tried to validate this through backend validation.
like if the value in the textbox is same then it wont enter in DB and gives an error. But i think this will be the bad logic..
i cant do anything as i am left with this only...
nyways after using your method fully now i am only stuck at this problem, my every second problem is solved by you reagardin this..the only thing left is it shud not validate untill the user moves to other controll.
sending u the code agian jst have alook and check out if something can be done or not....
nyways thanks....
you really helped alot , i'll make sure in future that i could help you in some way and repay you...
Public class form1<br />
Inherits System.Windows.Forms.Form<br />
Private TextBoxCollection As New ArrayList<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
For Each ctrl As Control In Me.Controls<br />
If TypeOf ctrl Is TextBox Then<br />
TextBoxCollection.Add(DirectCast(ctrl, TextBox))<br />
AddHandler ctrl.TextChanged, AddressOf txtvalidate_validating<br />
'e.cancel = True<br />
End If<br />
Next<br />
<br />
End Sub<br />
Private Sub txtvalidate_validating(ByVal sender As Object, ByVal e As EventArgs)<br />
<br />
Dim txtSender As TextBox = DirectCast(sender, TextBox) <br />
For Each txt As TextBox In TextBoxCollection <br />
If Not txt Is txtSender AndAlso txt.Text = txtSender.Text AndAlso txt.Text <> "" Then<br />
CType(sender, TextBox).Text = CStr(txt.Text)<br />
MsgBox("You have already filled this value")<br />
Exit For<br />
End If<br />
Next<br />
<br />
End Sub<br />
|
|
|
|
|
Okay I see the mistake. Well I assume it's a mistake. Maybe you reverted back to using the TextChanged event because you couldn't get it to work, but I'll assume for the moment you didn't. When you use AddHandler you never changed the event that would be handled.
The following line
AddHandler ctrl.TextChanged, AddressOf txtvalidate_validating
Should be:
AddHandler ctrl.Validating, AddressOf txtvalidate_validating
The portion after Addhandler is the event that gets handled. The portion after addressof is the method that does the handling. In this case we want to handle the validating event which is the change I made above.
e.cancel = true should occur when validation fails. Also you changed the parameters for the txtValidate_Validating procedure. Probably because you were getting errors do to the fact that the event you were trying to handle was the TextChanged event and not the validating event.
The final code should be this:
Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
Private TextBoxCollection As New ArrayList<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
For Each ctrl As Control In Me.Controls<br />
If TypeOf ctrl Is TextBox Then<br />
TextBoxCollection.Add(DirectCast(ctrl, TextBox))<br />
AddHandler ctrl.Validating, AddressOf txtvalidate_validating<br />
End If<br />
Next<br />
End Sub<br />
<br />
Private Sub txtvalidate_validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)<br />
Dim txtSender As TextBox = DirectCast(sender, TextBox)<br />
For Each txt As TextBox In TextBoxCollection<br />
If Not txt Is txtSender AndAlso txt.Text = txtSender.Text AndAlso txt.Text <> "" Then<br />
MsgBox("You have already filled this value")<br />
e.Cancel = True<br />
Exit For<br />
End If<br />
Next<br />
End Sub<br />
End Class
If there is a problem with this code it's because of differences in 2003 vs 2005. But this code works perfectly under 2005.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
