Tags:    visual-basic

Systemkrav

For at kunne bruge office assistenten skal du have Microsoft Office Assistent installeret. Hvis du har Excel, Word, eller et andet Office program fra Microsoft har du også Office Assistenten installeret.

Tilføjelse af Office Assistenten til dit Visual Basic projekt

For at vi kan bruge Office Assistenten i vores program skal vi aktivere den.
Dette gøres her

Menuen Project > References... > Vælg Microsoft Excel X.X Object Library

I stedet for Excel kan det også være Word, Access eller et andet Office program der bruger Office Assistenten. X.X står får versions nummeret. Fx 9.0.

Almindelige Beskedbokse

Først vil vi prøve at lave en almindelig beskedboks.

Opret en knap på på Form1. Kald den cmdMsg
Gå ind i cmdMsg's Click-procedure(Dobbeltklik på knappen).
Indsæt koden herunder i proceduren.

With Assistant
.Visible = True                                'Viser office assistenten.
.Animation = msoAnimationAppear   'Udfører den valgte animation. Klik ja til
                                                     'boksen der kommer op når du har skrevet
                                                     'denne linje.
With .NewBalloon                            'Opretter en ny ballon.
.Heading = "Beskedboks"                'Indsætter overskriften i ballonen
.Text = "Dette er en almindelig beskedboks."   'Indsætter tekst i ballonen
.Show                                                           'Viser ballonen
End With
End With

Dette opretter en almindelig beskedboks med en OK-knap. Ønskes en beskedboks med knapper og ikoner kan denne kode bruges.

With Assistant
.Visible = True                                'Viser office assistenten.
.Animation = msoAnimationAppear   'Udfører den valgte animation. Klik ja til
                                                     'boksen der kommer op når du har skrevet
                                                     'denne linje.
With .NewBalloon                            'Opretter en ny ballon.
.Heading = "Beskedboks"                'Indsætter overskriften i ballonen
.Text = "Dette er en almindelig beskedboks."   'Indsætter tekst i ballonen
.Button = msoButtonSetYesAllNoCancel           'Indsætter knapper
.Icon = msoIconAlertQuery                            'Indsætter spørgsmåls(?)-tegn
.Show                                                           'Viser ballonen
End With
End With

Avancerede Beskedbokse

Du kan også indsætte links i boksen. Dem med den blå prik ved siden af når du har søgt efter noget ved hjælp af Office Assistenten.

Dim Svar As Integer

With Assistant
.Visible = True                                'Viser office assistenten.
.Animation = msoAnimationAppear   'Udfører den valgte animation. Klik ja til
                                                     'boksen der kommer op når du har skrevet
                                                     'denne linje.
With .NewBalloon                            'Opretter en ny ballon.
.Heading = "Beskedboks"                'Indsætter overskriften i ballonen
.Text = "Dette er en avanceret beskedboks."   'Indsætter tekst i ballonen
.Labels(1).Text = "Du kan indsætte"
.Labels(2).Text = "Op til fem"
.Labels(3).Text = "muligheder i hver"              'Der kan kun indsættes op til fem.
.Labels(4).Text = "boks."
.Labels(5).Text = "Plus knapper"
.Button = msoButtonSetAbortRetryIgnore
.Icon = msoIconAlertQuery                            'Indsætter spørgsmåls(?)-tegn
Svar = .Show                                                'Viser ballonen
Select Case Svar
Case 1
Msgbox "Indsætte hvad?"
Case 2
Msgbox "Hvorfor ikke syv?"
Case 3
Msgbox "nå, da, da!"
Case 4
Msgbox "boks med hvem?"
Case 5
Msgbox "Holder de ekstra godt i skjorten?"
End Select
End With
End With

Nu skulle du gerne have noget der ligner det her.


Hvis du vil vide hvilken værdi en knap har kan du indsætte dette stykke kode efter Svar = .Show

MsgBox Svar

PS: Til dem der ikke helt forstod denne artikel eller har lavet nogle fejl i koden eller bare vil hente mit eksempel, såå... Kan det hentes her: http://www.udvikleren.dk/articlefiles/officeass.zip

Hvad synes du om denne artikel? Giv din mening til kende ved at stemme via pilene til venstre og/eller lægge en kommentar herunder.

Del også gerne artiklen med dine Facebook venner:  

Karma barometer (30 dage)

IT jobs | Kontakt | Om Udvikleren.dk | Om karma | IT nyheds arkiv | Annoncering

X