Hallo,
jeder kennt die netten Assistenten des Microsoft Office !
Wie kann man diese Helfer in eigene Programme einbauen ?
Ganz einfach, wie der Beispielcode zeigt.
Zu beachten ist folgendes.
1. Es müssen Assistenten installiert sein.
Normalerweise befinden sich diese unter C:\WINDOWS\msagent\chars
2. Das Control muss in die Toolbox integriert und auf die Form gezogen werden.
Rechtsklick auf die Toolbox -> Insert Item (englisches VS) -> Com Tab -> Microsoft Agent Control auswählen
3. Beim weitergeben des Programmes müssen die Dll's aus dem Debug-Verzeichnis mitgegeben werden.
4. Die Microsoft Lizenzbedingungen sind natürlich auch zu beachten.
MS Agent Seite
Kommentare erwünscht
Gruss
mikeb69
jeder kennt die netten Assistenten des Microsoft Office !
Wie kann man diese Helfer in eigene Programme einbauen ?
Ganz einfach, wie der Beispielcode zeigt.
Zu beachten ist folgendes.
1. Es müssen Assistenten installiert sein.
Normalerweise befinden sich diese unter C:\WINDOWS\msagent\chars
2. Das Control muss in die Toolbox integriert und auf die Form gezogen werden.
Rechtsklick auf die Toolbox -> Insert Item (englisches VS) -> Com Tab -> Microsoft Agent Control auswählen
3. Beim weitergeben des Programmes müssen die Dll's aus dem Debug-Verzeichnis mitgegeben werden.
4. Die Microsoft Lizenzbedingungen sind natürlich auch zu beachten.
MS Agent Seite
VB.NET-Quellcode
- Imports System
- Imports System.IO
- Public Class Form1
- 'alle verfügbaren assistenten
- Private ass() As String
- Private assobject As AgentObjects.IAgentCtlCharacterEx
- Private WithEvents t As New Timer
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'alle assistenten erfassen
- ass = Directory.GetFiles("C:\WINDOWS\msagent\chars", "*.acs")
- If ass.Length = 0 Then
- MessageBox.Show("Auf Ihrem System sind leider keine MS Agents installiert.")
- Me.Close()
- End If
- Dim asscharac As String = Path.GetFileNameWithoutExtension(ass(0))
- 'ersten assistenten aus der liste laden
- AxAgent1.Characters.Load(asscharac, ass(0))
- 'an das object übergeben
- assobject = AxAgent1.Characters(asscharac)
- 'assistenten anzeigen
- assobject.Show()
- 'timer starten
- t.Interval = 2500
- t.Start()
- End Sub
- Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles t.Tick
- 'verschiedene modi vorführen
- Static counter As Integer = 0
- Select Case counter
- Case 0
- 'schnell bewegen
- assobject.MoveTo(500, 500, 500)
- Case 1
- 'langsam bewegen
- assobject.MoveTo(200, 200, 2000)
- Case 2
- 'verschwinden
- assobject.Hide()
- Case 3
- assobject.Show()
- Case 4
- assobject.Speak("Ich bin ein MS Agent")
- Case Else
- 'von vorne beginnen
- counter = -1
- End Select
- counter += 1
- End Sub
- End Class
Kommentare erwünscht
Gruss
mikeb69