API tools faq
paste
Advertisement
Guest User

Skinauswahl Generator Projekt

a guest
Dec 26th, 2012
80
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 20.49 KB | None | 0 0
raw download clone embed print report
  1. <- MAIN ->
  2. Public Class Main
  3.     Public Shared Code As String = Nothing
  4. End Class
  5.  
  6. <- FRM_MAIN ->
  7. Imports System.Net
  8. Public Class Frm_Main
  9.  
  10.     Private Sub TB_Generate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB_Generate.Click
  11.         Dim _NET As New WebClient
  12.         Main.Code = Nothing
  13.         Try
  14.             Main.Code &= "  // Der nachfolgende Code wurde mithilfe des Skinauswahl Generators erstellt." & vbCrLf & "  // Er ist im deutschen SA:MP Forum unter folgender URL zu finden: " & _NET.DownloadString("http://www.GD-SH.tk/_SAGFURL.txt") & vbCrLf
  15.         Catch ex As Exception
  16.             Main.Code &= "  // Der nachfolgende Code wurde mithilfe des Skinauswahl Generators erstellt." & vbCrLf & "  // Er ist im deutschen SA:MP Forum unter folgender URL zu finden: n/A" & vbCrLf
  17.         End Try
  18.         For i As Integer = 0 To 299 Step 1
  19.             If (Not (i) = 299) Then
  20.                 Main.Code &= "  AddPlayerClass(%SKIN%, %X%, %Y%, %Z%, %ANGLE%, %W1%, %AW1%, %W2%, %AW2%, %W3%, %AW3%);".Replace("%SKIN%", i).Replace("%X%", TB_X.Text).Replace("%Y%", TB_Y.Text).Replace("%Z%", TB_Z.Text).Replace("%ANGLE%", TB_Angle.Text).Replace("%W1%", TB_Weapon_1.Text).Replace("%AW1%", TB_Ammo_Weapon_1.Text).Replace("%W2%", TB_Weapon_2.Text).Replace("%AW2%", TB_Ammo_Weapon_2.Text).Replace("%W3%", TB_Weapon_3.Text).Replace("%AW3%", TB_Ammo_Weapon_3.Text) & vbCrLf
  21.             Else
  22.                 Main.Code &= "  AddPlayerClass(%SKIN%, %X%, %Y%, %Z%, %ANGLE%, %W1%, %AW1%, %W2%, %AW2%, %W3%, %AW3%);".Replace("%SKIN%", i).Replace("%X%", TB_X.Text).Replace("%Y%", TB_Y.Text).Replace("%Z%", TB_Z.Text).Replace("%ANGLE%", TB_Angle.Text).Replace("%W1%", TB_Weapon_1.Text).Replace("%AW1%", TB_Ammo_Weapon_1.Text).Replace("%W2%", TB_Weapon_2.Text).Replace("%AW2%", TB_Ammo_Weapon_2.Text).Replace("%W3%", TB_Weapon_3.Text).Replace("%AW3%", TB_Ammo_Weapon_3.Text)
  23.             End If
  24.         Next
  25.         Me.Enabled = False
  26.         Frm_Result.Show()
  27.     End Sub
  28. End Class
  29.  
  30. <- FRM_MAIN DESIGN ->
  31. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  32. Partial Class Frm_Main
  33.     Inherits System.Windows.Forms.Form
  34.  
  35.     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
  36.     <System.Diagnostics.DebuggerNonUserCode()> _
  37.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  38.         Try
  39.             If disposing AndAlso components IsNot Nothing Then
  40.                 components.Dispose()
  41.             End If
  42.         Finally
  43.             MyBase.Dispose(disposing)
  44.         End Try
  45.     End Sub
  46.  
  47.     'Wird vom Windows Form-Designer benötigt.
  48.     Private components As System.ComponentModel.IContainer
  49.  
  50.     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
  51.     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
  52.     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
  53.     <System.Diagnostics.DebuggerStepThrough()> _
  54.     Private Sub InitializeComponent()
  55.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Main))
  56.         Me.Lbl_Description = New System.Windows.Forms.Label()
  57.         Me.TB_Skin = New System.Windows.Forms.TextBox()
  58.         Me.Lbl_Skin = New System.Windows.Forms.Label()
  59.         Me.Lbl_X = New System.Windows.Forms.Label()
  60.         Me.TB_X = New System.Windows.Forms.TextBox()
  61.         Me.Lbl_Z = New System.Windows.Forms.Label()
  62.         Me.TB_Z = New System.Windows.Forms.TextBox()
  63.         Me.Lbl_Y = New System.Windows.Forms.Label()
  64.         Me.TB_Y = New System.Windows.Forms.TextBox()
  65.         Me.Lbl_Angle = New System.Windows.Forms.Label()
  66.         Me.TB_Angle = New System.Windows.Forms.TextBox()
  67.         Me.Lbl_Ammo_Weapon_2 = New System.Windows.Forms.Label()
  68.         Me.TB_Ammo_Weapon_2 = New System.Windows.Forms.TextBox()
  69.         Me.Lbl_Weapon_2 = New System.Windows.Forms.Label()
  70.         Me.TB_Weapon_2 = New System.Windows.Forms.TextBox()
  71.         Me.Lbl_Ammo_Weapon_1 = New System.Windows.Forms.Label()
  72.         Me.TB_Ammo_Weapon_1 = New System.Windows.Forms.TextBox()
  73.         Me.Lbl_Weapon_1 = New System.Windows.Forms.Label()
  74.         Me.TB_Weapon_1 = New System.Windows.Forms.TextBox()
  75.         Me.TB_Generate = New System.Windows.Forms.Button()
  76.         Me.Lbl_Ammo_Weapon_3 = New System.Windows.Forms.Label()
  77.         Me.TB_Ammo_Weapon_3 = New System.Windows.Forms.TextBox()
  78.         Me.Lbl_Weapon_3 = New System.Windows.Forms.Label()
  79.         Me.TB_Weapon_3 = New System.Windows.Forms.TextBox()
  80.         Me.SuspendLayout()
  81.         '
  82.         'Lbl_Description
  83.         '
  84.         Me.Lbl_Description.AutoSize = True
  85.         Me.Lbl_Description.Location = New System.Drawing.Point(12, 9)
  86.         Me.Lbl_Description.Name = "Lbl_Description"
  87.         Me.Lbl_Description.Size = New System.Drawing.Size(534, 28)
  88.         Me.Lbl_Description.TabIndex = 0
  89.         Me.Lbl_Description.Text = "Herzlich willkommen im Skinauswahl Generator." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Nachfolgend findest du einige Text" & _
  90.             "boxen, welche du ausfüllen musst, damit der Code generiert werden kann."
  91.         '
  92.         'TB_Skin
  93.         '
  94.         Me.TB_Skin.Location = New System.Drawing.Point(111, 54)
  95.         Me.TB_Skin.Name = "TB_Skin"
  96.         Me.TB_Skin.ReadOnly = True
  97.         Me.TB_Skin.Size = New System.Drawing.Size(69, 20)
  98.         Me.TB_Skin.TabIndex = 0
  99.         Me.TB_Skin.TabStop = False
  100.         Me.TB_Skin.Text = "n/A"
  101.         '
  102.         'Lbl_Skin
  103.         '
  104.         Me.Lbl_Skin.AutoSize = True
  105.         Me.Lbl_Skin.Location = New System.Drawing.Point(12, 57)
  106.         Me.Lbl_Skin.Name = "Lbl_Skin"
  107.         Me.Lbl_Skin.Size = New System.Drawing.Size(39, 14)
  108.         Me.Lbl_Skin.TabIndex = 0
  109.         Me.Lbl_Skin.Text = "Skin ID"
  110.         '
  111.         'Lbl_X
  112.         '
  113.         Me.Lbl_X.AutoSize = True
  114.         Me.Lbl_X.Location = New System.Drawing.Point(12, 82)
  115.         Me.Lbl_X.Name = "Lbl_X"
  116.         Me.Lbl_X.Size = New System.Drawing.Size(62, 14)
  117.         Me.Lbl_X.TabIndex = 0
  118.         Me.Lbl_X.Text = "Position ""X"""
  119.         '
  120.         'TB_X
  121.         '
  122.         Me.TB_X.Location = New System.Drawing.Point(111, 79)
  123.         Me.TB_X.Name = "TB_X"
  124.         Me.TB_X.Size = New System.Drawing.Size(69, 20)
  125.         Me.TB_X.TabIndex = 0
  126.         Me.TB_X.TabStop = False
  127.         Me.TB_X.Text = "0.0"
  128.         '
  129.         'Lbl_Z
  130.         '
  131.         Me.Lbl_Z.AutoSize = True
  132.         Me.Lbl_Z.Location = New System.Drawing.Point(12, 132)
  133.         Me.Lbl_Z.Name = "Lbl_Z"
  134.         Me.Lbl_Z.Size = New System.Drawing.Size(62, 14)
  135.         Me.Lbl_Z.TabIndex = 0
  136.         Me.Lbl_Z.Text = "Position ""Z"""
  137.         '
  138.         'TB_Z
  139.         '
  140.         Me.TB_Z.Location = New System.Drawing.Point(111, 129)
  141.         Me.TB_Z.Name = "TB_Z"
  142.         Me.TB_Z.Size = New System.Drawing.Size(69, 20)
  143.         Me.TB_Z.TabIndex = 0
  144.         Me.TB_Z.TabStop = False
  145.         Me.TB_Z.Text = "0.0"
  146.         '
  147.         'Lbl_Y
  148.         '
  149.         Me.Lbl_Y.AutoSize = True
  150.         Me.Lbl_Y.Location = New System.Drawing.Point(12, 107)
  151.         Me.Lbl_Y.Name = "Lbl_Y"
  152.         Me.Lbl_Y.Size = New System.Drawing.Size(63, 14)
  153.         Me.Lbl_Y.TabIndex = 0
  154.         Me.Lbl_Y.Text = "Position ""Y"""
  155.         '
  156.         'TB_Y
  157.         '
  158.         Me.TB_Y.Location = New System.Drawing.Point(111, 104)
  159.         Me.TB_Y.Name = "TB_Y"
  160.         Me.TB_Y.Size = New System.Drawing.Size(69, 20)
  161.         Me.TB_Y.TabIndex = 0
  162.         Me.TB_Y.TabStop = False
  163.         Me.TB_Y.Text = "0.0"
  164.         '
  165.         'Lbl_Angle
  166.         '
  167.         Me.Lbl_Angle.AutoSize = True
  168.         Me.Lbl_Angle.Location = New System.Drawing.Point(12, 157)
  169.         Me.Lbl_Angle.Name = "Lbl_Angle"
  170.         Me.Lbl_Angle.Size = New System.Drawing.Size(85, 14)
  171.         Me.Lbl_Angle.TabIndex = 0
  172.         Me.Lbl_Angle.Text = "Winkel (""Angle"")"
  173.         '
  174.         'TB_Angle
  175.         '
  176.         Me.TB_Angle.Location = New System.Drawing.Point(111, 154)
  177.         Me.TB_Angle.Name = "TB_Angle"
  178.         Me.TB_Angle.Size = New System.Drawing.Size(69, 20)
  179.         Me.TB_Angle.TabIndex = 0
  180.         Me.TB_Angle.TabStop = False
  181.         Me.TB_Angle.Text = "0.0"
  182.         '
  183.         'Lbl_Ammo_Weapon_2
  184.         '
  185.         Me.Lbl_Ammo_Weapon_2.AutoSize = True
  186.         Me.Lbl_Ammo_Weapon_2.Location = New System.Drawing.Point(190, 129)
  187.         Me.Lbl_Ammo_Weapon_2.Name = "Lbl_Ammo_Weapon_2"
  188.         Me.Lbl_Ammo_Weapon_2.Size = New System.Drawing.Size(150, 14)
  189.         Me.Lbl_Ammo_Weapon_2.TabIndex = 0
  190.         Me.Lbl_Ammo_Weapon_2.Text = "Munition der Waffe 2 (""AW2"")"
  191.         '
  192.         'TB_Ammo_Weapon_2
  193.         '
  194.         Me.TB_Ammo_Weapon_2.Location = New System.Drawing.Point(349, 126)
  195.         Me.TB_Ammo_Weapon_2.Name = "TB_Ammo_Weapon_2"
  196.         Me.TB_Ammo_Weapon_2.Size = New System.Drawing.Size(34, 20)
  197.         Me.TB_Ammo_Weapon_2.TabIndex = 0
  198.         Me.TB_Ammo_Weapon_2.TabStop = False
  199.         Me.TB_Ammo_Weapon_2.Text = "0"
  200.         '
  201.         'Lbl_Weapon_2
  202.         '
  203.         Me.Lbl_Weapon_2.AutoSize = True
  204.         Me.Lbl_Weapon_2.Location = New System.Drawing.Point(190, 104)
  205.         Me.Lbl_Weapon_2.Name = "Lbl_Weapon_2"
  206.         Me.Lbl_Weapon_2.Size = New System.Drawing.Size(81, 14)
  207.         Me.Lbl_Weapon_2.TabIndex = 0
  208.         Me.Lbl_Weapon_2.Text = "Waffe 2 (""W2"")"
  209.         '
  210.         'TB_Weapon_2
  211.         '
  212.         Me.TB_Weapon_2.Location = New System.Drawing.Point(349, 101)
  213.         Me.TB_Weapon_2.Name = "TB_Weapon_2"
  214.         Me.TB_Weapon_2.Size = New System.Drawing.Size(34, 20)
  215.         Me.TB_Weapon_2.TabIndex = 0
  216.         Me.TB_Weapon_2.TabStop = False
  217.         Me.TB_Weapon_2.Text = "0"
  218.         '
  219.         'Lbl_Ammo_Weapon_1
  220.         '
  221.         Me.Lbl_Ammo_Weapon_1.AutoSize = True
  222.         Me.Lbl_Ammo_Weapon_1.Location = New System.Drawing.Point(190, 79)
  223.         Me.Lbl_Ammo_Weapon_1.Name = "Lbl_Ammo_Weapon_1"
  224.         Me.Lbl_Ammo_Weapon_1.Size = New System.Drawing.Size(150, 14)
  225.         Me.Lbl_Ammo_Weapon_1.TabIndex = 0
  226.         Me.Lbl_Ammo_Weapon_1.Text = "Munition der Waffe 1 (""AW1"")"
  227.         '
  228.         'TB_Ammo_Weapon_1
  229.         '
  230.         Me.TB_Ammo_Weapon_1.Location = New System.Drawing.Point(349, 76)
  231.         Me.TB_Ammo_Weapon_1.Name = "TB_Ammo_Weapon_1"
  232.         Me.TB_Ammo_Weapon_1.Size = New System.Drawing.Size(34, 20)
  233.         Me.TB_Ammo_Weapon_1.TabIndex = 0
  234.         Me.TB_Ammo_Weapon_1.TabStop = False
  235.         Me.TB_Ammo_Weapon_1.Text = "0"
  236.         '
  237.         'Lbl_Weapon_1
  238.         '
  239.         Me.Lbl_Weapon_1.AutoSize = True
  240.         Me.Lbl_Weapon_1.Location = New System.Drawing.Point(190, 54)
  241.         Me.Lbl_Weapon_1.Name = "Lbl_Weapon_1"
  242.         Me.Lbl_Weapon_1.Size = New System.Drawing.Size(81, 14)
  243.         Me.Lbl_Weapon_1.TabIndex = 0
  244.         Me.Lbl_Weapon_1.Text = "Waffe 1 (""W1"")"
  245.         '
  246.         'TB_Weapon_1
  247.         '
  248.         Me.TB_Weapon_1.Location = New System.Drawing.Point(349, 51)
  249.         Me.TB_Weapon_1.Name = "TB_Weapon_1"
  250.         Me.TB_Weapon_1.Size = New System.Drawing.Size(34, 20)
  251.         Me.TB_Weapon_1.TabIndex = 0
  252.         Me.TB_Weapon_1.TabStop = False
  253.         Me.TB_Weapon_1.Text = "0"
  254.         '
  255.         'TB_Generate
  256.         '
  257.         Me.TB_Generate.Location = New System.Drawing.Point(511, 175)
  258.         Me.TB_Generate.Name = "TB_Generate"
  259.         Me.TB_Generate.Size = New System.Drawing.Size(75, 23)
  260.         Me.TB_Generate.TabIndex = 0
  261.         Me.TB_Generate.TabStop = False
  262.         Me.TB_Generate.Text = "Generieren"
  263.         Me.TB_Generate.UseVisualStyleBackColor = True
  264.         '
  265.         'Lbl_Ammo_Weapon_3
  266.         '
  267.         Me.Lbl_Ammo_Weapon_3.AutoSize = True
  268.         Me.Lbl_Ammo_Weapon_3.Location = New System.Drawing.Point(190, 179)
  269.         Me.Lbl_Ammo_Weapon_3.Name = "Lbl_Ammo_Weapon_3"
  270.         Me.Lbl_Ammo_Weapon_3.Size = New System.Drawing.Size(150, 14)
  271.         Me.Lbl_Ammo_Weapon_3.TabIndex = 0
  272.         Me.Lbl_Ammo_Weapon_3.Text = "Munition der Waffe 3 (""AW3"")"
  273.         '
  274.         'TB_Ammo_Weapon_3
  275.         '
  276.         Me.TB_Ammo_Weapon_3.Location = New System.Drawing.Point(349, 176)
  277.         Me.TB_Ammo_Weapon_3.Name = "TB_Ammo_Weapon_3"
  278.         Me.TB_Ammo_Weapon_3.Size = New System.Drawing.Size(34, 20)
  279.         Me.TB_Ammo_Weapon_3.TabIndex = 0
  280.         Me.TB_Ammo_Weapon_3.TabStop = False
  281.         Me.TB_Ammo_Weapon_3.Text = "0"
  282.         '
  283.         'Lbl_Weapon_3
  284.         '
  285.         Me.Lbl_Weapon_3.AutoSize = True
  286.         Me.Lbl_Weapon_3.Location = New System.Drawing.Point(190, 154)
  287.         Me.Lbl_Weapon_3.Name = "Lbl_Weapon_3"
  288.         Me.Lbl_Weapon_3.Size = New System.Drawing.Size(81, 14)
  289.         Me.Lbl_Weapon_3.TabIndex = 0
  290.         Me.Lbl_Weapon_3.Text = "Waffe 3 (""W3"")"
  291.         '
  292.         'TB_Weapon_3
  293.         '
  294.         Me.TB_Weapon_3.Location = New System.Drawing.Point(349, 151)
  295.         Me.TB_Weapon_3.Name = "TB_Weapon_3"
  296.         Me.TB_Weapon_3.Size = New System.Drawing.Size(34, 20)
  297.         Me.TB_Weapon_3.TabIndex = 0
  298.         Me.TB_Weapon_3.TabStop = False
  299.         Me.TB_Weapon_3.Text = "0"
  300.         '
  301.         'Frm_Main
  302.         '
  303.         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 14.0!)
  304.         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
  305.         Me.ClientSize = New System.Drawing.Size(598, 207)
  306.         Me.Controls.Add(Me.Lbl_Ammo_Weapon_3)
  307.         Me.Controls.Add(Me.TB_Ammo_Weapon_3)
  308.         Me.Controls.Add(Me.Lbl_Weapon_3)
  309.         Me.Controls.Add(Me.TB_Weapon_3)
  310.         Me.Controls.Add(Me.TB_Generate)
  311.         Me.Controls.Add(Me.Lbl_Ammo_Weapon_2)
  312.         Me.Controls.Add(Me.TB_Ammo_Weapon_2)
  313.         Me.Controls.Add(Me.Lbl_Weapon_2)
  314.         Me.Controls.Add(Me.TB_Weapon_2)
  315.         Me.Controls.Add(Me.Lbl_Ammo_Weapon_1)
  316.         Me.Controls.Add(Me.TB_Ammo_Weapon_1)
  317.         Me.Controls.Add(Me.Lbl_Weapon_1)
  318.         Me.Controls.Add(Me.TB_Weapon_1)
  319.         Me.Controls.Add(Me.Lbl_Angle)
  320.         Me.Controls.Add(Me.TB_Angle)
  321.         Me.Controls.Add(Me.Lbl_Z)
  322.         Me.Controls.Add(Me.TB_Z)
  323.         Me.Controls.Add(Me.Lbl_Y)
  324.         Me.Controls.Add(Me.TB_Y)
  325.         Me.Controls.Add(Me.Lbl_X)
  326.         Me.Controls.Add(Me.TB_X)
  327.         Me.Controls.Add(Me.Lbl_Skin)
  328.         Me.Controls.Add(Me.TB_Skin)
  329.         Me.Controls.Add(Me.Lbl_Description)
  330.         Me.Font = New System.Drawing.Font("Arial", 8.25!)
  331.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
  332.         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
  333.         Me.MaximizeBox = False
  334.         Me.Name = "Frm_Main"
  335.         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  336.         Me.Text = "Skinauswahl Generator"
  337.         Me.ResumeLayout(False)
  338.         Me.PerformLayout()
  339.  
  340.     End Sub
  341.     Friend WithEvents Lbl_Description As System.Windows.Forms.Label
  342.     Friend WithEvents TB_Skin As System.Windows.Forms.TextBox
  343.     Friend WithEvents Lbl_Skin As System.Windows.Forms.Label
  344.     Friend WithEvents Lbl_X As System.Windows.Forms.Label
  345.     Friend WithEvents TB_X As System.Windows.Forms.TextBox
  346.     Friend WithEvents Lbl_Z As System.Windows.Forms.Label
  347.     Friend WithEvents TB_Z As System.Windows.Forms.TextBox
  348.     Friend WithEvents Lbl_Y As System.Windows.Forms.Label
  349.     Friend WithEvents TB_Y As System.Windows.Forms.TextBox
  350.     Friend WithEvents Lbl_Angle As System.Windows.Forms.Label
  351.     Friend WithEvents TB_Angle As System.Windows.Forms.TextBox
  352.     Friend WithEvents Lbl_Ammo_Weapon_2 As System.Windows.Forms.Label
  353.     Friend WithEvents TB_Ammo_Weapon_2 As System.Windows.Forms.TextBox
  354.     Friend WithEvents Lbl_Weapon_2 As System.Windows.Forms.Label
  355.     Friend WithEvents TB_Weapon_2 As System.Windows.Forms.TextBox
  356.     Friend WithEvents Lbl_Ammo_Weapon_1 As System.Windows.Forms.Label
  357.     Friend WithEvents TB_Ammo_Weapon_1 As System.Windows.Forms.TextBox
  358.     Friend WithEvents Lbl_Weapon_1 As System.Windows.Forms.Label
  359.     Friend WithEvents TB_Weapon_1 As System.Windows.Forms.TextBox
  360.     Friend WithEvents TB_Generate As System.Windows.Forms.Button
  361.     Friend WithEvents Lbl_Ammo_Weapon_3 As System.Windows.Forms.Label
  362.     Friend WithEvents TB_Ammo_Weapon_3 As System.Windows.Forms.TextBox
  363.     Friend WithEvents Lbl_Weapon_3 As System.Windows.Forms.Label
  364.     Friend WithEvents TB_Weapon_3 As System.Windows.Forms.TextBox
  365.  
  366. End Class
  367.  
  368. <- FRM_RESULT ->
  369. Public Class Frm_Result
  370.  
  371.     Private Sub Frm_Result_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  372.         TB_Result.Text = Main.Code
  373.     End Sub
  374.  
  375.     Private Sub Frm_Result_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  376.         Frm_Main.Enabled = True
  377.     End Sub
  378.  
  379.     Private Sub LL_CopyResult_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LL_CopyResult.LinkClicked
  380.         Clipboard.Clear()
  381.         Clipboard.SetText(Main.Code)
  382.     End Sub
  383. End Class
  384.  
  385. <- FRM_RESULT DESIGN ->
  386. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  387. Partial Class Frm_Result
  388.     Inherits System.Windows.Forms.Form
  389.  
  390.     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
  391.     <System.Diagnostics.DebuggerNonUserCode()> _
  392.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  393.         Try
  394.             If disposing AndAlso components IsNot Nothing Then
  395.                 components.Dispose()
  396.             End If
  397.         Finally
  398.             MyBase.Dispose(disposing)
  399.         End Try
  400.     End Sub
  401.  
  402.     'Wird vom Windows Form-Designer benötigt.
  403.     Private components As System.ComponentModel.IContainer
  404.  
  405.     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
  406.     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
  407.     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
  408.     <System.Diagnostics.DebuggerStepThrough()> _
  409.     Private Sub InitializeComponent()
  410.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Result))
  411.         Me.Lbl_Description = New System.Windows.Forms.Label()
  412.         Me.TB_Result = New System.Windows.Forms.TextBox()
  413.         Me.LL_CopyResult = New System.Windows.Forms.LinkLabel()
  414.         Me.SuspendLayout()
  415.         '
  416.         'Lbl_Description
  417.         '
  418.         Me.Lbl_Description.AutoSize = True
  419.         Me.Lbl_Description.Location = New System.Drawing.Point(12, 9)
  420.         Me.Lbl_Description.Name = "Lbl_Description"
  421.         Me.Lbl_Description.Size = New System.Drawing.Size(469, 28)
  422.         Me.Lbl_Description.TabIndex = 0
  423.         Me.Lbl_Description.Text = "Das Generieren des Codes wurde fertiggestellt." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "In der nachfolgenden Textbox find" & _
  424.             "est du das Ergebnis, welches ins Script kopiert werden kann:"
  425.         '
  426.         'TB_Result
  427.         '
  428.         Me.TB_Result.Location = New System.Drawing.Point(15, 49)
  429.         Me.TB_Result.Multiline = True
  430.         Me.TB_Result.Name = "TB_Result"
  431.         Me.TB_Result.ScrollBars = System.Windows.Forms.ScrollBars.Both
  432.         Me.TB_Result.Size = New System.Drawing.Size(577, 321)
  433.         Me.TB_Result.TabIndex = 0
  434.         Me.TB_Result.TabStop = False
  435.         '
  436.         'LL_CopyResult
  437.         '
  438.         Me.LL_CopyResult.AutoSize = True
  439.         Me.LL_CopyResult.Location = New System.Drawing.Point(387, 376)
  440.         Me.LL_CopyResult.Name = "LL_CopyResult"
  441.         Me.LL_CopyResult.Size = New System.Drawing.Size(205, 14)
  442.         Me.LL_CopyResult.TabIndex = 0
  443.         Me.LL_CopyResult.TabStop = True
  444.         Me.LL_CopyResult.Text = "Ergebnis in die Zwischenablage kopieren"
  445.         '
  446.         'Frm_Result
  447.         '
  448.         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 14.0!)
  449.         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
  450.         Me.ClientSize = New System.Drawing.Size(604, 396)
  451.         Me.Controls.Add(Me.LL_CopyResult)
  452.         Me.Controls.Add(Me.TB_Result)
  453.         Me.Controls.Add(Me.Lbl_Description)
  454.         Me.Font = New System.Drawing.Font("Arial", 8.25!)
  455.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
  456.         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
  457.         Me.MaximizeBox = False
  458.         Me.MinimizeBox = False
  459.         Me.Name = "Frm_Result"
  460.         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  461.         Me.Text = "Skinauswahl Generator - Ergebnis"
  462.         Me.TopMost = True
  463.         Me.ResumeLayout(False)
  464.         Me.PerformLayout()
  465.  
  466.     End Sub
  467.     Friend WithEvents Lbl_Description As System.Windows.Forms.Label
  468.     Friend WithEvents TB_Result As System.Windows.Forms.TextBox
  469.     Friend WithEvents LL_CopyResult As System.Windows.Forms.LinkLabel
  470.  
  471. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!