設計一個新窗體,這個窗體中可以有很多文本框,

創(chuàng)新互聯(lián)公司是一家專注于網(wǎng)站制作、成都網(wǎng)站建設與策劃設計,謝家集網(wǎng)站建設哪家好?創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設十載,網(wǎng)設計領(lǐng)域的專業(yè)建站公司;建站業(yè)務涵蓋:謝家集等地區(qū)。謝家集做網(wǎng)站價格咨詢:028-86922220
當需要輸入數(shù)據(jù)時,加載這個新窗體,從新窗體中獲取數(shù)據(jù)
雖然下面代碼也用了兩個inputbox函數(shù),但是比你的應該也要簡單點,僅供參考
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)",
"數(shù)據(jù)輸入框")
text1.text
=
v0
t
=
inputbox("請輸入時間(s)",
"數(shù)據(jù)輸入框")
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
這個錯誤消息的提示是“不能在非用戶界面的狀態(tài)下使用模態(tài)對話框”,你的這個程序是console(命令行)或者是無界面的?只能在有界面的程序中使用對話框的。
假如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
網(wǎng)站名稱:vb.net多點輸入框,雙擊添加到高級文本框 vb
轉(zhuǎn)載源于:http://chinadenli.net/article26/dsghdjg.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供Google、App設計、虛擬主機、用戶體驗、企業(yè)建站、網(wǎng)站設計
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)