用msgbox()顯示對話框
創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供銅鼓網(wǎng)站建設(shè)、銅鼓做網(wǎng)站、銅鼓網(wǎng)站設(shè)計(jì)、銅鼓網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、銅鼓企業(yè)網(wǎng)站模板建站服務(wù),10年銅鼓做網(wǎng)站經(jīng)驗(yàn),不只是建網(wǎng)站,更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
msgbox的用法很多,基礎(chǔ)的就是msgbox(“你要顯示的內(nèi)容”)
或者msgbox(“你要顯示的內(nèi)容”,16,"對話框名稱")'16是對話框的類型,還有幾個(gè)鍵的組合代碼,這個(gè)你可以
查查
,很多,或者你也可以用提示給出的類型,比如MsgBoxStyle.Exclamation就是顯示錯(cuò)誤對話框,
一共有三個(gè)地區(qū)啊,第一就是彈出來窗口上面藍(lán)條下面的位置,顯示比如“請輸入”。第二就是彈出來窗口的標(biāo)題了,第三個(gè)位置就是可輸入部分顯示的示范內(nèi)容。
如inputbox("請輸入生日","標(biāo)題","1986-12-11")
雖然下面代碼也用了兩個(gè)inputbox函數(shù),但是比你的應(yīng)該也要簡單點(diǎn),僅供參考
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("請輸入時(shí)間(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
這個(gè)錯(cuò)誤消息的提示是“不能在非用戶界面的狀態(tài)下使用模態(tài)對話框”,你的這個(gè)程序是console(命令行)或者是無界面的?只能在有界面的程序中使用對話框的。
假如Form1有個(gè)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
當(dāng)前標(biāo)題:vb.net輸入對話框 vbs編寫對話框
網(wǎng)頁URL:http://chinadenli.net/article14/hgoige.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供關(guān)鍵詞優(yōu)化、網(wǎng)站排名、面包屑導(dǎo)航、電子商務(wù)、全網(wǎng)營銷推廣、做網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)