[已解决]为什么我写的类老是对不了？

爱疯

hFMLewqP.rar (10.45 KB, 下载次数: 0)

2010-3-9 22:54 上传

点击文件名下载附件
为什么我写的类老是对不了？

只为学写类，如题。谢谢。希望通过这个3个滚动条控制按钮1的背景颜色。
还是补上，方便查看：

模块里的

Sub 按钮1_Click()
    UserForm1.Show
End Sub

窗体里的

Dim myobj(1 To 3) As New mycls
Public R   '红
Public G   '绿
Public B   '蓝

Private Sub UserForm_Initialize()
    Dim i As Integer

    R = Me.ScrollBar1.Value
    G = Me.ScrollBar2.Value
    B = Me.ScrollBar3.Value
    For i = 1 To 3
        Set myobj(i).myevent = Me.Controls("ScrollBar" & i)
    Next i
End Sub

类模块里的

Public WithEvents myevent As MSForms.CommandButton

Private Sub myevent_Click()
    CommandButton1.BackColor = RGB(R, G, B)
End Sub

[此贴子已经被作者于2010-3-9 23:18:57编辑过]

最佳答案

月排行榜 / 总排行榜

amulee

2010-3-10 15:35

QUOTE:

以下是引用爱疯在2010-3-10 15:13:00的发言：

啊？

1. EnableEvents的父亲可是Application呀，Application即excel，excel即包括工作表、窗体 ...
2. “如果对指定对象启用事件，则该属性值为 True。Boolean 类型，可读写。”帮助说。

如果如阿木所说，帮助中至少该注一笔啊。

24楼，有时好像没事，有时出错，但我知道肯定有错，就是不知错在哪儿[em11]

Application指的是Excel程序，UserForm1不属于其中。

新建一个文件，在添加窗体前和添加窗体后，你看看工具--〉引用里的区别就知道了

跳转到最佳答案楼层

爱疯

Su4am4k0.rar (11.83 KB, 下载次数: 0)

2010-3-9 23:41 上传

点击文件名下载附件
为什么我写的类老是对不了？

有几个问题：

1. 虽然能改变颜色，但是有时改不了，为什么呢？
2. 能否窗体启动后，滚动条默认位置在正中间？
3. 点击复位后，滚动条位置恢复到正中间？
4. 点击任何一个滚动条，移动得都很慢，能否改得移动快1点？

谢谢，好多问题啊

[em04]

开辆小富康

Option Explicit
Dim myobj(1 To 3) As New mycls

Private Sub CommandButton1_Click()
Dim i
 For i = 1 To 3
       
        myobj(i).myevent.Value = 127
      
    Next i

End Sub

Private Sub UserForm_Initialize()
    Dim i As Integer
    For i = 1 To 3
        Set myobj(i).myevent = UserForm1.Controls("ScrollBar" & i)
        myobj(i).myevent.Value = 127(可手工定义）

        myobj(i).myevent.Max = 255(可手工定义）
    Next i
End Sub

其他未作变化，关键是这个255哦

amulee

一般我喜欢这样弄。

窗体代码：

Option Explicit
Dim myobj(1 To 3) As New mycls
Private Sub CommandButton1_Click()
    Dim i%
    For i = 1 To 3
        myobj(i).SetScroll
    Next
End Sub
Private Sub UserForm_Initialize()
    Dim i As Integer
    For i = 1 To 3
        myobj(i).Attach UserForm1.Controls("ScrollBar" & i)
    Next i
End Sub

类模块代码：

Option Explicit
Public WithEvents myevent As MSForms.ScrollBar
Public R   '红
Public G   '绿
Public B   '蓝
Public Sub Attach(IsScroll As MSForms.ScrollBar)
    Set myevent = IsScroll
    Call SetScroll
End Sub
Private Sub myevent_Change()
    With UserForm1
        R = .ScrollBar1.Value
        G = .ScrollBar2.Value
        B = .ScrollBar3.Value
        UserForm1.CommandButton1.BackColor = RGB(R, G, B)
    End With
End Sub
Public Sub SetScroll()
    myevent.Max = 255
    myevent.Value = 127
End Sub

吕?布

我这里原代码不能运行，改为：

mycls类模块代码

Option Explicit

Public R   '红
Public G   '绿
Public B   '蓝
Public WithEvents myevent As MSForms.ScrollBar

Private Sub Class_Initialize()
    R = UserForm1.ScrollBar1.Value
    G = UserForm1.ScrollBar2.Value
    B = UserForm1.ScrollBar3.Value
End Sub

Private Sub myevent_Change()
    With UserForm1
        R = .ScrollBar1.Value
        G = .ScrollBar2.Value
        B = .ScrollBar3.Value
        .CommandButton1.BackColor = RGB(R, G, B)
        Debug.Print R, G, B
    End With
End Sub

窗体UserForm1代码

Option Explicit

Dim myobj(1 To 3) As New mycls

Private Sub UserForm_Initialize()
    Dim i As Integer
    For i = 1 To 3
        Set myobj(i).myevent = Me.Controls("ScrollBar" & i)
        Me.Controls("ScrollBar" & i).Max = 255  '调整滑动条最大值
    Next i
    Me.ScrollBar1.LargeChange = 100 '调整单击滑动条任一位置时变化值
    Me.ScrollBar2.SmallChange = 100 '调整单击滑动条箭头时变化值
    Me.ScrollBar3.Value = 150 '调整滑动条初始位置
End Sub

为什么有时变有时没变，应该是Excel里RGB函数支持的颜色不多，好象是56种吧

PDToolMX.rar (13.88 KB, 下载次数: 1)

2010-3-10 09:03 上传

点击文件名下载附件
为什么我写的类老是对不了？

爱疯

学习各位了！

窗体中：

Dim myobj(1 To 3) As New mycls

Private Sub UserForm_Initialize()
    Dim i As Integer
    For i = 1 To 3
        Set myobj(i).myevent = UserForm1.Controls("ScrollBar" & i)  '实例化窗体1中的这3个滚动条
    Next i
End Sub

类模块中：

Public WithEvents myevent As MSForms.ScrollBar
Public R As Integer    '红
Public G As Integer    '绿
Public B As Integer    '蓝

Private Sub Class_Initialize()  '设置类的初始化
    R = myobj
    G = myobj
    B = myobj
    myobj.Max = 255    '设置滚动条的最大值
End Sub

Private Sub myevent_Change()    '设置myevent类的值改变事件
    UserForm1.CommandButton1.BackColor = RGB(R, G, B)
End Sub

 

为什么这样不对呢[em11] 3zuOtR0H.rar (12.32 KB, 下载次数: 0)

2010-3-10 11:13 上传

点击文件名下载附件
为什么我写的类老是对不了？

爱疯

明明知道各位的方法对，可是不明白为什么我的错[em22]

amulee

Private Sub Class_Initialize()  '设置类的初始化
    R = myobj
    G = myobj
    B = myobj
    myobj.Max = 255    '设置滚动条的最大值
End Sub

这句有错，在初始化类的时候，myobj对象还未指定。

爱疯

好像好点了，正在试[em04]。。。。。

爱疯

QUOTE:

以下是引用amulee在2010-3-10 11:33:00的发言：

Private Sub Class_Initialize()  '设置类的初始化
    R = myobj
    G = myobj
    B = myobj
    myobj.Max = 255    '设置滚动条的最大值
End Sub

这句有错，在初始化类的时候，myobj对象还未指定。

[em26][em25][em04]