2011+S2+Joel+Boorman+HH+and+Presentation

//__Presentation__//

//__Seminar Report__//

__//Handy Hint 1: Saving the Contents of a Combo Box//__ Dim filename, box as String filename = "output.txt" box = " "

SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.Ok Then SaveFileDialog1.InitialDirectory = CurDir SaveFileDialog1.Filter = "Text Files(*.txt) | *.txt | All files (*.*) | *.*" SaveFileDialog1.FilterIndex = 1 SaveFileDialog.Filename = filename

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.Ok then FileOpen(1, filename, OpenMode.Output)

While Not EOF(1) Input(1, box) cboBox.Items.Add(box) End While FileClose(1) Else

Messagebox.show("No File was Found! Try again!", "No File!", MessageBoxButtons.OK, MessageBoxIcon.Error)

End If End Sub __//Handy Hint 2: Select Last Index in a Combo Box//__ cboTest.SelectedIndex = cboTest.Items.Count - 1


 * Note that this will only work if there is data in the combo box*
 * ' Note: This is also a comment Lewis '**