Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
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