Properties wijzigen met een sub

Thread View: be.comp.programming

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Gaise Thu, 05 Sep 2002 14:56

#7491

Author: Gaise
Date: Thu, 05 Sep 2002 14:56

26 lines
1473 bytes

Hallo,

Over Visual Basic 6
met een subroutine probeer ik de eigenschappen te wijzigen van een
object op een databar form. Daarvoor heb ik geprobeerd:

Public Sub CheckChangeField(Field As String, Maxi As Integer, Min As
Integer, Max As Integer, NotEqualto As Integer)

    a = ReadInput(Field & ".Text")
    If IsNumeric(Field & ".Text") And Not (a < Min Or a > Max Or a =
NotEqualto) Then
            If Field & ".Enabled" Then
                Field & ".Backcolor" = &H80000005

'And so on

Als ik dat aanroep als:

CheckChangeField DataBar.ts3_A1BoTest, 0, -25, 0, 0
CheckChangeField DataBar.ts3_ACte01Test, 0, -25, 0, 0
...

werkt dat niet.

Wie helpt? Bedankt, gaise

Re: Properties wijzigen met een sub

#7493

Author: Nicolas Barbier
Date: Thu, 05 Sep 2002 16:46

18 lines
1488 bytes

Gaise wrote:

>             If Field & ".Enabled" Then
>                 Field & ".Backcolor" = &H80000005

Wilde gok:

If Field.Enabled Then
    Field.BackColor = &H80000005

Als je dingen wilt kunnen zoals je daar schijft, kan je volgens mij beter 
LISP ofzo leren ;-). Schiet me niet dood als ik verkeerd ben, maar ik denk 
dat zulke dingen daar dus in werken :-).

-- 
Nicolas Barbier
MY_PROFILE:   http://users.pandora.be/HATE/profiles/itsme/
HOW_TO_QUOTE: http://www.houghi.org/quote/ /* Dutch */

Re: Properties wijzigen met een sub

#7497

Author: GEOware
Date: Thu, 05 Sep 2002 23:16

41 lines
2353 bytes

gebruik in de parameters ipv Field as String, Field as Object

dan kan je wel de properties wijzigen.  Je kan zelfs verder gaan
door TypeOf te gebruiken.

bv if typeof Field is TextBox then
         Field.backcolor = &h80000005
     end if

Geoffrey Frederickx
GEOware


"Gaise" <de_gaise@hotmail.com> wrote in message
news:6d005f7a.0209050656.233c2c88@posting.google.com...
> Hallo,
>
> Over Visual Basic 6
> met een subroutine probeer ik de eigenschappen te wijzigen van een
> object op een databar form. Daarvoor heb ik geprobeerd:
>
> Public Sub CheckChangeField(Field As String, Maxi As Integer, Min As
> Integer, Max As Integer, NotEqualto As Integer)
>
>     a = ReadInput(Field & ".Text")
>     If IsNumeric(Field & ".Text") And Not (a < Min Or a > Max Or a =
> NotEqualto) Then
>             If Field & ".Enabled" Then
>                 Field & ".Backcolor" = &H80000005
>
> 'And so on
>
> Als ik dat aanroep als:
>
> CheckChangeField DataBar.ts3_A1BoTest, 0, -25, 0, 0
> CheckChangeField DataBar.ts3_ACte01Test, 0, -25, 0, 0
> ...
>
> werkt dat niet.
>
> Wie helpt? Bedankt, gaise

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads