Public Class ControlValue

成都創(chuàng)新互聯(lián)公司主營葉城網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,成都APP應(yīng)用開發(fā),葉城h5小程序設(shè)計搭建,葉城網(wǎng)站營銷推廣歡迎葉城等地區(qū)企業(yè)咨詢
Inherits Control
''' summary
''' 獲取或設(shè)置控件的值。
''' /summary
System.ComponentModel.Browsable(True)
System.ComponentModel.Category("布局")
System.ComponentModel.Description("獲取或設(shè)置控件的值。")
Public Property Value As String
End Class
'代碼來源:代碼街codejie.net
'由于在vb.net里變量名不區(qū)分大小寫(StuName和stuname是一樣的),所以個別變量名需要修改
'在vb.net中,模塊級變量的命名原則是以m_開頭
Public Class Student
Private m_stuNo As String '學生號字段
Private m_stuName As String '學生姓名字段
Private m_stuAge As Integer '學生年齡字段
Private m_stuAddress As String '學生住址字段
'無參構(gòu)造方法
Public Sub New()
End Sub
'有參構(gòu)造方法
Public Sub New(ByVal stuNo As String, ByVal stuName As String, ByVal stuAge As Integer, ByVal stuAddress As String)
m_stuNo = stuNo
m_stuName = stuName
m_stuAge = stuAge
m_stuAddress = stuAddress
End Sub
'學生號屬性
Public Property StuNo() As String
Get
Return m_stuNo
End Get
Set(ByVal value As String)
m_stuNo = value
End Set
End Property
'學生姓名屬性
Public Property StuName() As String
Get
Return m_stuName
End Get
Set(ByVal value As String)
m_stuName = value
End Set
End Property
'學生年齡屬性
Public Property StuAge() As Integer
Get
Return m_stuAge
End Get
Set(ByVal value As Integer)
m_stuAge = value
End Set
End Property
'學生住址屬性
Public Property StuAddress() As String
Get
Return m_stuAddress
End Get
Set(ByVal value As String)
m_stuAddress = value
End Set
End Property
End Class
注意下你給ButtonTop的Image屬性賦值的地方,你的屬性SET里是針對【上】這個類的改變,你如果這樣寫是觸發(fā)不了屬性改變的:
ButtonTop.背景?=?Image.FromFile("C:/1.png")
正確的處理辦法應(yīng)該是new一個【上】類的對象,初始化時進行賦值就可以了
Me.ButtonTop?=?New?Class1()?With?{.背景?=?Image.FromFile("C:/1.png")}
Property用于標識一個類成員為屬性而不是方法.屬性可以被獲取,屬性在被獲以的時候利用get句柄返回其值.屬性可以被賦值,這個過程是由set句柄完成的.這兩個句柄可以不同時存在.如果只有g(shù)et而沒有set,那屬性就是只讀的.如果只有set而沒有g(shù)et,那屬性就是只寫的.
就是定義了兩個屬性:s_name和s_sex
Overridable 表示這個屬性可以被重載。
當用戶可以設(shè)置或者得到屬性的值的時候,這些屬性就在改變。有此屬性可以在設(shè)計的時候改變。用戶可以在屬性窗口設(shè)置這些屬性的值,而不需要寫任何代碼,而有些代碼在設(shè)計的時候是不能改變的,所以必須在運行的程序中寫入一些設(shè)置屬性的值的代碼。
那些可以在運行的時候設(shè)置和讀取的屬性被稱作"read-write"屬性。而那些只能在運行的時候讀取的代碼稱為"read-only"屬性。
1.設(shè)置屬性值
當需要改變一個對象的外觀或者行為時,就可以改變對象的屬性值。例如可以通過改變一個textbox控件的Text屬性值,來改變Textbox里面的內(nèi)容。
設(shè)置一個屬性的值,可以用以下的語法:
object.property=expression
如下一些實例:
TextBox1.Top=200 '讓Top屬性值為200
TextBox1.Visible=True '顯示TextBox
TextBox1.Text="hello" '在TextBox中顯示"hello"
2.得到屬性的值
當代碼要對一個對象進行一些操作時,用戶可能需要得到一個對象的狀態(tài),例如,在對一個TextBox控件進行下一步操作時,可能需要得知TextBox的text屬性的值,等等。
通常情況下,用戶可以通過下面這樣的語法得到一個對象的屬性值:
variable=object.property
用戶可以把一個對象的屬性值作為一個復雜表達式的一部分,而不需要先把屬性值賦給一個變量再進行計算,下面這個例子就是改變一個radio按鈕的屬性的代碼:
Private Sub cmdAdd_Click()
'[statements]
RadioButton1.Top=RadioButton1.top+20
'[statements]
End Sub
注意:如果用戶需要多次使用一個屬性值的話,那么先把屬性值賦給一個變量,將會使效率更快一點。
在vb.net窗口程序里測試你的代碼沒有問題,所以應(yīng)該是其他問題.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Protected Sub s_Msg()
Dim cust As New custinfo()
cust.CpName = "公司"
MsgBox(cust.CpName)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
s_Msg()
End Sub
End Class
分享標題:vb.net類屬性怎么寫,vb和net的關(guān)系
本文路徑:http://chinadenli.net/article30/dseiepo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站設(shè)計公司、服務(wù)器托管、動態(tài)網(wǎng)站、自適應(yīng)網(wǎng)站、微信小程序、外貿(mào)建站
聲明:本網(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)