Visual Basic - COMO ASER UN PROGRAMA EN VISUAL BASIC 6.0 Q ME DE EL MES Y NUMERO DE MES

Life is soft - evento anual de software empresarial
   
Vista:

COMO ASER UN PROGRAMA EN VISUAL BASIC 6.0 Q ME DE EL MES Y NUMERO DE MES

Publicado por NOE BUBA_KINKONG@HOTMAIL.COM (2 intervenciones) el 30/04/2012 18:25:30
COMO ASER UN PROGRAMA EN VISUAL BASIC 6.0 Q ME DE EL MES Y NUMERO DE MES USANDO HSCRLLBAR Y BSCOLLBAR
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

COMO ASER UN PROGRAMA EN VISUAL BASIC 6.0 Q ME DE EL MES Y NUMERO DE MES

Publicado por jcmg (518 intervenciones) el 02/05/2012 07:42:50
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

COMO ASER UN PROGRAMA EN VISUAL BASIC 6.0 Q ME DE EL MES Y NUMERO DE MES

Publicado por NOE BUBA_KINKONG@HOTMAIL.COM (2 intervenciones) el 04/05/2012 09:00:39
grasias por tu ayuda (y) me salvaste grasias (y)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

COMO ASER UN PROGRAMA EN VISUAL BASIC 6.0 Q ME DE EL MES Y NUMERO DE MES

Publicado por Christian (666 intervenciones) el 12/05/2012 02:24:12
No estoy seguro pero puedes intentar con la funcion monthname (al menos en vb.net existe)

TextBox1.Text = MonthName(HScrollBar1.Value)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar