Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
Option Explicit Public Sub Command1_Click() Dim kit As javax#swing#text#html#HTMLEditorKit Dim doc As javax#swing#text#html#HTMLDocument Dim url As java#net#URL RichTextBox1.Parent.setContentType "text/html" kit = Cast(RichTextBox1.Parent.getEditorKitForContentType("text/html"), HTMLEditorKit) doc = Cast(kit.createDefaultDocument(), HTMLDocument) url = New URL(Text1.Text) RichTextBox1.Parent.read(url.openStream(), doc) End Sub Public Sub Form_Load() Text1.Text = "http://www.jabaco.org" Me.Width = Screen.Width Me.Height = Screen.Height Me.Left = 0 Me.Top = 0 Command1_Click End Sub Public Sub Form_Resize() Const xGap = 10 Const yGap = 10 Command1.Left = xGap Text1.Left = Command1.Left + Command1.Width + xGap Text1.Width = Me.Width - xGap - Text1.Left Text1.Top = yGap Command1.Top = yGap RichTextBox1.Width = Me.Width - 2*xGap RichTextBox1.Left= xGap RichTextBox1.Top = Command1.Top + Command1.Height+yGap RichTextBox1.Height = Me.Height - 1 * yGap - RichTextBox1.Top End Sub |
Jabaco Source |
|
1 2 3 4 5 6 |
If Left$(Text1.Text,7)<>"http://" OR Left$(Text1.Text,7)<>"HTTP://" Then 'add "HTTP://" Dim Add As String Add=Text1.Text Text1.Text="http://" + Add End If |
This post has been edited 2 times, last edit by "klctal" (Sep 24th 2009, 2:21pm)
Beginner
Date of registration: Sep 21st 2009
Location: Firenze, Italy
Occupation: Software Developer
Hobbies: Sport, Music (I play the piano)
Source code |
|
1 |
Dim kit As javax#swing#text#html#HTMLEditorKit |
Source code |
|
1 |
kit = Cast(RichTextBox1.Parent.getEditorKitForContentType("text/html"), HTMLEditorKit) |
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Beginner
Date of registration: Sep 21st 2009
Location: Firenze, Italy
Occupation: Software Developer
Hobbies: Sport, Music (I play the piano)
Beginner
Date of registration: Jan 29th 2010
Location: Guayaquil, Ecuador
Occupation: Manager of a software company
Hobbies: Music player
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves