|
|
发表于 2007-3-5 20:31:00
|
显示全部楼层
Re:不使用类的VB游戏程序设计方法（1）
public type CMyClass
m_a as integer
end type
'//------------------
public function CMyClass_SetA(this as CMyClass,val) as interger
this.m_a=val
end function
'//--------------
'//SAMPLE:
dim objA as CMyClass
call SetA(objA,123)
|
|
