Properties
Objects

Properties

This section describes the properties associated with the ChatItems object.


AssociatedType Property

Description

Defines whether the object is used to describe a query, server, user, member, or channel.

Syntax

object.AssociatedType=value

PartDescription
object Required. An object expression that evaluates to a ChatItems object.
value Required. A string containing one of these valid values:
Query
Server
User
Member
Channel

Remarks

Access is read/write.

See Also

Item


Item Property

Description

Reads or writes an item in the object.

Syntax

object.Item(ItemName)=value

PartDescription
object Required. An object expression that evaluates to a ChatItems object.
ItemName Required. A string expression.
value Required. A variant that can be a string, number, or array of variants.

Remarks

Access is read/write.

The number of items set in a ChatItems object is unlimited. Items with a given name are unique in the object. An Item that was previously set can be overwritten by setting a new Item with the same ItemName.

Example

Dim chatitemobj as ChatItems

Set chatitemobj = New ChatItems
chatitemobj.AssociatedType = "Query"
chatitemobj.Item("Name") = "#Room"
chatitemobj.Item("Name") = "#Rhum"  'the last assignment is kept

See Also

AssociatedType


ItemValid Property

Description

Determines if a specific ItemName is valid in the object.

Syntax

value=object.ItemValid(ItemName)

PartDescription
value Required. A Boolean variable that determines if an ItemName is valid.
object Required. An object expression that evaluates to a ChatItems object.
ItemName Required. A string expression.

Remarks

Access is read-only.

Examples

The OnServerProperty event has a ServerItems parameter that is a ChatItems object. This event occurs in the following example:

MsChatPr1.QueryServerProperty "Info"

To extract the data attached to the "Info" ItemName, the following example is valid, given that the "Info" property is an array of strings.

If(ServerItems.ItemValid("Info")) Then
    Dim vInfo As Variant
    Dim strInfo As String
    Dim iIndex As Integer

    vInfo = ServerItems.Item("Info")
    strInfo = " "

    If(Not IsEmpty(vInfo)) Then
        For iIndex = LBound(vInfo) To UBound(vInfo)
            strInfo = strInfo + "<" + CStr(vInfo(iIndex)) + ">"
        Next iIndex
    End If
End If

See Also

Item, ValidItems


ValidItems Property

Description

Defines the valid item names of the object.

Syntax

object.ValidItems=value

PartDescription
object Required. An object expression that evaluates to a ChatItems object.
value Required. A variant that is an array of variants that are strings. When the ChatItems object has no valid items set, the Empty keyword as a variant is valid. (The Empty keyword is used as a variant subtype. It indicates an uninitialized variable value.)

Remarks

Access is read-only.

See Also

Item


Method

This section describes the method associated with the ChatItems object.


InvalidateItem

Description

Removes an item previously set in the object with the Item property.

Syntax

object.InvalidateItem(ItemName)

PartDescription
object Required. An object expression that evaluates to a ChatItems object.
ItemName Required. A string expression.

© 1997 Microsoft Corporation. All rights reserved. Terms of Use.