webkit控件自动填表浏览网页登录窗口代码怎么写
Private WithEvents oWebKit As cWebKit
Public Property Get Browser() As cWebKit
Set Browser = oWebKit
End Sub
Private Sub UserControl_Initialize()
Set oWebKit = New_c.WebKit
oWebKit.InitWebKitDll App.Path & "\WebKitCairo\"
oWebKit.InitializeView UserControl.hWnd
End Sub
Private Sub UserControl_Resize()
UserControl.ScaleMode = vbPixels
oWebKit.Move 0, 0, UserControl.ScaleWidth, UserControl.ScaleHeight
End Sub