I have logged into my app as admin which allows me to change the database
setting on my Form2.
I change them and hit Apply. The changes in UserName.Text, Password.Text,
Database.Text and Server.Text have changed and I want to use them in 4 text
Boxes named the same in Form3. I cannot seem to do it unless I do a
form3.Show Why? I do not do a Form3.Show until I hit the button to load
Form3. These settings need to be set dynamically like this.
I also need them to apply to Form1 when I hit this apply button. How do I
make the values I have set transfer over so that they are there by the time I
hit the form3.Show button
code as follows:
Private Sub btnApply_Click( ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnApply.Click
Dim frmMISRoutine As New Routines
frmMISRoutine.U serName.Text = UserName.Text
MessageBox.Show (UserName.Text)
MessageBox.Show (frmMISRoutine. UserName.Text)
Me.ClientSize = New System.Drawing. Size(584, 435)
pnlProperties.V isible = False
btnProperties.E nabled = True
btnApply.Visibl e = False
btnCancel.Visib le = False
sbMIS.Text = "Use buttons to navigate the application (e.g.)
[Properties sets the database and log parameters]."
PollDirectory = txtPollDirector y.Text
End Sub
setting on my Form2.
I change them and hit Apply. The changes in UserName.Text, Password.Text,
Database.Text and Server.Text have changed and I want to use them in 4 text
Boxes named the same in Form3. I cannot seem to do it unless I do a
form3.Show Why? I do not do a Form3.Show until I hit the button to load
Form3. These settings need to be set dynamically like this.
I also need them to apply to Form1 when I hit this apply button. How do I
make the values I have set transfer over so that they are there by the time I
hit the form3.Show button
code as follows:
Private Sub btnApply_Click( ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnApply.Click
Dim frmMISRoutine As New Routines
frmMISRoutine.U serName.Text = UserName.Text
MessageBox.Show (UserName.Text)
MessageBox.Show (frmMISRoutine. UserName.Text)
Me.ClientSize = New System.Drawing. Size(584, 435)
pnlProperties.V isible = False
btnProperties.E nabled = True
btnApply.Visibl e = False
btnCancel.Visib le = False
sbMIS.Text = "Use buttons to navigate the application (e.g.)
[Properties sets the database and log parameters]."
PollDirectory = txtPollDirector y.Text
End Sub