Apunte clase 6/7

Private Sub seis_Click()

Auxcanal.Caption = Auxcanal.Caption + "6"

End Sub

Private Sub siete_Click()

Auxcanal.Caption = Auxcanal.Caption + "7"

End Sub

Private Sub tres_Click()

Auxcanal.Caption = Auxcanal.Caption + "3"

End Sub

Private Sub uno_Click()

Auxcanal.Caption = Auxcanal.Caption + "1"

Private Sub cuatro_Click()

Auxcanal.Caption = Auxcanal.Caption + "4"

End Sub

Private Sub dos_Click()

Auxcanal.Caption = Auxcanal.Caption + "2"

End Sub

Private Sub Enter_Click()

Nrocanal.Caption = Auxcanal.Caption
Auxcanal.Caption = ""

End Sub

Private Sub Calanmenos_Click()

Nrocanal.Caption = Val(Nrocanal.Caption) - 1

End Sub

Private Sub Canalmas_Click()

Nrocanal.Caption = Val(Nrocanal.Caption) + 1

End Sub

Private Sub cero_Click()

Auxcanal.Caption = Auxcanal.Caption + "0"

End Sub

Private Sub cinco_Click()

Auxcanal.Caption = Auxcanal.Caption + "5"

End Sub

Private Sub nueve_Click()

Auxcanal.Caption = Auxcanal.Caption + "9"

End Sub

Private Sub ocho_Click()

Auxcanal.Caption = Auxcanal.Caption + "8"

End Sub

End Sub

Apunte clase 29/7

Sub botton_click
onoff.BackColor = vbBlack
End sur

Sub botton_click
onoff.BackColor = vbRed
End sur

Sub botton Tv_click
Tv.catv.Caption="Tv"
End sur

Sub brillo más_click
Pantalla.Top=Pantalla.Top -100
End sur

El contraste se mueve a la derecha utilizando la propiedad LEFT.

El volumen se ensancha utilizando la propiedad WITH.