Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
QHTML 2.0 - frmCombo.vb

frmCombo.vb

Caricato da: Totem
Scarica il programma completo

  1. Imports QHTML.frmQHTML
  2. Public Class frmCombo
  3.     Public lstVal As New ListBox
  4.     Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
  5.         If txtText.Text <> Nothing Then
  6.             lstItems.Items.Add(txtText.Text)
  7.             lstVal.Items.Add(txtVal.Text)
  8.             txtText.Text = Nothing
  9.             txtVal.Text = Nothing
  10.         End If
  11.     End Sub
  12.     Private Sub cmdremove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdremove.Click
  13.         If lstItems.SelectedIndex >= 0 Then
  14.             lstItems.Items.RemoveAt(lstItems.SelectedIndex)
  15.             lstVal.Items.RemoveAt(lstItems.SelectedIndex)
  16.         Else
  17.             MsgBox("Nessun elemento selezionato!", MsgBoxStyle.Exclamation)
  18.         End If
  19.     End Sub
  20.     Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
  21.         If cmdLabel.Text = "Etichetta*" Then
  22.             If MsgBox("Risulta che un'etichetta non è stata chiusa. Provvedere ora?", MsgBoxStyle.Question + vbYesNo) = MsgBoxResult.Yes Then
  23.                 lstItems.Items.Add("</label>")
  24.             Else
  25.                 Exit Sub
  26.             End If
  27.         End If
  28.  
  29.         Dim Result As String = "<!--Inizio Combo box:-->" + vbCrLf + "  <select"
  30.         Dim S As String
  31.  
  32.         Result += " name=" + Quote + txtName.Text + Quote
  33.         If nudItems.Value > 0 Then
  34.             Result += " size=" + Quote & nudItems.Value & Quote
  35.         End If
  36.         If chbSelect.Checked Then
  37.             Result += " multiple"
  38.         End If
  39.         Result += ">" + vbCrLf
  40.  
  41.         For i As Int16 = 0 To lstItems.Items.Count - 1
  42.             S = lstItems.Items(i)
  43.             If Not S.StartsWith("<label>") Then
  44.                 If S = "</label>" Then
  45.                     Result += "  </optgroup>"
  46.                 Else
  47.                     Result += "  <option value=" + Quote + lstVal.Items(i) + Quote
  48.                     Result += ">" + S + "</option>"
  49.                 End If
  50.             Else
  51.                 S = S.Remove(0, "<label>".Length)
  52.                 Result += "  <optgroup label=" + S + ">"
  53.             End If
  54.             Result += vbCrLf
  55.         Next
  56.  
  57.         Result += "</select>" + vbCrLf + "  <!--Fine combo box-->"
  58.  
  59.         InsertTAG(Result)
  60.  
  61.         Me.Close()
  62.     End Sub
  63.     Private Sub cmdLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLabel.Click
  64.         If cmdLabel.Text = "Etichetta" Then
  65.             If txtText.Text <> Nothing Then
  66.                 lstItems.Items.Add("<label>" + txtText.Text)
  67.                 lstVal.Items.Add("<label>")
  68.                 txtText.Text = Nothing
  69.                 txtVal.Text = Nothing
  70.                 cmdLabel.Text = "Etichetta*"
  71.             End If
  72.         Else
  73.             lstItems.Items.Add("</label>")
  74.             lstVal.Items.Add("</label>")
  75.             cmdLabel.Text = "Etichetta"
  76.         End If
  77.     End Sub
  78. End Class