Auch wenn ich es manuell mache funzt es nicht, habe es auch mit verschiedenen sources versucht.
Hier mal ein Source:
PHP Code:
Public Class Form1
Dim jobname As String = ""
Dim fullname As String = ""
Dim shortname As String = ""
Dim lvleq As String = ""
Dim expeq As String = ""
Dim incomeq As String = ""
Dim break As String = ""
Dim place As String = ""
Dim kills As String = ""
Dim customkills As String = ""
Dim chatcolor As String = ""
Dim chatdisplay As String = ""
Dim output As String = ""
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox2.Items.Clear()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ListBox3.Items.Clear()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
ListBox4.Items.Clear()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.SelectedIndex = 0
ComboBox2.SelectedIndex = 0
ComboBox3.SelectedIndex = 0
ComboBox4.SelectedIndex = 0
ComboBox5.SelectedIndex = 0
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Not ListBox1.Items.Contains(ComboBox3.Text) Then
ListBox1.Items.Add(ComboBox3.Text.ToUpper & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Not ListBox2.Items.Contains(ComboBox4.Text) Then
ListBox2.Items.Add(ComboBox4.Text.ToUpper & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Not ListBox3.Items.Contains(ComboBox5.Text) Then
ListBox3.Items.Add(ComboBox5.Text & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If Not ComboBox6.Text = Nothing Then
If Not ListBox4.Items.Contains(ComboBox6.Text) Then
ListBox4.Items.Add(ComboBox6.Text & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
End If
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim jobname As String = ""
Dim fullname As String = ""
Dim shortname As String = ""
Dim lvleq As String = ""
Dim expeq As String = ""
Dim incomeq As String = ""
Dim break As String = ""
Dim place As String = ""
Dim kills As String = ""
Dim customkills As String = ""
Dim chatcolor As String = ""
Dim chatdisplay As String = ""
Dim output As String = ""
jobname = textbox1.Text & ":" & vbNewLine
fullname = "fullname: " & TextBox2.Text & vbNewLine
shortname = "shortname: " & TextBox3.Text & vbNewLine
lvleq = "leveling-progression-equation: " & TextBox4.Text & vbNewLine
expeq = "experience-progression-equation: " & TextBox5.Text & vbNewLine
incomeq = "income-progression-equation: " & TextBox6.Text & vbNewLine
chatcolor = "ChatColour: " & ComboBox1.Text & vbNewLine
chatdisplay = "chat-display: " & ComboBox2.Text & vbNewLine
If ListBox1.Items.Count > 0 Then
Dim breaksplit() As String
break = "Break:" & vbNewLine
For Each item In ListBox1.Items
breaksplit = item.ToString.Split("|")
break &= breaksplit(0) & ":" & vbNewLine & "income: " & breaksplit(1) & vbNewLine & "experience: " & breaksplit(2) & vbNewLine
Next
End If
If ListBox2.Items.Count > 0 Then
Dim placesplit() As String
place = "Place:" & vbNewLine
For Each item In ListBox2.Items
placesplit = item.ToString.Split("|")
place &= placesplit(0) & ":" & vbNewLine & "income: " & placesplit(1) & vbNewLine & "experience: " & placesplit(2) & vbNewLine
Next
End If
If ListBox3.Items.Count > 0 Then
Dim killsplit() As String
kills = "Kill:" & vbNewLine
For Each item In ListBox3.Items
killsplit = item.ToString.Split("|")
kills &= killsplit(0) & ":" & vbNewLine & "income: " & killsplit(1) & vbNewLine & "experience: " & killsplit(2) & vbNewLine
Next
End If
If ListBox4.Items.Count > 0 Then
Dim customsplit() As String
customkills = "custom-kill:" & vbNewLine
For Each item In ListBox4.Items
customsplit = item.ToString.Split("|")
customkills &= customsplit(0) & ":" & vbNewLine & "income: " & customsplit(1) & vbNewLine & "experience: " & customsplit(2) & vbNewLine
Next
End If
output = jobname & fullname & shortname & chatcolor & chatdisplay & lvleq & incomeq & expeq & break & place & kills & customkills
Form2.Show()
Form2.RichTextBox1.Text = output
End Sub
End Class
