Pada artikel kali ini admin akan berbagi kode sederhana yaitu Menampilkan Halaman Website di Form Saat di Load dengan Kode VB6. Dimana kode ini dapat Anda kembangkan lagi dengan menambah beberapa object.
Cara membuatnya sangat mudah dimana Anda cukup menambahkan kode dibawah ini pada sebuah Form:
Option Explicit
Private IE As VBControlExtender
Private Sub Form_Load()
WindowState = 2
On Error GoTo IEMissing
Set IE = Form1.Controls.Add("Shell.Explorer", "wcIE")
IE.Visible = True
If Not IE Is Nothing Then
IE.object.silent = True
IE.object.Navigate "http://tipandtrickunikvb.blogspot.com"
End If
IEMissing:
End Sub
Private Sub Form_Resize()
If Not IE Is Nothing Then
IE.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End If
End Sub
No comments:
Post a Comment