|
Exactly the issues so many developers suffer from these days. Three or four clicks on a Wizard and you have a working application, but absolutely no idea how it works.
|
|
|
|
|
Hi again guys,
I am now using the following For Each in my code. I think this is what you are on about regarding looping. Please set me right if I am off path here.
However, if it is right, I am still only getting one address into the mail.to field.
If CheckBox1.Checked = True Then
For Each dr As DataRow In myDataTable.Rows
mailMessage.To.Add(New MailAddress(dr.Item(0).ToString))
Next
Else
mailMessage.To.Add(New MailAddress(EmailTextBox.Text.Trim()))
End If
Thanks in advance.
|
|
|
|
|
I have just tested something similar, although C# rather than VB.NET and it works correctly. You will need to use your debugger to step through the code and discover why the second item does not get added.
|
|
|
|
|
Late but might still help. I am going to assume a few things and then also use code as an example to simplify the possible solution.
Assumptions:
In your DB you probably have a table for Members and another table for EmailMsg (to be distributed to Members)
'Lets assume all Members
Your SQL query will be
"SELECT * FROM DB.Members"
'Lets assume Email based on Subject
Your SQL query will be
"Select * FROM DB.MailMsg WHERE Subject = 'How do I'"
Run the first query against the database to get all the Members and populate your dataset (DBData)
Now populate the "MailTo" textbox:
For i = 0 to DBData.rows - 1
MailTo.AppendText(DBData.rows(i).Item(0) & ";")
Instead of the AppendText option, you can use the "ScrollToCaret" option, but I much prefer the AppendToText option.
To populate the the "Subject" textbox and "EmailMessage" textbox is done exactly the same except you do not need to iterate through the dataset because there should only be one EmailMsg in there. You might want to use the Multiline option in your textbox containing the mail message you wish to distribute.
Good luck and try to stay away from automated Wizards, they really don't teach you anything good.
Regards,
Tino
"Plan your work, Work your plan"
|
|
|
|
|
Hello !
I have a main form . And 2 other forms ( Form2 , Form3).
I want that when Form2 is open should be over the main form.And when form3 is open should be over the Form3 and Main form. ( But the forms should have this behavior only inside the application , so when a other window for example Windows explorer is open , the forms should be behind)
And when the user press the minimize button on main form , all the forms should be minimized on taskbar.
I realize this scenario with Main form and Form2 . Form2 is open with Form2.Show(owner)
But I can't do it with Form3 , because when I click to form2 , the Form3 goes behind.
What can I do ?
Thank you !
|
|
|
|
|
|
Thank you, but I don't want to use Tabcontrol.
There's anything that I can do with forms ?
Thank you !
modified 2-Apr-14 9:59am.
|
|
|
|
|
Who said anything about a "grid control"??
|
|
|
|
|
|
You really don't have to do much at all to get this to work.
Notice that the Form.Show() method has two possibilites? One is no parameter at all:
Dim newForm As New Form2()
newForm.Show()
The override version of this takes an IWin32Window argument. This is the form that owns the new child window and will result in you getting what you want when you minimize your parent form:
Dim newForm As New Form2()
newForm.Show(Me)
|
|
|
|
|
This works with 2 forms , Form1 and Form2.
But doesn't work when I try with form3.
This is the Situation
Form1 is open.
Form2 is open , and has a button that open form3.
If on the button's onclick event :
1) I try : Form3.show(Me) - when I press the minimize button on form 1 , the form 3 is not minimized.( all the form should minimized when I click minimize button on Form1. )
2) I try Form3.show(Form1) - The minimize process is ok , but if I click anywhere on Form2 , the form3 goes behind Form2. I want 3 forms to have this rule : Form2 on top of Form1 , Form3 on top on form1 and form2.( And form3 can be closed before form2 )
What can I do ?
modified 2-Apr-14 12:14pm.
|
|
|
|
|
dilkonika wrote: Form2 on top of Form1 , Form3 on top on form1 and form2 Show them as a dailog, if that is their purpose.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
if a show them as dialog , I can't minimize all the forms when pressing minimize button on Form1.
|
|
|
|
|
That's how it should be; that's how Windows works. You can maximize the app, not each individual window. If they're not a dialog, then they can be focussed.
I'd recommend researching how the default Windows work (and why, and why the user gets frustrated if you change the default behaviour), as opposed to trying to get your custom z-order.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
myForm3.ShowDialog()
or
myForm3.ShowDialog(Me)
Again, read the documentation on the Form class and it's methods.
|
|
|
|
|
if a show them as dialog , I can't minimize all the forms when pressing minimize button on Form1.
|
|
|
|
|
OK, so do you have any clue on how to experiment?? This took me all of about a minute to code:
Form1:
Dim frm As New Form2()
frm.MyTopLevelForm = Me
frm.Show(Me)
Form2:
Public MyTopLevelForm As Form
.
.
.
Dim frm As New Form3()
frm.Show(MyTopLevelForm)
|
|
|
|
|
Thank you !
But again ,the minimize process is ok , but if I click on form2 , the form 3 goes behind and doesn't stay on top.
|
|
|
|
|
I have no idea how you really want this to work.
All you've done is "that's nice but I want it to do this", "that's nice, but now I want that", "now I want this"...
Sorry, but you've been given the tools to experiment with. Start experimenting.
I've got my own 50,000 line app to deal with.
|
|
|
|
|
To be clear :
I have form1 , Form2 , Form3.
Form1 is open first , Form2 is open from a button on form1 , Form3 is open from a button in form2.
I want that :
- When the form2 is open , Form2 is over Form1.
- When Form3 is open , Form3 is over Form2 and Over Form1.
- This behavior is only inside application . If another window is open for example Windows explorer , all my forms should goes behind.
- If the 3 forms are open , if I press minimize button on form1 , all the forms should minimized on taskbar.
- And when the 3 forms are open they should be closed in this mode : Form3 first , Form2 and Form1.
It's clear now ?
I try different ways , but I can't realize. ( with 2 forms I have done very easy , but with 3 forms I can't do it).
It's not an experiment. I have a situation where I need this.
Thank you !
|
|
|
|
|
dilkonika wrote: It's not an experiment. I have a situation where I need this.
No, I said this is where you come up with a small test project and experiment for yourself! It's the best way to learn.
|
|
|
|
|
Create a WindowStateChanged event for your forms (you may need to override WndProc to get the underlying Windows message WM_SYSCOMMAND SC_MINIMIZE etc). Child forms need to subscribe to that event of their parent form and react appropriately.
Also look at the TopLevel property of the forms.
|
|
|
|
|
This is quite an interesting problem. To get the desired Z-order then the main form must own Form2 and Form2 must own Form3. Having set that up we find that Form3 is unaffected by minimization of the MainForm/Form2 pair.
Form3 needs to be linked to Form2 in some way, but how? My first guess was to try the SizeChanged event but found that Form2 does not raise SizeChanged when MainForm is minimized. Next guess was the LocationChanged event but it's not that either. However VisibleChanged is raised by Form2 when MainForm minimizes or restores. So Form2 is hidden when MainForm is minimized and the solution to the problem becomes clear.
Form3 could subscribe to the VisibleChanged event of Form2 and set it's visibility but I chose to do it in a different way. In the test code Form2 hides/shows all the forms in it's OwnedForms collection in response to the VisibleChanged event.
Test code
=========
Private Sub CreatePopups()
Dim f2 As New Form()
f2.Text = "First Popup"
AddHandler f2.VisibleChanged, AddressOf Form_VisibleChanged
f2.Show(Me)
Dim f3 As New Form()
f3.Text = "Second Popup"
f3.Show(f2)
End Sub
Private Sub Form_VisibleChanged(sender As Object, e As EventArgs)
Dim f As Form = DirectCast(sender, Form)
For Each ownedForm As Form In f.OwnedForms
ownedForm.Visible = f.Visible
Next
End Sub
Alan.
|
|
|
|
|
Finally , Resolved.
Thank you !
|
|
|
|
|