Imports QHTML.frmQHTML
Public Class frmCombo
Public lstVal As New ListBox
Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
If txtText.Text <> Nothing Then
lstItems.Items.Add(txtText.Text)
lstVal.Items.Add(txtVal.Text)
txtText.Text = Nothing
txtVal.Text = Nothing
End If
End Sub
Private Sub cmdremove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdremove.Click
If lstItems.SelectedIndex >= 0 Then
lstItems.Items.RemoveAt(lstItems.SelectedIndex)
lstVal.Items.RemoveAt(lstItems.SelectedIndex)
Else
MsgBox("Nessun elemento selezionato!", MsgBoxStyle.Exclamation)
End If
End Sub
Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
If cmdLabel.Text = "Etichetta*" Then
If MsgBox("Risulta che un'etichetta non è stata chiusa. Provvedere ora?", MsgBoxStyle.Question + vbYesNo) = MsgBoxResult.Yes Then
lstItems.Items.Add("</label>")
Else
Exit Sub
End If
End If
Dim Result As String = "<!--Inizio Combo box:-->" + vbCrLf + " <select"
Dim S As String
Result += " name=" + Quote + txtName.Text + Quote
If nudItems.Value > 0 Then
Result += " size=" + Quote & nudItems.Value & Quote
End If
If chbSelect.Checked Then
Result += " multiple"
End If
Result += ">" + vbCrLf
For i As Int16 = 0 To lstItems.Items.Count - 1
S = lstItems.Items(i)
If Not S.StartsWith("<label>") Then
If S = "</label>" Then
Result += " </optgroup>"
Else
Result += " <option value=" + Quote + lstVal.Items(i) + Quote
Result += ">" + S + "</option>"
End If
Else
S = S.Remove(0, "<label>".Length)
Result += " <optgroup label=" + S + ">"
End If
Result += vbCrLf
Next
Result += "</select>" + vbCrLf + " <!--Fine combo box-->"
InsertTAG(Result)
Me.Close()
End Sub
Private Sub cmdLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLabel.Click
If cmdLabel.Text = "Etichetta" Then
If txtText.Text <> Nothing Then
lstItems.Items.Add("<label>" + txtText.Text)
lstVal.Items.Add("<label>")
txtText.Text = Nothing
txtVal.Text = Nothing
cmdLabel.Text = "Etichetta*"
End If
Else
lstItems.Items.Add("</label>")
lstVal.Items.Add("</label>")
cmdLabel.Text = "Etichetta"
End If
End Sub
End Class