-
Notifications
You must be signed in to change notification settings - Fork 1
Expand file tree
/
Copy pathiframecreator.vb
More file actions
15 lines (13 loc) · 707 Bytes
/
iframecreator.vb
File metadata and controls
15 lines (13 loc) · 707 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Class iframecreator
Dim border As String
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If ComboBox1.SelectedText = "Yes" Then
border = "border:1px solid black;"
ElseIf ComboBox1.SelectedText = "No" Then
border = "border:none;"
End If
Main.RichTextBox1.SelectedText = "<iframe src="/?originalUrl=https%3A%2F%2Fgithub.com%2F%26quot%3B%2520%26amp%3B%2520Chr(34)%2520%26amp%3B%2520TextBox2.Text%2520%26amp%3B%2520Chr(34)%2520%26amp%3B%2520%26quot%3B%2520title%3D%26quot%3B%2520%26amp%3B%2520Chr(34)%2520%26amp%3B%2520TextBox1.Text%2520%26amp%3B%2520Chr(34)%2520%26amp%3B%2520%26quot%3B%2520width%3D%26quot%3B%2520%26amp%3B%2520TextBox3.Text%2520%26amp%3B%2520%26quot%3B%2520height%3D%26quot%3B%2520%26amp%3B%2520TextBox4.Text%2520%26amp%3B%2520%26quot%3B%2520style%3D%26quot%3B%2520%26amp%3B%2520Chr(34)%2520%26amp%3B%2520border%2520%26amp%3B%2520Chr(34)%2520%26amp%3B%2520%26quot%3B%26gt%3B%26quot%3B%2520%26amp%3B%2520vbCrLf%253C%2Fdiv">
Main.RichTextBox1.SelectedText = "</iframe>" & vbCrLf
Me.Close()
End Sub
End Class