デバイスに定義されている各Channelを含む ChannelCollection を戻します。
// get accessor ChannelCollection rtn = Device.Channels; |
Application.Devices.enable = true set oDevice = Application.Devices.Item("Mouse") If TypeName (oDevice) = "Nothing" Then set oDevice = Application.Devices.AddDevice( "Mouse" ) End If set oChannels = oDevice.Channels for each oChannel in oChannels logmessage "Channel: " & oChannel next |