十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
需要引用:Microsoft HTML Object Library
成都创新互联公司是专业的本溪网站建设公司,本溪接单;提供成都网站建设、网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行本溪网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
在webbrowser的状态为ready的时候,执行:
'取得要填写的表单名称,并定义为一个html元素变量text
Dim text As HtmlElement = WebBrowser1.Document.GetElementById("表单字段名id")
'给表单元素text赋值
text.InnerHtml = “张三”
'找到提交按钮
Dim btnSubmit As HtmlElement = WebBrowser1.Document.GetElementById("提交按钮id")
'执行点击动作
btnSubmit.InvokeMember("click")
都可以,可以用winsock,也可以自己重写SOCKET套接字.建议你如果工期紧,可以先用WINSOCK.当然最好是自己学用SOCKET套接字.这对未来开发网络通讯是很有帮助的.因为用WINSOCK有个毛病就是杀毒软件总会阻止
窗口放一个button(计算),一个combobox框(item属性填男/女),一个textbox1(用于输入身高),另一个textbox2(显示结果)
button的click事件里:
if me.combobox.text="男" then
me.textbox2.text=(cint(me.textbox1.text-100).tostring
else
me.textbox2.text=(cint(me.textbox1.text-105).tostring
endif
完了