Discussion :

[Mario Rousson]

Bonjour,

Pourquoi j'ai un message d'erreur de liaison tardive dans mon code et comment régler ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
                Dim Sapi As Object = CreateObject("Sapi.spvoice")
        Sapi.speak("Bonjour")
    End Sub

merci beaucoup de votre aide

[tomlev]

Tu as essayé avec une majuscule à Speak ? Je ne suis pas sûr que ça change grand chose vu que VB n'est pas sensible à la casse, mais en l'occurrence ce n'est pas VB qui exécute cette méthode... enfin, c'est juste une idée

Que dit l'erreur exactement ?

EDIT: bizarre, j'ai fait le test, et pour moi ça marche bien, avec ou sans majuscule...

[Mario Rousson]

j'ai essayé avec une majuscule et c'est négatif

avec option strict off le code s'execute bien mais quand il est à on le message d'erreur suivant s'affiche

Erreur 1 Option Strict On rejette toute liaison tardive. C:\Users\Mario\Documents\Visual Studio 2008\Projects\ordiparle\ordiparle\Form1.vb 6 9 ordiparle

[tomlev]

Ah ok, je croyais que c'était une erreur à l'exécution... Effectivement avec Option Strict On ça ne passe pas.

Tu peux toujours mettre Option Strict Off juste dans le fichier concerné, et ne rien mettre d'autre dans ce fichier... comme ça tout le reste du projet reste avec Option Strict On

[Mario Rousson]

je suis pas sur de bien comprendre ?

Autrement dit je créer un module ou je met l'option à off et le reste reste à on?

[tomlev]

Autrement dit je créer un module ou je met l'option à off et le reste reste à on?

Un module, une classe (éventuellement une classe partielle)...
De toutes façons, vu que la fonctionnalité n'est pas très pratique à utiliser directement (CreateObject, pas d'intellisense...), autant l'isoler dans une classe que tu utiliseras ensuite.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Strict Off
Public Class Speech
 
    Public Shared Sub Speak(ByVal text As String)
        Dim sapi As Object = CreateObject("SAPI.SpVoice")
        sapi.Speak(text)
    End Sub
 
End Class

Et dans les options du projet, tu laisses Option Strict sur On...

Même si Option Strict On est généralement considéré comme une bonne pratique, il ne faut pas s'interdire complètement de le désactiver, sinon l'interop avec COM devient un cauchemar comme en C# avant la version 4...

D'ailleurs je préfère l'approche de C#, où on précise au cas par cas les variables sur lesquelles on peut faire du late binding :

Code C# :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dynamic sapi = Activator.CreateInstance(Type.GetTypeFromProgID("SAPI.SpVoice"));
sapi.Speak("Bonjour")

Le fait de déclarer la variable avec le (pseudo-)type "dynamic" permet de faire du late binding dessus. Pour toutes les autres variables, c'est interdit.