Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Form2.Show()
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- Form4.Show()
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- Form5.Show()
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Form6.Show()
- End Sub
- End Class
- Public Class Form2
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- WebBrowser1.Navigate(TextBox1.Text)
- End Sub
- 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
- Form3.Show()
- End Sub
- Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
- TextBox1.Text = WebBrowser1.Url.ToString
- End Sub
- End Class
- Public Class Form3
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- ColorDialog1.ShowDialog()
- Form2.BackColor = ColorDialog1.Color
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Form2.Opacity = 0.5
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- Form2.Opacity = 1.0
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- MsgBox("Multifunktion by Julian A. aka. [GTA-U]Das Brot //Version 1.0")
- End Sub
- Public Class Form4
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- My.Settings.Notizen = TextBox1.Text
- My.Settings.Save()
- My.Settings.Reload()
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- TextBox1.Clear()
- End Sub
- Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- TextBox1.Text = My.Settings.Notizen
- End Sub
- End Class
- Public Class Form5
- Private Const HWND_TOPMOST = -1
- Private Const SWP_NOMOVE = &H2
- Private Const SWP_NOSIZE = &H1
- Private Const HWND_NOTOPMOST = -2
- Private Const SWP_SHOWWINDOW = &H40
- Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
- Private Sub setwinPos(ByVal frmform As Form, ByVal bolSetToForeground As Boolean)
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If TextBox1.Text = "Multifunktion" Then
- End
- Else
- MsgBox("Falsches Passwort !")
- End If
- End Sub
- Private Sub Form5_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)
- e.Cancel = True
- Shell("exe")
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Name = "taskmgr.exe"
- For Each taskmgr In Process.GetProcessesByName("taskmgr")
- taskmgr.Kill()
- Next
- Call setwinPos(Me, True)
- End Sub
- End Class
- Public Class Form6
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- TextBox1.Text += "1"
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- TextBox1.Text += "2"
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- TextBox1.Text += "3"
- End Sub
- Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
- TextBox1.Text += "4"
- End Sub
- Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
- TextBox1.Text += "5"
- End Sub
- Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
- TextBox1.Text += "6"
- End Sub
- Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
- TextBox1.Text += "7"
- End Sub
- Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
- TextBox1.Text += "8"
- End Sub
- Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
- TextBox1.Text += "9"
- End Sub
- Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
- TextBox1.Text += "0"
- End Sub
- Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
- TextBox1.Text += ","
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- My.Settings.zahl = TextBox1.Text
- TextBox1.Text = ""
- My.Settings.pmmg = "+"
- End Sub
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- My.Settings.zahl = TextBox1.Text
- TextBox1.Text = ""
- My.Settings.pmmg = "-"
- End Sub
- Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
- My.Settings.zahl = TextBox1.Text
- TextBox1.Text = ""
- My.Settings.pmmg = "*"
- End Sub
- Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
- My.Settings.zahl = TextBox1.Text
- TextBox1.Text = ""
- My.Settings.pmmg = "/"
- End Sub
- Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
- My.Settings.zahl = ""
- My.Settings.pmmg = ""
- TextBox1.Text = ""
- End Sub
- Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
- If My.Settings.pmmg = "+" Then
- TextBox1.Text = Val(My.Settings.zahl) + Val(TextBox1.Text)
- End If
- If My.Settings.pmmg = "-" Then
- TextBox1.Text = Val(My.Settings.zahl) - Val(TextBox1.Text)
- End If
- If My.Settings.pmmg = "*" Then
- TextBox1.Text = Val(My.Settings.zahl) * Val(TextBox1.Text)
- End If
- If My.Settings.pmmg = "/" Then
- TextBox1.Text = Val(My.Settings.zahl) / Val(TextBox1.Text)
- End If
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement