COMO ASER UN PROGRAMA EN VISUAL BASIC 6.0 Q ME DE EL MES Y NUMERO DE MES
un modo sencillo:
Inserta un hscrollbar ,un vscrollbar, y dos textbox
ponle 12 en max y 1 en min al hscrollbar
ponle 12 en max y 1 en min al vscrollbar
e inserta este codigo en declaraciones
Private Sub HScroll1_Scroll()
Text1 = HScroll1
If Text1 = 1 Then Text2 = "Enero"
If Text1 = 2 Then Text2 = "Febrero"
If Text1 = 3 Then Text2 = "Marzo"
If Text1 = 4 Then Text2 = "Abril"
If Text1 = 5 Then Text2 = "Mayo"
If Text1 = 6 Then Text2 = "Junio"
If Text1 = 7 Then Text2 = "Julio"
If Text1 = 8 Then Text2 = "Agosto"
If Text1 = 9 Then Text2 = "septiembre"
If Text1 = 10 Then Text2 = "octubre"
If Text1 = 11 Then Text2 = "noviembre"
If Text1 = 12 Then Text2 = "diciembre"
End Sub
Private Sub VScroll1_Scroll()
Text1 = VScroll1
If Text1 = 1 Then Text2 = "Enero"
If Text1 = 2 Then Text2 = "Febrero"
If Text1 = 3 Then Text2 = "Marzo"
If Text1 = 4 Then Text2 = "Abril"
If Text1 = 5 Then Text2 = "Mayo"
If Text1 = 6 Then Text2 = "Junio"
If Text1 = 7 Then Text2 = "Julio"
If Text1 = 8 Then Text2 = "Agosto"
If Text1 = 9 Then Text2 = "septiembre"
If Text1 = 10 Then Text2 = "octubre"
If Text1 = 11 Then Text2 = "noviembre"
If Text1 = 12 Then Text2 = "diciembre"
End Sub
solo arrastra cualquiera de las barras