你用的都是vb6的代碼,改成:
創(chuàng)新互聯(lián)是專業(yè)的全南網(wǎng)站建設(shè)公司,全南接單;提供做網(wǎng)站、網(wǎng)站制作,網(wǎng)頁設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行全南網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If IsNumeric(TextBox1.Text) = False Then
MsgBox("輸入有非數(shù)字字符,請(qǐng)重新輸入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub
Private?Sub?Form_Load()
Text1.Text?=?"請(qǐng)輸入"
End?Sub
Private?Sub?Text1_GotFocus()
If?Text1.Text?=?"請(qǐng)輸入"?Then?Text1.Text?=?""
End?Sub
Private?Sub?Text1_LostFocus()
If?Text1.Text?=?""?Then?Text1.Text?=?"請(qǐng)輸入"
End?Sub
補(bǔ)充說明:不提倡你的做法。盡管這是目前軟件或網(wǎng)頁比較流行的提示用戶輸入的方式,但別忘了VB6是上世紀(jì)的古董級(jí)程序設(shè)計(jì)語言,當(dāng)時(shí)的軟件界面設(shè)計(jì)中并沒有這種方式的,而我上面提供的用代碼來解決的方式必然會(huì)增加系統(tǒng)負(fù)擔(dān)。所以最好還是用標(biāo)準(zhǔn)方式即Label標(biāo)簽控件來進(jìn)行提示。
input type="text" maxlength="11" /這是控制最大輸入字?jǐn)?shù)至于不能少于11個(gè)字,需要在點(diǎn)擊保存按鈕時(shí),通過.length來控制