If Not (TextBox15.Text = "" AndAlso TextBox17.Text = "" AndAlso RichTextBox7.Text = "" AndAlso RichTextBox6.Text = "") AndAlso Not (ListBox5.Items.Count = 0 Or ListBox6.Items.Count = "" Or RichTextBox5.Text = "") Then
If Not RichTextBox5.Text = "" Then
log = "Log: " & RichTextBox5.Text
Else
log = ""
End If
If RadioButton9.Checked = True Then
'orlov
kód.RichTextBox1.Text += "[center][size=14pt][font=times new roman][b][color=#1535FF]IG Neved:[/color]" &
vbNewLine & "[color=white][font=arial black]~ " & TextBox15.Text & " ~[/font][/color]" & vbNewLine & "[color=#1535FF]Panaszod/Gondod/Kérésed:[/color]" & vbNewLine & "[color=white][font=arial black]~ " & RichTextBox6.Text & " ~[/font][/color]" & vbNewLine & "[color=#1535FF]Bizonyíték:[/color]" & vbNewLine & "[color=white][font=arial black]~ " & log & " ~[/font][/color]"
For i As Integer = 0 To ListBox5.Items.Count - 1
kód.RichTextBox1.AppendText(Environment.NewLine & "[img width=" & TextBox21.Text & " height=" & TextBox20.Text & "]" & ListBox5.Items(i).ToString & "[/img]" & Environment.NewLine)
Next
For i As Integer = 0 To ListBox6.Items.Count - 1
kód.RichTextBox1.AppendText(Environment.NewLine & "[youtube]" & ListBox6.Items(i).ToString & "[/youtube]" & Environment.NewLine)
Next
kód.RichTextBox1.Text += vbNewLine & "[color=#1535FF]Megjegyzés:[/color]" &
vbNewLine & "[color=white][font=arial black]~ " & RichTextBox7.Text & " ~[/font][/color]"
kód.Show()
End If
Else
MsgBox("Kérlek tötls ki minden mezőt, illetve adj bizonyitékot is,az nélkül, nem hiszem,hogy elfogadják a kérésed/panaszod/gondodat.", MsgBoxStyle.Critical, "Hiba")
End If
so,what it does: it opens a form, in witch is a richtextbox called richtextbox1, and adds a text specified in form2.but,i have a little problem: it always return true,and never false,and i don't know why,all the textboxes are empty,but,for some reason it returns true boolean value.
Aucun commentaire:
Enregistrer un commentaire