正文
vb.net网站提交 vbnet webbrowser
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
VB.NET从数据库A表里循环出了产品,想根据产品输入数量提交至B表
干嘛这么麻烦啊!
直接用insert into b select * from a;即可
这样也不用点击提交 按钮!
简单vb.net网站提交,方便
那个列表名称要对应啊!别弄错
那就用
for a=0 to listview.items.count
xxxxxxx
xxxxxxx
next
vb.net网站提交你用vb.net网站提交的是listview控件吧!
如何创建一个VB.NET版的网站
应该说是asp.net(vb.net)的网站,后台程序是用vb.net写的。
1、安装vs.net软件(选默认语言是vb.net),安装iis服务器,安装数据库
2、运行vs.net软件,新建asp.net网站,写好网页。需要具备的知识点有html+div、javascript、jqurey、AJAX、vb.net、数据库的操作等。
3、在网上购买一个网站虚拟空间,购买一个域名,发布自已做好的网站上去就OK了
如何VB.net实现浏览的网页自动填单
让网页自动填写表单操作步骤:
打开浏览器设置,点击打开【Internet选项】
在Internet选项卡上选择【内容】,点击自动完成下面的【设置】
在自动完成设置中勾选希望自动完成功能用于哪些方面,勾选前面的复选框即可
点击确定完成
vb.net 通过url传值
这是中文编码你没设置好。首先在Dreamweaver CS4里面,选择》》编辑》》首先参数》》 左侧选择 新建文档》》》默认编码》》简体中文gb2312.ok新建文档。把你原来的代码粘贴进去,最好重新写一下。测试
%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%
!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""
html xmlns=""
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312" /
title解决中文乱码问题/title
/head
body
%
if request.QueryString("j")="j" then
response.write (request.Form("user"))
end if
%
form name="form1" method="post" action="?j=j"
label
input type="text" name="user" id="user"
/label
label
input type="submit" name="button" id="button" value="提交"
/label
/form
/body
/html
用我直接给你写的也ok
vb.net通过按钮POST数据
Private Sub Command1_Click()
ReferForm "WebBrowser1", 2, "message", Text1.Text
End Sub
Private Sub Command2_Click()
ReferForm "WebBrowser1", 8, "submit"
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate ("")
End Sub
'*************************************************************************
'**函 数 名:ReferForm
'**中文意译:表单提交
'**输 入:ByVal WebbrowserA(String) - webbrowser控件名
'** :ByVal FormType(Integer) - 集合 表单类型
'** Text = 0; password = 1; textarea = 2; Hidden = 3; CheckBox = 4; submit = 8; button = 9
'** :Optional FormName(String) - 表单名[可选]
'** :Optional Value(String = "") - 表单值[可选]
'**输 出:无
'**功能描述:
'** :
'**作 者:最恨VB
'**日 期:2008-01-31 07:46:14
'*************************************************************************
Sub ReferForm(ByVal Webbrowser$, ByVal FormType%, Optional FormName$, Optional Value$ = "")
If FormType 0 Or FormType 9 Then
Exit Sub
End If
Dim objDoc, objTag
Set objDoc = Me.Controls(Webbrowser).Document
For i = 0 To objDoc.All.length - 1
Select Case UCase$(objDoc.All(i).tagName)
Case "INPUT"
Set objTag = objDoc.All(i)
Select Case FormType
Case 0, 1
If objTag.Name = FormName Then
objTag.Value = Value
End If
Case 3
Case 4
If objTag.Name = FormName Then
objTag.Click
End If
Case 8
If objTag.Type = FormName Then
objTag.Click
End If
Case 9
If objTag.Type = FormName Then
objTag.Click
End If
End Select
Case "TEXTAREA"
Set objTag = objDoc.All(i)
Select Case FormType
Case 2
objTag.Value = Value
End Select
End Select
Next
End Sub
这个是 VB6的代码的
我的.NET 出问题了 要不就帮改过来了
你要想用的话 增加一个 WebBrowser
一个 文本框 两个按钮 试试吧 应该很容易的
如何用vb.net进行网站开发
打开VS , 选择VisualBasic -- Web -- ASP.NET Web 应用程序
如下图:
vb.net网站提交的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vbnet webbrowser、vb.net网站提交的信息别忘了在本站进行查找喔。