Internetseite in Textbox laden
 [Windows 95/98/NT/2000]

30.09.2001


  Mit dem Internet Transfer Steuerelement können Sie bequem
     Internetseiten in eine Textbox laden.
     Beachten Sie dabei, das es keine binären Dateien seien dürfen,
     also Beispielsweise Grafiken. 
ERFORDERLICHE OBJEKTE 
   1 CommandButton (Command1)
   1 Textbox (Text1) Multiline=True
   1 Internet Transfer (INet1)

  FORM-CODE
   Private Sub Form_Load()
      Command1.Caption = "Start"
   End Sub
   Private Sub Form_Unload(Cancel As Integer)
      If Inet1.StillExecuting Then
         MsgBox "Kann nicht beenden...", vbExclamation
         Cancel = 1
         Exit Sub
      End If
   End Sub
   Private Sub Command1_Click()
      Me.Caption = "Bitte warten..."
      If Not Inet1.StillExecuting Then
         Text1.Text = Inet1.OpenURL("http://www.schmittis-page.de/updates.htm")
      End If
      If Not Inet1.StillExecuting Then
         Text1 = Replace(Text1, Chr(10), Chr$(13) & Chr$(10))
         Caption = "Fertig !"
      End If
   End Sub
 

 
Download - 2 KB