重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
目測應該是系統的問題,我用win7系統都無法讀取運行VS2008 的VB.NET ,換成XP系統后就沒一點問題了。
成都創新互聯專注于企業成都全網營銷推廣、網站重做改版、濠江網站定制設計、自適應品牌網站建設、HTML5、購物商城網站建設、集團公司官網建設、成都外貿網站建設公司、高端網站制作、響應式網頁設計等建站業務,價格優惠性價比高,為濠江等各大城市提供網站開發制作服務。
VB.NET調用IE代碼示例:
Dim p As New Process
'獲得URL
aURL = GetURL()
'獲得IE路徑
p.StartInfo.FileName =
System.Environment.
GetFolderPath( _
Environment.SpecialFolder.
ProgramFiles).Trim() _
"\Internet Explorer\
IEXPLORE.EXE"
p.StartInfo.Arguments
= aDenURL
'啟動IE
'p.Start(aDenURL)
p.Start()
'主程序開始等待IE結束
p.WaitForExit()
另一種VB.NET調用IE的方法
Imports System.Threading
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e
As System.EventArgs) Handles
Button1.Click
Dim webobj As Object
webobj = CreateObject("Internet
Explorer.Application")
With webobj
.visible = True
.Navigate2(";)
Do While (.busy Or .readyState 4)
Thread.Sleep(100)
Loop
.Document.f.q.Value = Me.TextBox1.Text
.Document.f.btng.Click()
End With
MsgBox("completed.")
End Sub
部分代碼如下:
在窗口及WebBrowser創建完以后,寫此代碼:
WebBrowser.OnNewWindow2:=IE1NewWindow2;
給主窗口創建一個方法:
procedure TBrowForm.IE1NewWindow2(Sender: TObject; var ppDisp: IDispatch;var Cancel: WordBool);
Var NewForm:TBrowForm;
begin
try
NewForm :=TPopBrowerForm.Create(application);
NewForm.WebBrowser.OnNewWindow2 :=IE1NewWindow2;//如果在窗口的Oncreate事件
//有此代碼,此處就可以省略
ppDisp := NewForm.WebBrowser.Application;
NewForm.Show;
Cancel:=false;
except
end;
end;
e.keycode = keys.backspace
是這么判斷的不 我不是做網頁的 這是正常的form上用的方法
不知道對你有沒有幫助