重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
參考一下下面這段代碼:
創新互聯公司堅持“要么做到,要么別承諾”的工作理念,服務領域包括:成都網站建設、成都網站制作、企業官網、英文網站、手機端網站、網站推廣等服務,滿足客戶于互聯網時代的海興網站設計、移動媒體設計的需求,幫助企業找到有效的互聯網解決方案。努力成為您成熟可靠的網絡建設合作伙伴!
‘?首先picturebox1?加載一張圖像
FolderBrowserDialog1.Description?=?"選擇圖片文件夾導入圖片"
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()
效果大致如下圖所示:
和其它語言是一樣的
寫法不同而已
類關鍵字
在下面的例子中,代碼包含了一個關鍵字End
Class。這是一個新的關鍵字,使用它的目的是為了在一個源文件中包含多個類,這點正是VB.NET與VB6在創建類區別的精髓所在。每當我們在VB.NET中創建類的時候,我們只是簡單地將所有的的代碼包含在Class和End
Class
之間。例子代碼如下:
Public護雞篙課蕻酒戈旬恭莫
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里所有的類都直接或間接派生自Object類,它是完全面向對象的,使用的所有方法,屬性都是由相應對象提供,所以,所有的都是對象。
人類是一個類,你是人,我是人,都是人類的實例(instance),或稱對象(object)。一個類描述一類事物,描述這些事物所應具有的屬性,如人有身長、體重、文化程度、性別、年齡、民族等。
一個對象是類的一個實例,它具有確定的屬性,如張三(人的實例)身高180,體重70公斤,大學本科,男,21歲,漢族。
人類只有一個,人類的實例可以有無數個。
對象可以被創建和銷毀,但類是無所不在的。
例如,桌子是一個類, 人們不斷打造各種尺寸和風格(屬性)的桌子(桌子的實例),打造桌子, 又不斷毀壞桌子,年復一年,舊的去了,新的又來,但桌子的概念沒變,它是一個抽象的概念。應該稱它為桌子類,以區別于打造的具體桌子。