vb.net调用输入法 在vb中如何用输入框输入数据

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

相关问答

Q1: vb.nettxt无法输入

你是用输入法vb.net调用输入法的吧vb.net调用输入法，这个是.Net Framework的Bug吧vb.net调用输入法，用输入法的步骤如下vb.net调用输入法：

1、首先保证文本框有焦点

2、按下2次Ctrl+空格

3、切换到自己要用的输入法

这样一般都可以vb.net调用输入法了

Q2: 怎样用vb.net获取输入法的选字表？

这些文字存在于输入法所占用的内存段里。除非你HOOK输入法。

本答案不确定。

Q3: vb.net的textbox中可以正常输入英文数字切换到中文输入法一按键就退出程序

PrivateSubText1_KeyPress(KeyAsciiAsInteger)If((KeyAscii=48AndKeyAscii=65AndKeyAscii=97AndKeyAscii=122))=FalseThenKeyAscii=0EndSub

Q4: 急！火烧眉毛！100分求答案！vb.net 后台获取当前活动窗口的活动输入法

Dim dc1 As IntPtr = CreateDC("DISPLAY", "", "", 0) '取得显示器全屏幕句柄

'也可以这样来取得屏幕句柄

' Dim dc1 As IntPtr = GetDC(0)

'创建显示器的DC

Dim g1 As System.Drawing.Graphics = System.Drawing.Graphics.FromHdc(dc1)

'由一个指定设备的句柄创建一个新的Graphics对象

Dim myImage As System.Drawing.Bitmap = New System.Drawing.Bitmap(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width, System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height, g1)

'根据屏幕大小创建一个与之相同大小的Bitmap对象

Dim g2 As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(myImage)

'获得屏幕的句柄

Dim dc3 As IntPtr = g1.GetHdc()

'获得位图的句柄

Dim dc2 As IntPtr = g2.GetHdc()

'把当前屏幕捕获到位图对象中

BitBlt(dc2, 0, 0, System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width, System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height, dc3, 0, 0, 13369376)

'把当前屏幕拷贝到位图中

g1.ReleaseHdc(dc3)

g2.ReleaseHdc(dc2)

'释放位图句柄

' Me.PictureBox1.Image = myImage

'下面的语句可以用于保存抓取的图像到一个文件中

' If (SaveFileDialog1.ShowDialog() = DialogResult.OK) Then

myImage.Save("d:\PrtScr\Screen" + Str(TimeCol) + ".bmp")

TimeCol = TimeCol + 1

If TimeCol = 11 Then TimeCol = 1 '循环计数，保存十个截图

vb.net调用输入法的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于在vb中如何用输入框输入数据、vb.net调用输入法的信息别忘了在本站进行查找喔。