Dette er en lille hjælp til alle derude der ikke ved hvordan dette skal gøres!
Hvis du bliver i tvivl om noget eller det ikke virker så kig nederst af dette svar!
INFO: læs det grundig igennem så du forstår det og ikke laver nogen fejltagelser
På form1 laver du følgende objekter:
1 commondialog
5 commandbuttons
1 RichTextBox
INFO: Alle navnene skal du bare lade stå som vb siger
INFO: Alle captions kan du selv gætte dig til...
Så insætter du følgende tekst:
Private Sub Command1_Click()
rep% = MsgBox("Do you want to quit?", vbQuestion + vbYesNo)
If rep% = vbYes Then
End
Else
Exit Sub
End If
End Sub
Private Sub Command2_Click()
Open App.Path & "\\preview.html" For Output As #1
Print #1, RichTextBox1.Text
Close #1
Load frmBrowser
frmBrowser.Show
frmBrowser.brwWebBrowser.Navigate App.Path & "\\preview.html"
End Sub
Private Sub Command3_Click()
CommonDialog1.Filter = "HTML Files (*.html)|*.html|HTM Files (*.htm)|*.htm)"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, RichTextBox1.Text
Close #1
End If
End Sub
Private Sub Command4_Click()
CommonDialog1.Filter = "HTML Files (*.html)|*.html|HTM Files (*.htm)|*.htm)"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Input As #1
Do Until EOF(1)
Line Input #1, lineoftext$
alltext$ = alltext$ & lineoftext$
RichTextBox1.Text = alltext$
Loop
Close #1
End If
End Sub
Private Sub Command5_Click()
Me.WindowState = 1
End Sub
Private Sub Form_Load()
RichTextBox1.Text = "<HTML>" & vbCrLf & vbCrLf & "<HEAD>" & vbCrLf & "<TITLE>" & "Web Page</TITLE>" & vbCrLf & "</HEAD>" & vbCrLf & vbCrLf & "<BODY>" & vbCrLf & vbCrLf & "</BODY>" & vbCrLf & vbCrLf & "</HTML>"
End Sub
INFO: Inden du fortsætter bør du lige teste det du har lavet
Indsæt en Form2, kald den "frmBrowser" (name) og lav følgende objekter:
1 Webbrowser
Name: brwWebBrowser
1 ComboBox
Name: cboAddress
1 ImageList
Name: imlIcons
1 Label
Name: lblAddress
Caption: Address
1 PictureBox
Name: picAddress
INFO: lblAddress (Labellen) og cboAddress (ComboBoxen) skal stå i picAddress (Pictureboxen)
1 Timer
Name: timTimer
Interval: 5
INFO: Det er ikke ligemeget hvor du placere alle objekterne, prøv der frem
Så insætter du følgende tekst:
Option Explicit
Public StartingAddress As String
Dim mbDontNavigateNow As Boolean
Private Sub Form_Load()
On Error Resume Next
Me.Show
Form_Resize
cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15
If Len(StartingAddress) > 0 Then
cboAddress.Text = StartingAddress
cboAddress.AddItem cboAddress.Text
'try to navigate to the starting address
timTimer.Enabled = True
brwWebBrowser.Navigate StartingAddress
End If
End Sub
Private Sub brwWebBrowser_DownloadComplete()
On Error Resume Next
Me.Caption = brwWebBrowser.LocationName
End Sub
Private Sub cboAddress_Click()
If mbDontNavigateNow Then Exit Sub
timTimer.Enabled = True
brwWebBrowser.Navigate cboAddress.Text
End Sub
Private Sub cboAddress_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = vbKeyReturn Then
cboAddress_Click
End If
End Sub
Private Sub Form_Resize()
cboAddress.Width = Me.ScaleWidth - 100
brwWebBrowser.Width = Me.ScaleWidth - 100
brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100
End Sub
Private Sub timTimer_Timer()
If brwWebBrowser.Busy = False Then
timTimer.Enabled = False
Me.Caption = brwWebBrowser.LocationName
Else
Me.Caption = "Working..."
End If
End Sub
.
pørgerunden:.
INFO: Hvis det ikke virker kan du prøve følgende:
1. Check at alle objekternes oplysninger passer med hvad jeg har skrevet.
2. flyt lidt rundt med de forskellige objekter så frmBrowser ser lidt ud som rigtig internet.
INFO: Hvis du ikke kan finde de nævnte objekter i din toolbox gør følgende:
1. Højreklik på et bart sted i toolboxen og vælg Components
2. Marker følgende componenter:
2.1 Microsoft Common Dialog Control 6.0 (SP3)
2.2 Microsoft Internet Controls
2.3 Microsoft Rich TextBox Control 6.0 (SP4)
2.4 Microsoft Windows Common Controls 6.0 (SP4)
3. Tryk nu på Anvend og så på OK
INFO: Husk altid at gemme dit program så du ikke mister hele dit arbejde!
INFO: Læg venligst mærke til at denne frmBrowser også kan bruges til almindeligt internet som internet explore. Det er foresten også meget hurtigere, men det er også fordi der ikke er så mange funktioner.
INFO: Den samme forklaring finder du blandt de få artikler!
INFO: Sørg altid for at brwWebBrowser (WebBrowseren) står lige under picAddress (PictureBoxen) og at begge objelter står øverst i formen.