-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On Aug 10, 2006, at 7:01 PM, Lennox Jacob wrote:
  How can I simplify this code?

Protected Sub SetupColor(Extends EF as Editfield)
  If EF.text = ""  then
    EF.backcolor = &cDBDBDB
  else
    If val(EF.text) > 18 then
      EF.backcolor = &cFF8CC8
    else
      EF.backcolor = &cF9FFCF
    end if
  end if
End Sub


And then just call it:
EF1.SetupColor
EF2.SetupColor
EF3.SetupColor
EF4.SetupColor
EF5.SetupColor

Christian
Pariahware, Inc. Custom Software
<[EMAIL PROTECTED]>
<http://www.pariahware.com>
- --
God loved you so much that He gave His only son Jesus. What have you done with God's gift?



-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.3 (Darwin)

iD8DBQFE28aUvplmRR9PMqERAhjZAJwPV4jbMk/U3ZSNvhD4cRSIQ79S7wCfWuXv
qRu/JM/4VyTtIApIZ5TobW8=
=yMn+
-----END PGP SIGNATURE-----
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Reply via email to