Как Сократить

Тема в разделе "Visual Basic", создана пользователем Mr-Sergio, 22 дек 2012.

Статус темы:
Закрыта.
  1. Mr-Sergio

    Mr-Sergio Гость

    Здравствуйте.
    Ннедавно начал заниматься vb. Попался урок с заданием сделать календарь. Все получилось, только я думаю, что данный код все-таки можно сделать как-нибудь по-короче. Помогие плиз его сократить. Заранее благодарю.
    Код (Text):
    Dim xmonth As Long
    Dim xday As Integer
    Dim xdt As Long
    Dim xyear As Long


    Private Sub Form_Load()
    xmonth = Month(Now)
    If xmonth = 1 Then
    Label1.Caption = "Январь"
    End If
    If xmonth = 2 Then
    Label1.Caption = "Февраль"
    End If
    If xmonth = 3 Then
    Label1.Caption = "Март"
    End If
    If xmonth = 4 Then
    Label1.Caption = "Апрель"
    End If
    If xmonth = 5 Then
    Label1.Caption = "Май"
    End If
    If xmonth = 6 Then
    Label1.Caption = "Июнь"
    End If
    If xmonth = 7 Then
    Label1.Caption = "Июль"
    End If
    If xmonth = 8 Then
    Label1.Caption = "Август"
    End If
    If xmonth = 9 Then
    Label1.Caption = "Сентябрь"
    End If
    If xmonth = 10 Then
    Label1.Caption = "Октябрь"
    End If
    If xmonth = 11 Then
    Label1.Caption = "Ноябрь"
    End If
    If xmonth = 12 Then
    Label1.Caption = "Декабрь"
    End If

    xday = Weekday(Date, vbMonday)
    If xday = 1 Then
    Label2.Caption = "Понедельник"
    End If
    If xday = 2 Then
    Label2.Caption = "Вторник"
    End If
    If xday = 3 Then
    Label2.Caption = "Среда"
    End If
    If xday = 4 Then
    Label2.Caption = "Четверг"
    End If
    If xday = 5 Then
    Label2.Caption = "Пятница"
    End If
    If xday = 6 Then
    Label2.Caption = "Суббота"
    End If

    xdt = Day(Now)
    Label3 = xdt

    xyear = Year(Now)
    Label4 = xyear
    End Sub


    Private Sub Label3_Click()

    End Sub
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей