Private m_i As Integer
Private m_j As Integer
Private m_k As Integer
Public Property Get i() As Integer
i= m_i
End Property
Public Property Let i(ByVal ii As Integer)
m_i = ii
End Property
'j、k参照写出,RGB(i,j,k)给哪个变量赋值,自己考虑吧
属性添加方法有两种:
1。公用变量法
public 名称 as 类型
2。property过程法(类型是一般变量类型则无需property set,是对象则无须property let)
private mvar名称 as 类型
public property get 名称()
名称=mvar名称
'其他语句
end property
public property let 名称(new名称 as 类型)
mvar名称=名称
'其他语句
end property
public property set 名称(new名称 as 类型)
set mvar名称=名称
'其他语句
end property
不知是否看懂希望给你有所帮助。
你要怎么变呢
是不是用TEXT使i,j,k可以输入呢,如果是
语法如下
dim i,j,k as integer
i=val(text1.text)
j=val(text2.text)
k=val(text3.text)
RGB(i,j,k)