Solved

MaskEdit Colors

Posted on 1998-06-16
15
189 Views
Last Modified: 2010-05-03
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?
0
Comment
Question by:paulca
  • 5
  • 4
  • 3
  • +2
15 Comments
 
LVL 3

Expert Comment

by:fguerreiro_inix
Comment Utility
Probably the only way is to use SendMessage API to change those settings.

0
 

Author Comment

by:paulca
Comment Utility
Can you give me code for that SendMessage API please?
0
 
LVL 6

Expert Comment

by:clifABB
Comment Utility
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
 
LVL 6

Expert Comment

by:clifABB
Comment Utility
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
 

Author Comment

by:paulca
Comment Utility
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
 
LVL 9

Accepted Solution

by:
Dalin earned 40 total points
Comment Utility
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
 
LVL 6

Expert Comment

by:clifABB
Comment Utility
paulca:
Did you check you Background and Forground colors?  Make sure they are as I specified in my comment.
0
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 
LVL 9

Expert Comment

by:Dalin
Comment Utility
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
 
LVL 4

Expert Comment

by:zsi
Comment Utility
Is it me or does Dalin's answer make absolutely no sense what-so-ever?
0
 
LVL 9

Expert Comment

by:Dalin
Comment Utility
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
 
LVL 6

Expert Comment

by:clifABB
Comment Utility
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
 
LVL 4

Expert Comment

by:zsi
Comment Utility
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
 
LVL 9

Expert Comment

by:Dalin
Comment Utility
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
 

Author Comment

by:paulca
Comment Utility
Excellent answer.  It worked perfectly.  Thanks!!!
0
 
LVL 6

Expert Comment

by:clifABB
Comment Utility
Apparently paulca forgot to grade.  :)
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now