INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

Error dynamically setting button and maskedtextbox property

Error dynamically setting button and maskedtextbox property

(OP)
I create the following button and maskedtextbox dynamically, as well as other controls.

cntrl = New MaskedTextBox()
newControl(cntrl, "mtbSSN", "", "000-00-0000")

cntrl = New Button()
newControl(cntrl, "btnSearchSSN", "Search SSN)

Private Sub newControl(ByVal ControlType As Control, _
ByVal ControlName As String, _
ByVal ControlText As String, _
ByVal xLoc As Integer, _
Optional ByVal strMask As String = "")


Me.Controls.Add(ControlType)

With ControlType
.Name = ControlName
.Font = New System.Drawing.Font("Verdana", 9.0!)
.Size = New System.Drawing.Size(40, 20)
.AutoSize = True
End With

If TypeOf ControlType Is MaskedTextBox Then
ControlType.Mask = strMask]
ElseIf TypeOf ControlType Is Label Then
ControlType.Text = ControlText
ElseIf TypeOf ControlType Is Button Then
ControlType.Text = ControlText
[color #EF2929]ControlType.FlatStyle = FlatStyle.Flat

Getting these errors:

'Mask' is not a member of 'System.Windows.Forms.Control'
'Flatsyle' is not a member of 'System.Windows.Forms.Control'


when setting properties for maskedtextbox and button.

Any help will be greatly appreciated.

RE: Error dynamically setting button and maskedtextbox property

(OP)
Found solution:

Dim mtb = DirectCast(ControlType, MaskedTextBox)
mtb.Mask = strMask

Dim btn = DirectCast(ControlType, Button)
btn.FlatStyle = FlatStyle.Flat

RE: Error dynamically setting button and maskedtextbox property

You can also do this without the DirectCast. Just Dim the variables as the Type you want:

Dim mtb As MaskedTextBox
Dim btn As Button

I used to rock and roll every night and party every day. Then it was every other day. Now I'm lucky if I can find 30 minutes a week in which to get funky. - Homer Simpson

Arrrr, mateys! Ye needs ta be preparin' yerselves fer Talk Like a Pirate Day!

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close