For some reason the opacity is not applying. It will ajust from 50 to 100 but not from 100 to 50. I have a checkbox in place to do this. Here is my code:
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
Me.Opacity = 50
Exit Sub
End If
If CheckBox2.Checked = False Then
Me.Opacity = 100
Exit Sub
End If
End Sub
End Class
Part 2: The Open Box
John Askew
instead of Me.SaveFileDialog1.FileName
abbarron
Right. I dont want to clog up the forum with tons of threads but I have another problem. I have a open system set up like this to open a file and load it into a text box:
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Dim FormBob As New Form1
FormBob.Show()
FormBob.OpenFileDialog1.Filter = "Saved notes|*.ipn"
FormBob.OpenFileDialog1.ShowDialog()
If FormBob.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim sr As New System.IO.StreamReader(FormBob.OpenFileDialog1.FileName)
FormBob.TextBox1.Text = sr.ReadToEnd
sr.Close()
End If
End Sub
When I open the file the box will not close but it is loaded. I have also tried
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Try
Me.TextBox1.Text = My.Computer.FileSystem.ReadAllText(Me.SaveFileDialog1.FileName)
Catch fileException As Exception
Throw fileException
End Try
End If
End Sub
which just throws out an error. What can I do
Whatonly
The open box still does not dissapear when I click Open though. And by default it says OpenFileDialogBox in the File Name field.
Oh and that was a typo on the savefiledialog.
Waiman Li
Nicolas B.