CREAR UN CALENDARIO PARECIDO A WIN VISTA

tema enviado por YALPUBLICIDAD en Visual Basic 6.0
tema iniciado el 14/12/2008

CREAR UN CALENDARIO PARECIDO A WIN VISTA
Por Yuri Lizama

Bueno en esta ocación les enseñare a crear un calendario en donde se mostrara el mes, año, fecha y dia de la semana algo asi como esto:

Dic 2008
    14 
Domingo

Para ello solo necesitamos un Form y 3 label con los siguientes nombres

Label1 = lblMes
Label2 = lblFecha
Label3 = lblSemana

Basta de Bla bla bla. Inserta este Codigo en el Form analizalo y veras que es facil crear este Calendario:

Option Explicit
Private Mes As String
Private Año As String
Private Semana As String

Private Sub Form_Load()
'Situar arriba y a la derecha al Form
Me.Top = 300
Me.Left = Screen.Width - Width - 120

'centrar los Label
    lblFecha.Left = (Me.Width - lblFecha.Width) / 2
    lblMes.Left = (Me.Width - lblMes.Width) / 2
    lblSemana.Left = (Me.Width - lblSemana.Width) / 2

'Colocar Nombre de los datos de fecha
SaberMes (Month(Date))
    lblFecha = Day(Date)
    lblMes.Caption = Mes
    lblSemana = WeekdayName(Weekday(Date))  'Día de Semana
   
End Sub

Private Sub SaberMes(index As Integer)
Año = Year(Date) '  OBTENEMOS EL AÑO
' MonthName(Month(Date)) DE ESTA FORMA OBTENEMOS EL NOMBRE LARGO DEL MES
Select Case index
    Case 1
        Mes = "Ene " & Año
    Case 2
        Mes = "Feb " & Año
    Case 3
        Mes = "Mar " & Año
    Case 4
        Mes = "Abr " & Año
    Case 5
        Mes = "May " & Año
    Case 6
        Mes = "Jun " & Año
    Case 7
        Mes = "Jul " & Año
    Case 8
        Mes = "Ago " & Año
    Case 9
        Mes = "Sep " & Año
    Case 10
        Mes = "Oct " & Año
    Case 11
        Mes = "Nov " & Año
    Case 12
        Mes = "Dic " & Año
End Select

End Sub

Bueno esto es todo, Suerte

Saludos :)

YAL PUBLICIDAD
http://www.yalpublicidad.com/tutoriales