QHTML 2.0 - frmAnchor.vb


	Imports QHTML.frmQHTML Public Class frmAnchor Private Sub frmAnchor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim S As String For Each S In AnchorLink lstAnchor.Items.Add(S) Next End Sub Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click Dim Result As String Result = "<a href=" + Quote + "#" + lstAnchor.SelectedItem + Quote + ">" + txtText.Text + "</a>" InsertTAG(Result) Me.Close() End Sub End Class