Public Class ControlValue
成都創新互聯公司主營葉城網站建設的網絡公司,主營網站建設方案,成都APP應用開發,葉城h5小程序設計搭建,葉城網站營銷推廣歡迎葉城等地區企業咨詢
Inherits Control
''' summary
''' 獲取或設置控件的值。
''' /summary
System.ComponentModel.Browsable(True)
System.ComponentModel.Category("布局")
System.ComponentModel.Description("獲取或設置控件的值。")
Public Property Value As String
End Class
'代碼來源:代碼街codejie.net
'由于在vb.net里變量名不區分大小寫(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 '學生住址字段
'無參構造方法
Public Sub New()
End Sub
'有參構造方法
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里是針對【上】這個類的改變,你如果這樣寫是觸發不了屬性改變的:
ButtonTop.背景?=?Image.FromFile("C:/1.png")
正確的處理辦法應該是new一個【上】類的對象,初始化時進行賦值就可以了
Me.ButtonTop?=?New?Class1()?With?{.背景?=?Image.FromFile("C:/1.png")}
Property用于標識一個類成員為屬性而不是方法.屬性可以被獲取,屬性在被獲以的時候利用get句柄返回其值.屬性可以被賦值,這個過程是由set句柄完成的.這兩個句柄可以不同時存在.如果只有get而沒有set,那屬性就是只讀的.如果只有set而沒有get,那屬性就是只寫的.
就是定義了兩個屬性:s_name和s_sex
Overridable 表示這個屬性可以被重載。
當用戶可以設置或者得到屬性的值的時候,這些屬性就在改變。有此屬性可以在設計的時候改變。用戶可以在屬性窗口設置這些屬性的值,而不需要寫任何代碼,而有些代碼在設計的時候是不能改變的,所以必須在運行的程序中寫入一些設置屬性的值的代碼。
那些可以在運行的時候設置和讀取的屬性被稱作"read-write"屬性。而那些只能在運行的時候讀取的代碼稱為"read-only"屬性。
1.設置屬性值
當需要改變一個對象的外觀或者行為時,就可以改變對象的屬性值。例如可以通過改變一個textbox控件的Text屬性值,來改變Textbox里面的內容。
設置一個屬性的值,可以用以下的語法:
object.property=expression
如下一些實例:
TextBox1.Top=200 '讓Top屬性值為200
TextBox1.Visible=True '顯示TextBox
TextBox1.Text="hello" '在TextBox中顯示"hello"
2.得到屬性的值
當代碼要對一個對象進行一些操作時,用戶可能需要得到一個對象的狀態,例如,在對一個TextBox控件進行下一步操作時,可能需要得知TextBox的text屬性的值,等等。
通常情況下,用戶可以通過下面這樣的語法得到一個對象的屬性值:
variable=object.property
用戶可以把一個對象的屬性值作為一個復雜表達式的一部分,而不需要先把屬性值賦給一個變量再進行計算,下面這個例子就是改變一個radio按鈕的屬性的代碼:
Private Sub cmdAdd_Click()
'[statements]
RadioButton1.Top=RadioButton1.top+20
'[statements]
End Sub
注意:如果用戶需要多次使用一個屬性值的話,那么先把屬性值賦給一個變量,將會使效率更快一點。
在vb.net窗口程序里測試你的代碼沒有問題,所以應該是其他問題.
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的關系
本文路徑:http://m.kartarina.com/article30/dseiepo.html
成都網站建設公司_創新互聯,為您提供網站設計公司、服務器托管、動態網站、自適應網站、微信小程序、外貿建站
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯