Imports QHTML.frmQHTML
Public Class frmFrame
Public Structure Frame
Dim Name, URL As String
Dim Scrolling As String
Dim MHeight, MWidth As Int16
Dim NoResize As Boolean
End Structure
Public Structure Row_Col
Dim ValString As String
Dim Type As String
End Structure
Public Rows, Cols As Row_Col
Public FramesList As New ArrayList
Public Function TransformValue(ByVal S As Row_Col) As String
Dim T As String = ""
Dim ToAdd As Char
If S.Type = "pixel" Then
ToAdd = ""
End If
If S.Type = "percentage" Then
ToAdd = "%"
End If
If S.Type = "part" Then
ToAdd = "*"
End If
For i As Int16 = 0 To S.ValString.Length - 1
If S.ValString(i) = "," Then
T = T & ToAdd & ","
Else
T = T & S.ValString(i)
End If
Next
T = T & ToAdd
Return T
End Function
Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
Dim F As Frame
F.Name = txtName.Text
F.URL = txtURL.Text
F.Scrolling = cmbScroll.SelectedItem
F.MHeight = nudMHeight.Value
F.MWidth = nudMWidth.Value
F.NoResize = chbRedim.Checked
FramesList.Add(F)
lstFrames.Items.Add(F.Name)
txtName.Text = Nothing
txtURL.Text = Nothing
chbRedim.Checked = False
nudMHeight.Value = 0
nudMWidth.Value = 0
cmbScroll.SelectedItem = "auto"
End Sub
Private Sub cmdRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRemove.Click
If lstFrames.SelectedIndex >= 0 Then
FramesList.RemoveAt(lstFrames.SelectedIndex)
lstFrames.Items.RemoveAt(lstFrames.SelectedIndex)
Else
MsgBox("Nessun elemento selezionato!", MsgBoxStyle.Exclamation)
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 = "<!--Frameset:-->" + vbCrLf + " <frameset"
Dim A As Frame
'Frameset
Result += " rows=" + Quote + TransformValue(Rows) + Quote
Result += " cols=" + Quote + TransformValue(Cols) + Quote
If chbBorder.Checked Then
Result += " frameborder=" + Quote + "yes" + Quote
Else
Result += " frameborder=" + Quote + "no" + Quote
End If
Result += " bordercolor=" + Quote + dudColor.SelectedItem + Quote + ">" + vbCrLf
'Frames
For Each A In FramesList
Result += " <frame src=" + Quote + A.URL + Quote
Result += " name=" + Quote + A.Name + Quote
Result += " scrolling=" + Quote + A.Scrolling + Quote
Result += " marginheight=" + Quote & A.MHeight & Quote
Result += " marginwidth=" + Quote & A.MWidth & Quote
If A.NoResize Then
Result += " noresize"
End If
Result += ">" + vbCrLf
Next
'Fine
Result += " </frameset>" + vbCrLf + " <!--Fine frameset-->"
InsertTAG(Result)
Me.Close()
End Sub
Private Sub cmdConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdConfirm.Click
If ComboBox1.SelectedItem = "Colonne" Then
Cols.ValString = txtVal.Text
If rbtPixel.Checked Then
Cols.Type = "pixel"
End If
If rbtPercentage.Checked Then
Cols.Type = "percentage"
End If
If rbtPart.Checked Then
Cols.Type = "part"
End If
Else
Rows.ValString = txtVal.Text
If rbtPixel.Checked Then
Rows.Type = "pixel"
End If
If rbtPercentage.Checked Then
Rows.Type = "percentage"
End If
If rbtPart.Checked Then
Rows.Type = "part"
End If
End If
txtVal.Text = ""
End Sub
Private Sub frmFrame_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dudColor.SelectedItem = "black"
Cols.Type = "percentage"
Cols.ValString = "100"
Rows.Type = "percentage"
Rows.ValString = "100"
ComboBox1.SelectedIndex = 0
End Sub
End Class
