VB.NET 向指定(网页或软件)的输入框内输入字符,如何实现?假如Form1有个TextBox1 , 双击TextBox1填入123
Public Class Form1
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick
System.Windows.Forms.SendKeys.Send("123")
End Sub
End Class
看你的VB.NET 版本了
用 My.Computer.Keyboard.SendKeys("123", True)代替 System.Windows.Forms.SendKeys.Send("123") 也可以
原码:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick
My.Computer.Keyboard.SendKeys("123", True)
End Sub
End Class
请问vb.net如何弹出可以输入字符的对话框!谢谢大家了!这个错误消息的提示是“不能在非用户界面的状态下使用模态对话框”,你的这个程序是console(命令行)或者是无界面的?只能在有界面的程序中使用对话框的 。
vb.net 中inputbox 用法虽然下面代码也用了两个inputbox函数,但是比你的应该也要简单点,仅供参考
const
a
=
1.5
dim
v0
as
string
dim
vt
as
string
dim
t
as
long
【vb.net输入对话框 vb弹出输入框】dim
s
as
double
private
sub
form_load()
v0
=
inputbox("请输入初速度(m/s)",
"数据输入框")
text1.text
=
v0
t
=
inputbox("请输入时间(s)",
"数据输入框")
text2.text
=
t
vt
=
v0
a
*
t
s
=
v0
*
t
(1
/
2)
*
a
*
t
^
2
end
sub
private
sub
command1_click()
msgbox
"距离是"
s
end
sub
vb.net输入对话框的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vb弹出输入框、vb.net输入对话框的信息别忘了在本站进行查找喔 。
推荐阅读
- 无线猫和路由器怎么连接,无线猫和路由器怎么连接手机
- 跳伞飞行的手机游戏,跳伞啥游戏
- jquery1.9.1.jsxss的简单介绍
- mysql怎么使用虚拟表 mysql如何连接虚拟机数据库
- 荣耀9x鸿蒙公测测评,荣耀9x内测鸿蒙
- 爬虫python看不懂,python爬虫 科普
- 我的世界国外公共服务器,我的世界外国服务器地址
- linux命令不输出 linux输出不换行
- 如何营销信贷产品,信贷产品营销案例