Imports QHTML.frmQHTML
Public Class frmButton
Public Function Type(ByVal index As Int16) As String
Select Case index
Case 0 : Return "button"
Case 1 : Return "submit"
Case 2 : Return "reset"
End Select
End Function
Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
Dim Result As String = "<input"
Result += " type=" + Quote + Type(cmbType.SelectedIndex) + Quote
If chbEnabled.Checked Then
Result += " disabled"
End If
Result += " value=" + Quote + txtText.Text + Quote + ">"
InsertTAG(Result)
Me.Close()
End Sub
Private Sub cmdOK2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK2.Click
Dim Result As String = "<button"
Result += " name=" + Quote + txtName.Text + Quote
Result += " type=" + Quote + Type(cmbType2.SelectedIndex) + Quote
If chbEnabled.Checked Then
Result += " disabled"
End If
Result += ">" + vbCrLf + " " + txtHTML.Text + vbCrLf + " </button>"
InsertTAG(Result)
Me.Close()
End Sub
Private Sub cmdOK3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK3.Click
Dim Result As String = "<input type=" + Quote + "image" + Quote
Result += " name=" + txtName3.Text + Quote
Result += " src=" + Quote + txtURL.Text + Quote
Result += " title=" + Quote + txtTitle.Text + Quote
Result += " alt=" + Quote + txtTip.Text + Quote
Result += " height=" + Quote & nudHeight.Value & Quote
Result += " width=" + Quote & nudWidth.Value & Quote + ">"
InsertTAG(Result)
Me.Close()
End Sub
End Class