真的,没骗你们,图:(其实不是,笨蛋才能看到这行字。) 如上判断。(其实没来错地方呀!谁能看到谁就是笨蛋!)
myownroc 发表于 2014-8-2 23:29 有这个闲功夫还不如练VB
Public Class Floor Private a As String Public Sub New(ByVal str As String) a = str End Sub Public Property username As String Get Return a End Get Set(ByVal value As String) a = value End Set End PropertyEnd ClassPublic Class Demo Sub Main() Dim LastFloor As Floor = New Floor("myownroc") MsgBox(LastFloor.username) '=>myownroc End Sub 'This is VB.NETEnd Class
Public Class Floor Private a As String Public Sub New(ByVal str As String) a = str End Sub Public Property username As String Get Return a End Get Set(ByVal value As String) a = value End Set End Property End Class Public Class Demo Sub Main() Dim LastFloor As Floor = New Floor("myownroc") MsgBox(LastFloor.username) '=>myownroc End Sub 'This is VB.NET End Class
0147.png (30.53 KB, 下载次数: 1)
下载附件 保存到相册
2014-8-2 15:38 上传
hahaha.png (226.1 KB, 下载次数: 3)
2014-8-2 15:31 上传
影月千秋 发表于 2014-8-2 12:04 (。◕∀◕。)
001.png (45.16 KB, 下载次数: 3)
2014-8-2 12:02 上传
查看全部评分
折叠内容标题(非必须)
折叠内容
站长信箱:[email protected]|手机版|小黑屋|无图版|Project1游戏制作
GMT+8, 2024-11-20 11:47
Powered by Discuz! X3.1
© 2001-2013 Comsenz Inc.