Как да направите календарна програма за Vb.Net

Стъпка 1

Включете компютъра си и стартирайте Microsoft Visual Studio.Net. Кликнете върху менюто "Файл", след това върху "Ново" и след това върху "Проект".

Стъпка 2

Изберете и кликнете върху "Проекти на Visual Basic" под "Типове проекти" и след това "Application Console" под "Шаблони". С това ще създадете шаблон по подразбиране, който ще се нарича "Module1.vb".

Стъпка 3

Добавете препратка към "Microsoft Outlook Object Library 11.0", за да можете да запомните проекта си, в случай че не можете да го завършите наведнъж. Изберете менюто "Проект" и кликнете върху "Добавяне на справка".

Стъпка 4

Отидете в раздела "COM", кликнете върху "Microsoft Outlook Object Library 11.02 и след това върху" Select. "Щракнете върху" OK "в диалоговия прозорец" Add references ", за да приемете своя избор. помолете да генерирате пликове за избраната библиотека, кликнете върху "Приемам".

Стъпка 5

Преместете мишката над прозореца "Код". Изтрийте съществуващия код. Копирайте и поставете кода, намерен в стъпка 6, и го поставете в прозореца "Код".

Стъпка 6

mports System.Reflection Импортиране на Outlook = Microsoft.Office.Interop.Outlook

Модулен модул1

Sub Main () 'Създаване на приложение за Outlook. Dim oApp Като Outlook.Application = Нов Outlook.Application ()

'Създаване на нов AppointmentItem. Разрешете като Outlook.AppointmentItem = oApp.CreateItem (Outlook.OlItemType.olAppointmentItem)

"Задайте някои общи свойства. oAppt.Subject = "Създаден с OOM в VB .NET" илиAppt.Body = "Здравей свят" илиApt.Location = "Стая 1201"

oAppt.Start = Convert.ToDateTime ("05/31/2004 9:00:00 AM") илиAppt.End = Convert.ToDateTime ("05/31/2004 1:00:00 PM") илиAppt.ReminderSet = Истински oAppt .ReminderMinutesBeforeStart = 5 oAppt.BusyStatus = Outlook.OlBusyStatus.olBusy oAppt.IsOnlineMeeting = False

"Запазване в календара. oAppt.Save ()

- Почисти. oApp = нищо oAppt = нищо

Край на крайния модул