Discussion :

[nonopower]

Bonjour à tous,
je cherche actuellement à transformer un UserForm VBA (crée sous excel) en VB6 afin de génrer un .exe.
J'ai des listbox avec un système de drag and drop. Je n'arrive à pas le compiler sous VB car il ne me reconnait pasdeux portions de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
    Dim MyDataObject As DataObject
    
If ListBox1.Value <> "" Then
    If Button = 1 Then
        Set MyDataObject = .New DataObject
        Dim Effect As Integer
        MyDataObject..SetText ListBox1.Value
        Effect = MyDataObject.StartDrag   
 End If
End If
End Sub

Il plante sur new dataObject et sur Startdrag et Settext.
La référence et le composant FM20.dll ont bien été insérés sous vb.

Auriez une idée pour contourner ce problème ?

Merci
Et bonne fin de week end.

[SfJ5Rpw8]

l'utilisation de l'explorateur d'objet par F2 t'aurais permis de voir qu'il existe dans ton projet plusieurs type d'object au même nom "DataObject" ...

pré-fixe tes utilisations de cet objet par le nom de ta bibliothèque :

Code :

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

Set MyDataObject = New MSFORMS.DataObject

je comprends pas pourquoi ton code comporte plusieurs objets dont le nom commence par un point . , te manque-t'il pas un with ..?

[nonopower]

Hello,
merci pour l'information je vais tester.
VBA ne faisant pas d'erreur de prog, je ne pensais qu'il existe plusieurs types de dataobject.
Concernant les doubles points, il n'y a pas de with mais il s'agit tout simplement d'une erreur lors de la copie du code sur le site (j'ai testé quelles étaient les méthodes et propriétés disponibles sous VB6).

Encore Merci