DVNT1 ?? RE: wshLWForm & Turning on chkBox by Default

[SWarrior2k]

A while back, you had posted in the TechIMO forum about your find of "wshLWForm" I have been using this for a little while. The original support site has been taken down. This must have happened recently. I was wondering if you might be able to assist me with something that I can't figure out. I know how to have a default option set for the 'optBtn' but can not get a chkBox to default with a check mark in it. I was HOPING that you might be able to help me with this.

Many Thanks in advance if you could help.

-SWarrior

[Mickwish]

I'll send DVNT1 a PM so he sees this post, and hopefully he can help you.

Cheers
Mick

edit: after finding the original thread, also sent a PM to vass0922. He might know, too.

Oh, and BTW, Welcome to TechIMO!

[DVNT1]

Here's an example:

Const vbUnchecked = 0  ' Unchecked
Const vbChecked = 1  ' Checked
Const vbGrayed = 2  ' Grayed (aka disabled)

  Call Create_TestFormObject_Form

  Set oForm = oLWF.frmDialog
        
  ' attempt to pre-set a check into the checkbox...
  ' check boxes 1&6...
  oForm.chkBox(1).Value = vbChecked
  oForm.chkBox(6).Value = vbChecked

It's dissappointing about the support site being discontinued, I still use this tool too.

[SWarrior2k]

Excellent!

Is there a way that you can 'Disable' a Checkbox ? Can't find any information outside of the:

Const vbUnchecked = 0 ' Unchecked
Const vbChecked = 1 ' Checked
Const vbGrayed = 2 ' Grayed (aka disabled)

The vbGrayed is checked and grayed. I need it to be unchecked, but would prefer it to be Disabled if I could.

Many Many Thanks for the assist thus so far!!

-SWarrior

[DVNT1]

If you want it disabled, you could just Remark it in the form code so it doesn't show up at all.

[SWarrior2k]

That's true. But here's the scenerio...

If the OS is NT 4 Grayed checked is fine, but if the OS is 2k or XP, Then removing the option or box would be desireable. Can't get an if statement to work in the form design.

-SWarrior

[DVNT1]

On the form next to the box's text, I would add a note like "optional with NT4" instead of making the pefect form (but I'm not a programmer so I settle for less )

Then in the code, use an If then statement to check the value of the OS choice and then taking in the checkbox value if needed.

[SWarrior2k]

I was able to achieve desired results...


code:
----------
If OSver = "NT" then
oLWF.AddCtrl "chkBox", 125,20, 100,20, "Active Dir. Client"
else
end If
----------

where 'OSver' is defined as NT, 2K, XP in a previously used oForm. As you had said, it is a SHAME that support for this "Literally VALUABLE" Tool has been pulled.

I wish that I had a copy of all of the pages, I would put it up on my Business web site for hosting! The Scripting Help is THAN DAMN GOOD!

-SWarrior