vb.net清除繪圖 vb清除命令

vb.net中用Graphics.DrawString畫一字符串后，怎么再將它擦掉？？請各位高手幫幫忙?。?！

把字符串設(shè)置成和底顏色一樣，然后再寫一次就行了

成都創(chuàng)新互聯(lián)主營麥積網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,App定制開發(fā),麥積h5微信小程序開發(fā)搭建,麥積網(wǎng)站營銷推廣歡迎麥積等地區(qū)企業(yè)咨詢

當(dāng)然這個是取巧的辦法

vb.net繪圖問題

代碼：

Public?Class?Form1

'*********************************************************************???

'作者：章魚哥，QQ：3107073263?群：309816713???????

'如有疑問或好的建議請聯(lián)系我，大家一起進步?????

'*********************************************************************?????

'繪制圓角矩形函數(shù)

Private?Function?GetRoundedRectPath(ByVal?rect?As?Rectangle,?ByVal?radius?As?Integer)?As?System.Drawing.Drawing2D.GraphicsPath

rect.Offset(-1,?-1)

Dim?RoundRect?As?New?Rectangle(rect.Location,?New?Size(radius?-?1,?radius?-?1))

Dim?path?As?New?System.Drawing.Drawing2D.GraphicsPath

path.AddArc(RoundRect,?180,?90)?????'左上角

RoundRect.X?=?rect.Right?-?radius???'右上角

path.AddArc(RoundRect,?270,?90)

RoundRect.Y?=?rect.Bottom?-?radius??'右下角

path.AddArc(RoundRect,?0,?90)

RoundRect.X?=?rect.Left?????????????'左下角

path.AddArc(RoundRect,?90,?90)

path.CloseFigure()

Return?path

End?Function

'繪制矩形

Private?Sub?DrawingRect()

Dim?g?As?Graphics?=?Me.CreateGraphics

Dim?Pen?As?New?Pen(Brushes.DarkRed,?2)

Dim?Hei?As?Integer?=?Me.Height

Dim?Wid?As?Integer?=?Me.Width

'矩形的位置和長寬隨著窗體的變化而改變

Dim?Rec?As?New?Rectangle(Int(Wid?/?5),?Int(Hei?/?5),?Int(Wid?/?2),?Int(Hei?/?2))

'??g.DrawRectangle(Pen,?Rec)

'清楚現(xiàn)有的矩形

g.Clear(Me.BackColor)

g.DrawPath(Pen,?GetRoundedRectPath(Rec,?30))

End?Sub

Private?Sub?Form1_Paint(ByVal?sender?As?System.Object,?ByVal?e?As?System.Windows.Forms.PaintEventArgs)?Handles?MyBase.Paint

DrawingRect()

End?Sub

Private?Sub?Form1_SizeChanged(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.SizeChanged

Me.Invalidate()?'此函數(shù)可引發(fā)Paint事件

End?Sub

End?Class

效果截圖:

原窗口：

縮小后：

vb.net 中如何用代碼移除窗體或按鈕的背景圖？

開一個 button 控件

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.BackgroundImage = Nothing

End Sub

釋放掉背景就好了

按鈕也一樣

請問vb.net中如何實現(xiàn)窗體的清空

要在VB.NET中清屏已經(jīng)不再是象是在VB6中那么簡單使用一條Cls就能搞定的,因為現(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()

'釋放對象g所占用的資源

End Sub

OK,程序已經(jīng)成功實現(xiàn)你要的功能,運行環(huán)境VS.NET2003+Windows 2003 Server

歡迎你加入群:30538950進行交流!

分享名稱：vb.net清除繪圖 vb清除命令
網(wǎng)頁路徑：http://muchs.cn/article34/dosjcpe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供商城網(wǎng)站、響應(yīng)式網(wǎng)站、移動網(wǎng)站建設(shè)、定制開發(fā)、App設(shè)計、網(wǎng)站設(shè)計

廣告

聲明：本網(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)