Imports QHTML.frmQHTML
Public Class frmLink
Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
Dim Result As String = "<a href="
If txtURL.Text.Length = 0 Then
MsgBox("Il percorso del link è necessario!", MsgBoxStyle.Exclamation)
Exit Sub
End If
If txtText.Text = Nothing Then
txtText.Text = txtURL.Text
End If
If cmbLinkType.SelectedIndex = 0 Then
Result += Quote + txtURL.Text + Quote
End If
If cmbLinkType.SelectedIndex = 1 Then
Result += Quote + "mailto:" + txtURL.Text + Quote
End If
Result += " title=" + Quote + txtTip.Text + Quote
Result += " target=" + Quote + cmbTarget.SelectedItem + Quote
If txtKey.Text.Length > 0 Then
Result += " accesskey=" + Quote + txtKey.Text.Chars(0) + Quote
End If
Result += ">" + txtText.Text + "</a>"
InsertTAG(Result)
Me.Close()
End Sub
Private Sub frmLink_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cmbTarget.SelectedIndex = 0
End Sub
End Class