MaskEdit Colors

When I disable a mask edit box its background color is much darker than a textbox background color when it is disabled.  Is there any way to change the disabled background color of a masked edit box?
paulcaAsked:
Who is Participating?
 
DalinConnect With a Mentor Commented:
paula,
Try this work around:

In the form's declare area:
Dim Mdisabled as Boolean

When you want to disable the maskbox, do not set enabled  to false, instead, put this code:

MaskEdBox1.Text = "028485"
MDisAbled = True

In the maskbox's gotFocus event, add
If MDisAbled = True Then Text2.SetFocus
' text 2 can bu any other control receive focus after the editbox, which is not disabled.

When you want to enable the masked box, add:
MaskEdBox1.Text = vbBlack '(or the color of your choice)
MDisAbled = False

Regards
Dalin    
0
 
fguerreiro_inixCommented:
Probably the only way is to use SendMessage API to change those settings.

0
 
paulcaAuthor Commented:
Can you give me code for that SendMessage API please?
0
Cloud Class® Course: CompTIA Healthcare IT Tech

This course will help prep you to earn the CompTIA Healthcare IT Technician certification showing that you have the knowledge and skills needed to succeed in installing, managing, and troubleshooting IT systems in medical and clinical settings.

 
clifABBCommented:
What do you currently have your Masked Edit's Background color set to?
The background color shouldn't change depending on the enabled property.
Set the background color to &H80000005& (Window Background)
0
 
clifABBCommented:
What do you currently have your Masked Edit's Background color set to?
The background color shouldn't change depending on the enabled property.
Set the background color to &H80000005& (Window Background)
Also, set the foreground color to &H80000008& (Window Text)

(You could also set the background to white and the foreground to black, but this isn't proper Windows etiquette.)

I submit this as a comment.  If it solves your problem, let me know and I'll resubmit it as an answer.
0
 
paulcaAuthor Commented:
The problem is when the masked edit box is disabled.  I have both masked edit boxes and text boxes on my form.  When the text boxes are disabled the background color is white and the text is gray but when the masked edit box os disabled, the background color is gray and the text is another shade of gray. It looks out of place and the text is difficult to see when the masked edit box os disabled.  Is there any way to have the masked edit box background color white when it is DISABLED?
0
 
clifABBCommented:
paulca:
Did you check you Background and Forground colors?  Make sure they are as I specified in my comment.
0
 
DalinCommented:
paulca,
Sorry, I left a line of code:
When you want to disable the maskbox, change the ForeColor:

MaskEdBox1.ForeColor = &H80000011

You don't need:
MaskEdBox1.Text = "028485" (this was for me to test)

Regards
Dalin
0
 
zsiCommented:
Is it me or does Dalin's answer make absolutely no sense what-so-ever?
0
 
DalinCommented:
Both, sir!

I observed the same thing. When you disable the maskedBox, the backcolor become gray. Have not seen any other way to avoid that, so my anser is:
when the maskbox need to be disabled, change the forecolor to gray (just like the regular text box), and not allow it to receive focus.

When I test it, it works. comapred to a disabled regular textbox, the backcolor is the same, forecolor is the same, and it does not receive focus.

The might be better solution, but I have not thought a better one yet.

let me know whick part does not make sense?
regards
Dalin


0
 
clifABBCommented:
I'm curious.  Masked edit works fine on my machine.  It enables/disables just like the text box.

Dalin:
BTW, aside from the line you noticed yourself, this line also doesn't make sense:
MaskEdBox1.Text = vbBlack '(or the color of your choice)
0
 
zsiCommented:
Dalin,

What doesn't make sense to me is the following:

A) How setting the .Text property to a color will have any effect other than making the Edit box *display* the long value of that color (I am referring to "MaskEdBox1.Text = vbBlack '(or the color of your choice) ";
2) How your answer could so closely resemble the concepts of another one that was posted two hours before yours; and
D) How you could have checked this code when it is apparent (by the capitalization of the mDiSaBlEd (or is it MdIsAbLeD?)  variable) that the code was not even entered into the VB IDE.

Unless, of course, you have syntax checking disabled.  

Which would make things much clearer to me.  :)
0
 
DalinCommented:
Thanks, guys, for point out the error in vbBlack, this meant to be:
When you want to enable the masked box, add:
    MaskEdBox1.forecolort = vbBlack '(or the color of your choice)
    MDisAbled = False

This is the part I added after I test the disabled part.  Sorry for all the careless.

Zsi. I did not see the answer two hours ago, appearent I am have the same problem as the questioner... The backcolor is different when disabled, even the forecolor...

Just to Clear the mess,  let me post again:

n the form's declare area:
    Dim Mdisabled as Boolean

    When you want to disable the maskbox, do not set enabled  to false, instead, put this code:
 MaskEdBox1.ForeColor = &H80000011
 Mdisabled = True

 In the maskbox's gotFocus event, add
    If Mdisabled = True Then Text2.SetFocus
    ' text 2 can be any other control receive focus after the editbox, which is not disabled.

    When you want to enable the masked box, add:
    MaskEdBox1.forecolor = vbBlack '(or the color of your choice)
    MDisAbled = False

0
 
paulcaAuthor Commented:
Excellent answer.  It worked perfectly.  Thanks!!!
0
 
clifABBCommented:
Apparently paulca forgot to grade.  :)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.