Visual BasicSub
canal mas-clickIfval(nro canal.caption)<13then caption="val(nrocanal.caption)+1" caption="1">1 thenNrocanal.caption=val(nrocanal.caption)-1ElseNro canal.caption=13
End if
End subSub bot tv catv.clickIf tv catv.caption=”tv”thenTvg catv.caption=”catv”ElseTvcatv.caption=”tv”End if
End sub
Sub enter-clickIf val(canal aux.caption)>13thenCanal aux.caption=””ElseNrocanal.caption=canal aux.captionCanal aux.caption=””
End if
End sub
No comments:
Post a Comment