vb.net多点输入框,双击添加到高级文本框 vb

求大神指点 vb.net 怎么 弹出 多行输入框 inputbox("内容") 这个只能输入一行...

设计一个新窗体，这个窗体中可以有很多文本框，

创新互联公司是一家专注于网站制作、成都网站建设与策划设计,谢家集网站建设哪家好?创新互联公司做网站,专注于网站建设十载,网设计领域的专业建站公司;建站业务涵盖:谢家集等地区。谢家集做网站价格咨询:028-86922220

当需要输入数据时，加载这个新窗体，从新窗体中获取数据

vb.net 中inputbox 用法

虽然下面代码也用了两个inputbox函数，但是比你的应该也要简单点，仅供参考

const

a

=

1.5

dim

v0

as

string

dim

vt

as

string

dim

t

as

long

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如何弹出可以输入字符的对话框！谢谢大家了！

这个错误消息的提示是“不能在非用户界面的状态下使用模态对话框”，你的这个程序是console（命令行）或者是无界面的？只能在有界面的程序中使用对话框的。

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多点输入框,双击添加到高级文本框 vb
转载源于：https://www.cdcxhl.com/article26/dsghdjg.html

成都网站建设公司_创新互联，为您提供Google、App设计、虚拟主机、用户体验、企业建站、网站设计

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联