正文
vb.net提交按键 vbnet ui
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB.NET中的按键定义问题
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
if Me.TextBox1.Text = "信息" Then Me.TextBox1.Text ="社会" Else Me.TextBox1.Text = "信息"
Me.Button10.Text = "下一步"
End Sub
相关问答
Q1: 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
一个 文本框 两个按钮 试试吧 应该很容易的
Q2: VB.net的快捷键
1． F12：转到定义；Shift+F12：转到引用
2． F5：启动；Ctrl+F5：开始执行（不调试）；Shift+F5：停止调试
3． F7：查看代码；Shift+F7：查看视图设计器
4． Ctrl+Alt+L：解决方案资源管理器
5． Ctrl+Alt+J：对象浏览器
6． F4：显示属性窗口
7． Ctrl+Alt+X：工具箱
8． Ctrl+Alt+C类视图
9． Alt+Enter：查看属性
10．F10：逐过程调试
11．F11：逐语句调试
12．Ctrl+B：新断点
13．Ctrl+Shift+F9：清除所有断点
14．Ctrl+Shift+B生成解决方案
15．Shift+Alt+Enter：全屏
16．大纲显示：Ctrl+M, Ctrl+M：切换大纲显示展开；Ctrl+M, Ctrl+L：切换所有大纲显示；Ctrl+M,Crtl+P停止大纲显示；Ctrl+M, Ctrl+O：折叠到定义
17．智能感知：Ctrl＋J：列出成员；Ctrl+Shift+空格：参数信息； Ctrl+K,Ctrl+I：快速信息；Alt+右箭头键：完成单词
Q3: vb.net 网页提交表单
发送页面：
用get传值 如 点击button时 response.redirect（"接受页面的url"?canshu=textbox.text）
在接受页面：
用Request.QueryString["canshu"].toString（）； 这样就接受到textbox里的值了。
然后根据这个值到数据库里查询就行了。
关于vb.net提交按键和vbnet ui的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
