|
CODE:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.GoBack()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.GoForward()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WebBrowser1.Navigate(TextBox1.Text)
WebBrowser6.Navigate(TextBox2.Text)
Button26.Text = TextBox1.Text
Button27.Text = TextBox2.Text
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Form2.Show()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button27.Hide()
TextBox2.Hide()
WebBrowser6.Hide()
End Sub
Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Button26.Show()
TextBox2.Show()
WebBrowser6.Show()
End Sub
Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
Button27.Hide()
TextBox2.Hide()
WebBrowser6.Hide()
TextBox1.Show()
WebBrowser1.Show()
End Sub
End Class
und "Einstellungen" code:
Public Class Form2
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ColorDialog1.ShowDialog()
Form1.BackColor = ColorDialog1.Color
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form1.Opacity = 0.75
End Sub
End Class
|