Imports QHTML.frmQHTML
Public Class frmNew
Public BackGColor As String = "black"
Public TextColor As String = "white"
Public Link As String = "red"
Public ALink As String = "white"
Public VLink As String = "violet"
Public Image As String
Public Shared Function IsUrl(ByVal s As String) As Boolean
If s.StartsWith("http") Or s.StartsWith("www") Then
Return True
Else
Return False
End If
End Function
Public Shared Function LocalToFile(ByVal path As String) As String
Dim R As String = "file:///"
For i As Int32 = 0 To path.Length - 1
If path(i) <> "\" Then
R += path(i)
Else
R += "/"
End If
Next
Return R
End Function
Private Sub cmdIMG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdIMG.Click
If FOpen.ShowDialog = Windows.Forms.DialogResult.OK Then
Image = FOpen.FileName
lblIMG.Text = "Immagine di sfondo: " & Image
End If
End Sub
Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
Dim Result As String
If Image <> Nothing Then
If Not IsUrl(Image) Then
Image = LocalToFile(Image)
End If
End If
Result = "<!DOCTYPE HTML PUBLIC " + Quote + "-//W3C//DTD HTML 4.01 Transitional//IT" + Quote + ">" + vbCrLf
Result += "<html>" & vbCrLf & vbCrLf
Result += "<head>" & vbCrLf & " " & "<meta http-equiv=" + Quote + "Content-Type" + Quote + " content=" + Quote + "text/html; charset=iso-8859-1" + Quote + ">" + vbCrLf
Result += " <!--Titolo della pagina:-->" + vbCrLf
Result += " <title>" + txtTitle.Text + "</title>" + vbCrLf + "</head>" + vbCrLf
Result += vbCrLf + "<body bgcolor=" + Quote & BackGColor & Quote
Result += " leftmargin=" + Quote & nudLeft.Value & Quote
Result += " rightmargin=" + Quote & nudRight.Value & Quote
Select Case dudImage.SelectedIndex
Case 0 : Result += " background=" + Quote + Image + Quote
Case 1 : Result += "style=" + Quote + "background-image url(" + Image + "); background-repeat: repeat;" + Quote
Case 2 : Result += "style=" + Quote + "background-image: url(" + Image + "); background-attachment:fixed;" + Quote
End Select
Result += " text=" + Quote & TextColor & Quote
Result += " link=" + Quote & Link & Quote
Result += " alink=" + Quote & ALink & Quote
Result += " vlink=" + Quote & VLink & Quote
Result += ">" & vbCrLf + " <!--Corpo della pagina:-->" + vbCrLf + vbCrLf
Index = Result.Length - 1
Result += " <!--Fine corpo della pagina-->" + vbCrLf + "</body>"
Result += vbCrLf + vbCrLf + "</html>"
frmQHTML.txtCode.Text = Result
Me.Close()
End Sub
Private Sub rbtNormal_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtNormal.CheckedChanged
cmbLink.SelectedIndex = cmbLink.Items.IndexOf(Link)
End Sub
Private Sub rbtVisited_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtVisited.CheckedChanged
cmbLink.SelectedIndex = cmbLink.Items.IndexOf(VLink)
End Sub
Private Sub rbtActive_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtActive.CheckedChanged
cmbLink.SelectedIndex = cmbLink.Items.IndexOf(ALink)
End Sub
Private Sub cmbLink_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbLink.SelectedIndexChanged
If rbtNormal.Checked Then
Link = cmbLink.SelectedItem
End If
If rbtVisited.Checked Then
VLink = cmbLink.SelectedItem
End If
If rbtActive.Checked Then
ALink = cmbLink.SelectedItem
End If
End Sub
Private Sub frmNew_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dudImage.SelectedIndex = 0
cmbBack.SelectedItem = "black"
cmbText.SelectedItem = "white"
End Sub
End Class