Public Variable in a Class Module

[wigi]

Hi all

Here's the problem I'm facing.

I have a class module that handles the BeforeDropOrPaste event of a bunch of Labels on a userform. All is going well.

In the userform module, I have another event, a Listbox_MouseMove event. Users can move elements of a listbox into any one of the labels on the userform.

But I need to track whether shift or ctrl was pressed when moving. How should I pass on that information in a public variable? I've defined a public variable in the userform module:

Public lShift As Long

But for some reason I can't use it in the class module. If I write to a sheet and read back from it, it works perfectly.

I hope someone can help with it.

Thanks in advance,

Wigi

 

[wigi]

Hmm, no replies.

Should I include more details?

 

[wigi]

Hmm, no replies.

Should I include more details (not sure which, but I could try)?

Well, I thought about the details I could still provide.

I can say that I put the line

Public lShift As Long

on top of the userform module. Below that, I have:

Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
                       ByVal X As Single, ByVal Y As Single)

    Dim MyDataObject As DataObject
    Dim lEffect As Long

    If Button = 1 Then

        'track whether Ctrl was pressed
        lShift = Shift     ' Range("P1").Value = Shift

        'drag
        Set MyDataObject = New DataObject

        'fill the data object
        MyDataObject.SetText Me.ListBox1.Value
        
        lEffect = MyDataObject.StartDrag
    End If
End Sub

In the class module that handles all the labels, I have:

Sub LabelGroup_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, _
                                 ByVal Action As MSForms.fmAction, _
                                 ByVal Data As MSForms.DataObject, ByVal X As Single, _
                                 ByVal Y As Single, _
                                 ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

    Dim i As Long

    Cancel = True
    With UserForm1.ListBox1

        'effect
        If .List(.ListIndex, 2) = "No" Then
            Effect = fmDropEffectNone
        ElseIf lShift <> 2 Then     'Range("P1").Value
            Effect = fmDropEffectMove
        Else
            Effect = fmDropEffectCopy
        End If

        'delete if Ctrl was not pressed
        If lShift <> 2 Then .RemoveItem (.ListIndex)    'Range("P1").Value

    End With
End Sub

When I try to use it, I get an error. With cell P1 (as in the comments) it works perfectly.

Anyone got a clue? I'm sure this should be possible but I just can't see what I'm doing wrong. Thanks.

Wigi

 

[wigi]

bump

 

[Richard Schollar]

Hi Wigi

What happens if you place the Public declaration in a separate standard (ie non-class) module? Do you still get the error? What error exactly is it?

 

[wigi]

Hello Richard

Gosh, that works perfectly! I put the Public ... line on top of a standard module.

The solution seems easy but this is only the first time I used class modules. Thanks!

Wigi

 

[Richard Schollar]

You're welcome!

See Andy Pope's reply in this thread for extra info:

http://www.ozgrid.com/forum/showthread.php?t=73847

By the way, are you the Wigi from Ozgrid.com?

 

[wigi]

Yes, I am, Parsnip