Advertisement
Guest User

Multifunktion

a guest
Mar 2nd, 2012
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 7.54 KB | None | 0 0
  1. Public Class Form1
  2.  
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.         Form2.Show()
  5.     End Sub
  6.  
  7.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  8.         Form4.Show()
  9.     End Sub
  10.  
  11.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  12.         Form5.Show()
  13.     End Sub
  14.  
  15.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  16.         Form6.Show()
  17.     End Sub
  18. End Class
  19. Public Class Form2
  20.  
  21.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  22.         WebBrowser1.Navigate(TextBox1.Text)
  23.     End Sub
  24.  
  25.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  26.         WebBrowser1.GoBack()
  27.     End Sub
  28.  
  29.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  30.         WebBrowser1.GoForward()
  31.     End Sub
  32.  
  33.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  34.         Form3.Show()
  35.     End Sub
  36.     Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
  37.         TextBox1.Text = WebBrowser1.Url.ToString
  38.     End Sub
  39. End Class
  40. Public Class Form3
  41.  
  42.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  43.         ColorDialog1.ShowDialog()
  44.         Form2.BackColor = ColorDialog1.Color
  45.     End Sub
  46.  
  47.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  48.         Form2.Opacity = 0.5
  49.     End Sub
  50.  
  51.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  52.         Form2.Opacity = 1.0
  53.     End Sub
  54.  
  55.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  56.         MsgBox("Multifunktion by Julian A. aka. [GTA-U]Das Brot //Version 1.0")
  57.     End Sub
  58. Public Class Form4
  59.  
  60.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  61.         My.Settings.Notizen = TextBox1.Text
  62.         My.Settings.Save()
  63.         My.Settings.Reload()
  64.     End Sub
  65.  
  66.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  67.         TextBox1.Clear()
  68.     End Sub
  69.  
  70.     Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  71.         TextBox1.Text = My.Settings.Notizen
  72.     End Sub
  73. End Class
  74. Public Class Form5
  75.     Private Const HWND_TOPMOST = -1
  76.     Private Const SWP_NOMOVE = &H2
  77.     Private Const SWP_NOSIZE = &H1
  78.     Private Const HWND_NOTOPMOST = -2
  79.     Private Const SWP_SHOWWINDOW = &H40
  80.     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
  81.     Private Sub setwinPos(ByVal frmform As Form, ByVal bolSetToForeground As Boolean)
  82.     End Sub
  83.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  84.         If TextBox1.Text = "Multifunktion" Then
  85.             End
  86.         Else
  87.             MsgBox("Falsches Passwort !")
  88.         End If
  89.     End Sub
  90.  
  91.     Private Sub Form5_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)
  92.         e.Cancel = True
  93.         Shell("exe")
  94.     End Sub
  95.  
  96.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  97.         Name = "taskmgr.exe"
  98.         For Each taskmgr In Process.GetProcessesByName("taskmgr")
  99.             taskmgr.Kill()
  100.  
  101.         Next
  102.         Call setwinPos(Me, True)
  103.     End Sub
  104. End Class
  105. Public Class Form6
  106.  
  107.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  108.         TextBox1.Text += "1"
  109.     End Sub
  110.  
  111.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  112.         TextBox1.Text += "2"
  113.     End Sub
  114.  
  115.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  116.         TextBox1.Text += "3"
  117.     End Sub
  118.  
  119.     Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
  120.         TextBox1.Text += "4"
  121.     End Sub
  122.  
  123.     Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
  124.         TextBox1.Text += "5"
  125.     End Sub
  126.  
  127.     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
  128.         TextBox1.Text += "6"
  129.     End Sub
  130.  
  131.     Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
  132.         TextBox1.Text += "7"
  133.     End Sub
  134.  
  135.     Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
  136.         TextBox1.Text += "8"
  137.     End Sub
  138.  
  139.     Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
  140.         TextBox1.Text += "9"
  141.     End Sub
  142.  
  143.     Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
  144.         TextBox1.Text += "0"
  145.     End Sub
  146.  
  147.     Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
  148.         TextBox1.Text += ","
  149.     End Sub
  150.  
  151.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  152.         My.Settings.zahl = TextBox1.Text
  153.         TextBox1.Text = ""
  154.         My.Settings.pmmg = "+"
  155.     End Sub
  156.  
  157.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  158.         My.Settings.zahl = TextBox1.Text
  159.         TextBox1.Text = ""
  160.         My.Settings.pmmg = "-"
  161.     End Sub
  162.  
  163.     Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
  164.         My.Settings.zahl = TextBox1.Text
  165.         TextBox1.Text = ""
  166.         My.Settings.pmmg = "*"
  167.     End Sub
  168.  
  169.     Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
  170.         My.Settings.zahl = TextBox1.Text
  171.         TextBox1.Text = ""
  172.         My.Settings.pmmg = "/"
  173.     End Sub
  174.  
  175.     Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
  176.         My.Settings.zahl = ""
  177.         My.Settings.pmmg = ""
  178.         TextBox1.Text = ""
  179.     End Sub
  180.  
  181.     Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
  182.         If My.Settings.pmmg = "+" Then
  183.             TextBox1.Text = Val(My.Settings.zahl) + Val(TextBox1.Text)
  184.         End If
  185.         If My.Settings.pmmg = "-" Then
  186.             TextBox1.Text = Val(My.Settings.zahl) - Val(TextBox1.Text)
  187.         End If
  188.         If My.Settings.pmmg = "*" Then
  189.             TextBox1.Text = Val(My.Settings.zahl) * Val(TextBox1.Text)
  190.         End If
  191.         If My.Settings.pmmg = "/" Then
  192.             TextBox1.Text = Val(My.Settings.zahl) / Val(TextBox1.Text)
  193.         End If
  194.     End Sub
  195. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement