Ved å lage en kalender kontroll program for Visual Basic, kan du ha mer fleksibilitet i hvordan kalenderen fungerer . Kalenderen vil ha utseendet og funksjonaliteten til en typisk Outlook-kalenderen , men tilpasset til dine egne spesifikasjoner . I tillegg til å opprette påminnelser og planlegge avtaler du kan også importere og eksportere uleste meldinger fra Outlook innboksen . Jo mer erfaren du er til å bruke og å skrive kode , jo mer kan du endre programmet med flere faner og opplysninger som dekker dine behov . Du trenger
Computer
Microsoft Visual Basic 2003
Microsoft Outlook
Vis flere instruksjoner
en

Slå på datamaskinen og start Microsoft Visual Studio. NET . Klikk på "File "-menyen , klikk " Ny", og deretter "Project ".
2

Velg og klikk på " Visual Basic prosjekter " under " Prosjekt Typer ", og klikk deretter på "Console søknad "under" Maler . "Dette vil skape en standardmal som vil få navnet" Module1.vb . "
3

Legg til en referanse til" Microsoft Outlook 11.0 Object Library " så du husker prosjektet i tilfelle du ikke kan fullføre den i en sittende. Velg " Prosjekt "-menyen og klikk " Add Reference . "
4

Bla til " COM "-kategorien , klikk på " Microsoft Outlook 11.0 Object Library" og deretter " Velg. " Klikk " OK " i" Add Referanser "dialogboksen for å godta valgene . Hvis programvaren ber deg om å generere pakkemaskiner til det biblioteket du valgt, klikk "Ja . "
5

Flytt musen for å "kode "-vinduet . Slett eksisterende koder. Kopier og lim inn koden i trinn 6 og lim den inn i " Code" -vinduet .
6

Importen System.ReflectionImports Outlook = Microsoft.Office.Interop.Outlook

Module Module1

Sub Main ( ) Opprett en Outlook-programmet . Dim oApp Som Outlook.Application = Ny Outlook.Application ( )

på Opprett en ny AppointmentItem . Dim oAppt Som Outlook.AppointmentItem = oApp.CreateItem ( Outlook.OlItemType.olAppointmentItem )

'Sett noen felles egenskaper. oAppt.Subject = " Laget med oom i VB. NET " oAppt.Body = "Hello World" oAppt.Location = "Room 1201 "

oAppt.Start = Convert ( " 05 /31/2004 09:00:00 " ) oAppt.End = Convert ( " 05/31/2004 13:00:00 ") oAppt.ReminderSet = sant oAppt.ReminderMinutesBeforeStart = 5 oAppt.BusyStatus = Outlook. OlBusyStatus.olBusy oAppt.IsOnlineMeeting = False

' Lagre i Kalender . oAppt.Save ( )

' Rydd opp . oApp = Ingenting oAppt = Ingenting

End SubEnd Module
7

Gjør eventuelle endringer i koden for å gjøre den jobben for din situasjon , hvis du er dyktig på VB.net kode skriftlig.
8

Trykk F5 på tastaturet for å bygge, installere og kjøre Vb.Net kalenderprogram .