チャンネル（siChannelAction列挙型の値の 1 つ）で実行するアクションのタイプを戻したり、設定したりします。
// get accessor siChannelAction rtn = Channel.Action; // set accessor Channel.Action = siChannelAction; |
Application.Devices.enable = true
' first add the device if it is not there yet
set oDevice = Application.Devices.Item("PC1600")
If TypeName (oDevice) = "Nothing" Then
set oDevice = Application.Devices.AddDevice( "PC1600" )
End If
set oChannel = oDevice.Channel(1)
oChannel.Action = siChannelActionDrive
logmessage "The channel 1 action type is? " & oChannel.Action |