參考一下下面這段代碼:
創(chuàng)新互聯(lián)公司堅(jiān)持“要么做到,要么別承諾”的工作理念,服務(wù)領(lǐng)域包括:成都網(wǎng)站建設(shè)、成都網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù),滿足客戶于互聯(lián)網(wǎng)時代的海興網(wǎng)站設(shè)計(jì)、移動媒體設(shè)計(jì)的需求,幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴!
‘?首先picturebox1?加載一張圖像
FolderBrowserDialog1.Description?=?"選擇圖片文件夾導(dǎo)入圖片"
FolderBrowserDialog1.ShowDialog()
path?=?FolderBrowserDialog1.SelectedPath()
If?path?=?""?Then?Return
strSrcFile?=?Dir(path??"\*.tif")
PictureBox1.Image?=?Image.FromFile(path??"\"??strSrcFile)
’??然后再在picturebox1中用graphic畫圖而不清空原圖像
'?建立一個畫圖對象
Dim?g?As?Graphics?=?Me.PictureBox1.CreateGraphics
‘?定義畫筆
Dim?myPen?As?System.Drawing.Pen?=?New?System.Drawing.Pen(Color.Blue)
’?畫出矩形框并且填充顏色(顏色保持50%的透明度,使得下面原來的圖片背景能看得到)
g.DrawRectangle(myPen,?New?System.Drawing.Rectangle(50,?50,?30,?20))
g.FillRectangle(New?SolidBrush(Color.FromArgb(50,?Color.YellowGreen)),?New?System.Drawing.Rectangle(50,?50,?30,?20))
'?最后釋放畫圖對象
g.Dispose()
效果大致如下圖所示:
和其它語言是一樣的
寫法不同而已
類關(guān)鍵字
在下面的例子中,代碼包含了一個關(guān)鍵字End
Class。這是一個新的關(guān)鍵字,使用它的目的是為了在一個源文件中包含多個類,這點(diǎn)正是VB.NET與VB6在創(chuàng)建類區(qū)別的精髓所在。每當(dāng)我們在VB.NET中創(chuàng)建類的時候,我們只是簡單地將所有的的代碼包含在Class和End
Class
之間。例子代碼如下:
Public護(hù)雞篙課蕻酒戈旬恭莫
Class
TheClass
Public
Sub
MyWorks()
End
Sub
End
Class
另外在一個特定的源文件(后綴名為.vb)中,我們可以使用多個Class...End
Class塊。
希望能幫到你
For i As Integer = 1 To 15
Controls("TextBox" i).Text = i.ToString
Next
'如果TextBox在GroupBox1中,需要把Controls改成GroupBox1.Controls
VB.NET里所有的類都直接或間接派生自O(shè)bject類,它是完全面向?qū)ο蟮?,使用的所有方法,屬性都是由相?yīng)對象提供,所以,所有的都是對象。
人類是一個類,你是人,我是人,都是人類的實(shí)例(instance),或稱對象(object)。一個類描述一類事物,描述這些事物所應(yīng)具有的屬性,如人有身長、體重、文化程度、性別、年齡、民族等。
一個對象是類的一個實(shí)例,它具有確定的屬性,如張三(人的實(shí)例)身高180,體重70公斤,大學(xué)本科,男,21歲,漢族。
人類只有一個,人類的實(shí)例可以有無數(shù)個。
對象可以被創(chuàng)建和銷毀,但類是無所不在的。
例如,桌子是一個類, 人們不斷打造各種尺寸和風(fēng)格(屬性)的桌子(桌子的實(shí)例),打造桌子, 又不斷毀壞桌子,年復(fù)一年,舊的去了,新的又來,但桌子的概念沒變,它是一個抽象的概念。應(yīng)該稱它為桌子類,以區(qū)別于打造的具體桌子。