Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

483 - Usar ayudante de office desde vb

Recurso publicado por J. Roberto L. que muestra como utilizar los ayudantes de Microsoft Office

Saludos, les envio un ejemplo del uso de los ayudantes de Office para usarlos en visual basic

Lo primero que verán al ejecutar el programa será un cuadro de dialogo donde les pedirá el Path donde se encuentra instalado nuestro Microsoft office, simplemente escríbanlo y hagan click en aceptar, si no escriben nada o hacen click en cancelar, el valor por defecto será “C:\Archivos de programa\Microsoft Office\Office\”; esto es solo para saber donde se encuentran instalados los ayudantes .

Al cargarse el formulario, se mostrara una lista con los ayudantes disponibles, cada vez que selecciones uno el ayudante parecerá colocarse dentro del control Picture.

Al igual que cuando seleccionas un ayudante del la lista de ayudantes este aparece, mas abajo se llena una lista con las animaciones posibles de cada ayudante en particular, y cada vez que hagas click sobre una opción de la lista de animaciones, el ayudante seleccionado ejecutara dicha animación y mostrara un Ballon con el nombre de la misma.

Ahora veamos como hacer el programa.

Agregar al proyecto el control Microsoft Agent Control 2.0

Controles necesarios:

1 ComboBox
1 ListBox
1 Picture
1 Agent

Código fuente

Private Declare Function InitCommonControls _ Lib "comctl32.dll" () As Long Private Declare Function GetWindowRect _ Lib "user32" ( _ ByVal hwnd As Long, _ lpRect As RECT) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Dim nWindow As RECT Dim nNom As String Dim nRuta As String Private Sub Combo1_Click() Static nNom2 As String 'Obtenemos la posición del picture en la pantalla GetWindowRect Me.Picture1.hwnd, nWindow nNom2 = nNom 'Descargamos el asistente anterior If nNom2 <> "" Then If nNom2 = "MERLIN" Then nControl.Characters.Unload CharacterID:=nNom2 + ".ACs" Else nControl.Characters.Unload CharacterID:=nRuta + nNom2 + ".ACG" End If End If 'Almacenamos el nombre del asistente nNom = Combo1.Text 'Cargamos el nuevo asistente If nNom = "MERLIN" Then nControl.Characters.Load CharacterID:=nNom + ".ACS", _ LoadKey:=nNom + ".ACS" Else nControl.Characters.Load CharacterID:=nRuta + nNom + ".ACG", _ LoadKey:=nRuta + nNom + ".ACG" End If 'Activamos y mostramos el asistente If nNom = "MERLIN" Then With nControl.Characters(nNom & ".acs") .Left = nWindow.Left .Top = nWindow.Top .Activate 'Activa .Show 'Muestra el maguito End With Else With nControl.Characters(nRuta + nNom & ".acg") .Left = nWindow.Left .Top = nWindow.Top .Activate 'Activa .Show 'Muestra el maguito End With End If 'Cargamos las animaciones del asistente seleccionado CargarTodo End Sub Private Sub CargarTodo() 'Limpiamos el ListBox List1.Clear Set ns = Nothing If nNom = "MERLIN" Then Set ns = nControl.Characters(nNom & ".acs") Else Set ns = nControl.Characters(nRuta + nNom & ".acg") End If For Each animation In ns.AnimationNames List1.AddItem animation Next End Sub Private Sub Command1_Click() nRuta = txtRuta.Text End Sub Private Sub Form_Initialize() InitCommonControls 'Para que los controles tomen la apariencia de WindowsXP End Sub Private Sub Form_Load() nRuta = InputBox("Escriba la ruta donde se encuentra instalado Microsoft Oficce" + vbCrLf + _ " Por Ejemplo: C:\Archivos de programa\Microsoft Office\Office\", _ "Cargar ruta de Microsoft Oficce") If Len(Trim(nRuta)) = 0 Then nRuta = "C:\Program Files\Microsoft Office\Office\" End If If Right(nRuta, 1) <> "\" Then nRuta = nRuta & "\" End If Combo1.ListIndex = 0 'Set nControl.Parent = Me.Picture1 End Sub Private Sub Form_Paint() 'GetWindowRect Me.Picture1.hwnd, nWindow End Sub Private Sub List1_Click() If nNom = "MERLIN" Then With nControl.Characters(nNom & ".acs") .Show .StopAll 'Detener todo .Speak List1.List(List1.ListIndex) 'Habla .Play List1.List(List1.ListIndex) 'Expresión End With Else With nControl.Characters(nRuta + nNom & ".acg") .Show .StopAll 'Detener todo .Speak List1.List(List1.ListIndex) 'Habla .Play List1.List(List1.ListIndex) 'Expresión End With End If End Sub

Espero les sea de utilidad, Saludos desde Córdoba, Ver. México, J. Roberto

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb