把所有文本都刪掉的代碼如下:
網(wǎng)站建設(shè)哪家好,找創(chuàng)新互聯(lián)公司!專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、小程序開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了吳堡免費(fèi)建站歡迎大家使用!
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = "" ‘這里設(shè)置需要清空的文本,""的意思是清空
End Sub
清空所有窗口的話,直接就是把所有的東西都劃掉就可以了,很簡單的。
1、按以下順序“啟動(dòng)→所有程序→MicrosoftVisualBasic6.0中文版→MicrosoftVisualBasic6.0中文版”打開VB6.0。
2.在窗體zd的“屬性”窗口中,將“標(biāo)題”和“名稱”屬性的值更改為“測(cè)試”,可以看到項(xiàng)目的標(biāo)題欄和主體被更改為“測(cè)試”。
3.雙擊“測(cè)試”表單,彈出“編程”框。在編程框的“process”框中,選擇“Click”點(diǎn)擊事件,編寫程序“test.print”。
4.關(guān)閉通用編程框,按“F5”或單擊“start”按鈕運(yùn)行窗體程序。點(diǎn)擊表單,文字“百度體驗(yàn)歡迎您”出現(xiàn),每次點(diǎn)擊一次,文字出現(xiàn)一次。
5.繼續(xù)在“測(cè)試”窗體的“過程”框中選擇“點(diǎn)擊”事件,編寫程序“測(cè)試”。寬度=測(cè)試。寬度+500”。
6.關(guān)閉編程框,點(diǎn)擊工具欄上的“開始”按鈕,運(yùn)行窗體程序。我們發(fā)現(xiàn),每次我們點(diǎn)擊表單,它就會(huì)增加500個(gè)。
要在VB.NET中清屏已經(jīng)不再是象是在VB6中那么簡單使用一條Cls就能搞定的,因?yàn)楝F(xiàn)在的VB.NET已經(jīng)是完全面向?qū)ο蟮恼Z言了,方法就不能和以前那樣了,下面給出清空窗體的源代碼,通過單擊按鈕清空,如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim g As Graphics
g = Me.CreateGraphics
g.Clear(Me.BackColor)
g.Dispose()
'釋放對(duì)象g所占用的資源
End Sub
OK,程序已經(jīng)成功實(shí)現(xiàn)你要的功能,運(yùn)行環(huán)境VS.NET2003+Windows 2003 Server
歡迎你加入群:30538950進(jìn)行交流!
網(wǎng)頁題目:vb.net清空窗體內(nèi)容 vb的清空怎么設(shè)置
鏈接URL:http://jinyejixie.com/article40/ddojgeo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供定制網(wǎng)站、網(wǎng)站導(dǎo)航、用戶體驗(yàn)、面包屑導(dǎo)航、企業(yè)網(wǎng)站制作、網(wǎng)站內(nèi)鏈
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容