dim brw as winform.webbrowser=e.form.controls("webbrowser1") dim br as winform.textbox=e.form.controls("textbox1") dim add as string =br.text if br.text is nothing then messagebox.show("请输入地址") return else if add.contains("http://") then brw.address=add else brw.address="http://" & add end if end if