我们专注攀枝花网站设计 攀枝花网站制作 攀枝花网站建设
成都网站建设公司服务热线:400-028-6601

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb点虐 输入对话框 vbs弹出输入框

请问vb点虐 如何弹出可以输入字符的对话框!谢谢大家了!

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

创新互联建站客户idc服务中心,提供中国电信成都枢纽中心、成都服务器、成都主机托管、成都双线服务器等业务的一站式服务。通过各地的服务中心,我们向成都用户提供优质廉价的产品以及开放、透明、稳定、高性价比的服务,资深网络工程师在机房提供7*24小时标准级技术保障。

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点虐 怎么 弹出 多行输入框 inputbox("内容") 这个只能输入一行...

一共有三个地区啊,第一就是弹出来窗口上面蓝条下面的位置,显示比如“请输入”。第二就是弹出来窗口的标题了,第三个位置就是可输入部分显示的示范内容。

如inputbox("请输入生日","标题","1986-12-11")

vb点虐 中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点虐 输入对话框 vbs弹出输入框
链接地址:http://shouzuofang.com/article/ddggijh.html

其他资讯