Referencing class variable(s) from another class

simurq · Oct 29, 2019

I have two simple classes shown below for several userform textbox and spin button controls. Userform_Initiliaze event basically adds any such controls to relevant collections to manipulate later using events. What I want to achieve is to pass text from textbox class (clsTextBox) to spin button class (clsSpinBtn) to increase/decrease the numeric value of the textbox input but I always get "Runtime Error 91: Object Variable or With Block variable not set" whenever I try to spin up or down.
CheckTextBoxValue() is just a function to control and convert any string input into a numeric (double) value.

Any help is highly appreacited!!!

UserForm_Initialize()

Public colTextBox As Collection Public colSpinBtn As Collection Sub UserForm_Initialize() Dim clsTextBox As clsTextBoxes Dim clsSpinBtn As clsSpinButtons Dim ctl As control Set colTextBox = New Collection Set colSpinBtn = New Collection For Each ctl In Controls If TypeOf ctl Is MSForms.TextBox Then Set clsTextBox = New clsTextBoxes Set clsTextBox.InputTextBox = ctl colTextBox.Add clsTextBox ElseIf TypeOf ctl Is MSForms.SpinButton Then Set clsSpinBtn = New clsSpinButtons Set clsSpinBtn.InputSpinButton = ctl colSpinBtn.Add clsSpinBtn End If Next Set clsTextBox = Nothing Set clsSpinBtn = Nothing End Sub 

CANCEL Button to free memory

Sub btnCancelColor_Click() Set colTextBox = Nothing Set colSpinBtn = Nothing Unload Me End Sub 

Class for TEXTBOXES

Public WithEvents InputTextBox As MSForms.TextBox Private mvarText As String ' Selects only the numeric part of textbox content ' Otherwise selects the whole string Private Sub InputTextBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim numPart As String, numLength As Integer With InputTextBox numLength = InStr(1, .Value, Space(1)) numPart = Left(.Value, numLength) .SelStart = 0 If IsNumeric(numPart) Then .SelLength = numLength - 1 Else .SelLength = Len(.Value) End If End With End Sub ' MouseUp event is a 'cosmetic' way to prevent changing textbox content Private Sub InputTextBox_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim numPart As String, numLength As Integer With InputTextBox numLength = InStr(1, .Value, Space(1)) numPart = Left(.Value, numLength) .SelStart = 0 If IsNumeric(numPart) Then .SelLength = numLength - 1 Else .SelLength = Len(.Value) End If End With End Sub Public Property Let sText(ByVal sData As String) mvarText = sData End Property Public Property Get sText() As String sText = mvarText End Property 

Class for SPIN BUTTONS

Public WithEvents InputSpinButton As MSForms.SpinButton ' Increases/Decreases textbox value depending on the size of its numeric part Private Sub InputSpinButton_SpinDown() Dim NumericValue As Double Dim oTextBox As clsTextBoxes Set oTextBox = New clsTextBoxes With oTextBox.InputTextBox If .sText = vbNullString Then NumericValue = 0 Else NumericValue = CheckTextBoxValue(.sText) - 1 End If End With If NumericValue > 99 Then NumericValue = 100 Set oTextBox = Nothing End Sub Private Sub InputSpinButton_SpinUp() Dim NumericValue As Double Dim oTextBox As clsTextBoxes Set oTextBox = New clsTextBoxes With oTextBox.InputTextBox If .sText = vbNullString Then NumericValue = 0 Else NumericValue = CheckTextBoxValue(.sText) + 1 End If End With If NumericValue > 99 Then NumericValue = 100 Set oTextBox = Nothing End Sub

Referencing class variable(s) from another class

simurq

Board Regular

Excel Facts

Similar threads

Forum statistics

Share this page

Referencing class variable(s) from another class

simurq

Board Regular

Excel Facts

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock