user control

Printable View

Oct 18th, 2002, 08:54 AM
wanhobi

1 Attachment(s)

user control

I am working on a project where the developer has used user controls throughout his forms.

My question is this, he has one that is simply just a label and text box together, hence the name ctlLabelandTextBox.

My problem is that I cannot set the maxlength property which u normally get with a textbox.

Does anyone know how to enable this - i've attached the file. I can think of many reasons for user controls but can't see any real advantage for this one, however - i need to keep with the program if u know what i mean.

cheers
Oct 18th, 2002, 08:58 AM
Mega_Man

It is most likely that he did not include the property when he made the control. I am not sure that you can change it without having the source for the control.
But then again... I have been wrong in the past. :)

Mega.
Oct 18th, 2002, 09:03 AM
macai

1 Attachment(s)

I updated it for you. Now theres a MaxLength property.
Oct 18th, 2002, 09:04 AM
wanhobi

here is the code:

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

Text = PropBag.ReadProperty("Text", "")
Midpoint = PropBag.ReadProperty("Midpoint", 1330)
UserControl.Width = PropBag.ReadProperty("Width", 4800)
Caption = PropBag.ReadProperty("Caption", "Caption")
DataFormat = PropBag.ReadProperty("DataFormat", "")

UserControl_Resize
txtTextBox_LostFocus

End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

PropBag.WriteProperty "Text", txtTextBox.Text
PropBag.WriteProperty "Midpoint", Midpoint
PropBag.WriteProperty "Width", UserControl.Width
PropBag.WriteProperty "Caption", Caption
PropBag.WriteProperty "DataFormat", msDataFormat
'PropBag.WriteProperty "MaxLength", txtTextBox.MaxLength

UserControl_Resize
txtTextBox_LostFocus

End Sub

Private Sub UserControl_Resize()

Dim lLeft As Long

UserControl.Height = txtTextBox.Height
txtTextBox.Width = UserControl.Width - txtTextBox.Left

End Sub

Public Property Get Midpoint() As Long
Midpoint = txtTextBox.Left
End Property

Public Property Let Midpoint(lTwips As Long)
txtTextBox.Left = lTwips
UserControl_Resize
End Property

Public Property Get TextWidth() As Long
TextWidth = txtTextBox.Width
End Property

Public Property Let TextWidth(lTwips As Long)
txtTextBox.Width = lTwips
End Property

Public Property Get Text() As String
Text = txtTextBox.Text
End Property

Public Property Let Text(sText As String)

If msDataFormat > "" Then
txtTextBox.Text = Format$(sText, msDataFormat)
Else
txtTextBox.Text = sText
End If

End Property

Public Property Get Caption() As String
Caption = lblLabel.Caption
End Property

Public Property Let Caption(sText As String)
lblLabel.Caption = sText
End Property

Public Property Get Enabled() As Boolean
Enabled = txtTextBox.Enabled
End Property

Public Property Let Enabled(bEnabled As Boolean)
txtTextBox.Enabled = bEnabled
txtTextBox.BackColor = IIf(bEnabled, vbWhite, RGB(220, 220, 220))
End Property

Public Property Get DataFormat() As String
DataFormat = msDataFormat
End Property

Public Property Let DataFormat(sValue As String)
msDataFormat = sValue
End Property
Oct 18th, 2002, 09:05 AM
macai

Quote:

Originally posted by wanhobi
here is the code:

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

Text = PropBag.ReadProperty("Text", "")
Midpoint = PropBag.ReadProperty("Midpoint", 1330)
UserControl.Width = PropBag.ReadProperty("Width", 4800)
Caption = PropBag.ReadProperty("Caption", "Caption")
DataFormat = PropBag.ReadProperty("DataFormat", "")

UserControl_Resize
txtTextBox_LostFocus

End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

PropBag.WriteProperty "Text", txtTextBox.Text
PropBag.WriteProperty "Midpoint", Midpoint
PropBag.WriteProperty "Width", UserControl.Width
PropBag.WriteProperty "Caption", Caption
PropBag.WriteProperty "DataFormat", msDataFormat
'PropBag.WriteProperty "MaxLength", txtTextBox.MaxLength

UserControl_Resize
txtTextBox_LostFocus

End Sub

Private Sub UserControl_Resize()

Dim lLeft As Long

UserControl.Height = txtTextBox.Height
txtTextBox.Width = UserControl.Width - txtTextBox.Left

End Sub

Public Property Get Midpoint() As Long
Midpoint = txtTextBox.Left
End Property

Public Property Let Midpoint(lTwips As Long)
txtTextBox.Left = lTwips
UserControl_Resize
End Property

Public Property Get TextWidth() As Long
TextWidth = txtTextBox.Width
End Property

Public Property Let TextWidth(lTwips As Long)
txtTextBox.Width = lTwips
End Property

Public Property Get Text() As String
Text = txtTextBox.Text
End Property

Public Property Let Text(sText As String)

If msDataFormat > "" Then
txtTextBox.Text = Format$(sText, msDataFormat)
Else
txtTextBox.Text = sText
End If

End Property

Public Property Get Caption() As String
Caption = lblLabel.Caption
End Property

Public Property Let Caption(sText As String)
lblLabel.Caption = sText
End Property

Public Property Get Enabled() As Boolean
Enabled = txtTextBox.Enabled
End Property

Public Property Let Enabled(bEnabled As Boolean)
txtTextBox.Enabled = bEnabled
txtTextBox.BackColor = IIf(bEnabled, vbWhite, RGB(220, 220, 220))
End Property

Public Property Get DataFormat() As String
DataFormat = msDataFormat
End Property

Public Property Let DataFormat(sValue As String)
msDataFormat = sValue
End Property

Beat you to it. :p
Oct 18th, 2002, 09:19 AM
wanhobi

macai thanks but

i get variable not defined on the line:

MaxLength = PropBag.ReadProperty("MaxLength", "")

within

UserControl_ReadProperties
Oct 18th, 2002, 09:31 AM
macai

Are you trying to change the MaxLength property during runtime?
Oct 18th, 2002, 09:41 AM
wanhobi

hi

I copied in your control over mine, when i play the project i get the error. I have not yet tried to set the property. I was just checking to see that the app still runs with the new property available.

I get a type mismatch on that line as soon as I load a form that contains the control.

any ideas?
Oct 18th, 2002, 10:42 AM
macai

Thats weird. I tested it out and it works. Perhaps you should
remove that control from the form, and then re-add it with the
same name. It might be that the form is conflicting with the new
control code.
Oct 18th, 2002, 11:03 AM
MarkT

Re: hi

Quote:

Originally posted by wanhobi
I copied in your control over mine, when i play the project i get the error. I have not yet tried to set the property. I was just checking to see that the app still runs with the new property available.

I get a type mismatch on that line as soon as I load a form that contains the control.

any ideas?

I assume that the problem is that the Property MaxLength is being declared as an Integer. In the read property section you are giving maxlength a string as it's default value.

Quote:

Originally posted by wanhobi
i get variable not defined on the line:

MaxLength = PropBag.ReadProperty("MaxLength", "")

within

UserControl_ReadProperties
Oct 18th, 2002, 11:05 AM
macai

Re: Re: hi

Quote:

Originally posted by MarkT
I assume that the problem is that the Property MaxLength is being declared as an Integer. In the read property section you are giving maxlength a string as it's default value.

Uhm....your smart. :o