Problème précédent résolu... Je ne suis pas fier de moi... J'avais oublier d'enregistrer la DLL... Mais est-il possible d'enregistrer une DLL en visual basic? Effectuer la commande Regsvr32 en vb???

Merci d'Avance...

Bonjour,

J'obtiens un erreur en utilisant Rey_SubClasser...
Pour voir la source, voir ici: http://www.vbfrance.com/code.aspx?id=19625

Mon programme, une fois compilé en .EXE à toujours bien fonctionné... Mais je l'avais toujours testé sur le même ordinateur...

Il y a quelques jours j'ai décidé de le tester sur un autre ordi...

Et là, avant même que mon logiciel s'exécute, j'obtiens le message d'erreur suivant :
'Vous ne disposez pas de la licence appropriée pour utiliser cette fonctionnalité'

Et ensuite cela quitte....

Après des d'intenses recherches, j'en suis venu à l'évidence que le problème viens de ici:
------------------
Private Sub Form_Initialize()
If SIP2 = 0 Then
    Set SubClasser = New ReySubClasser
    Call SubClasser.Controls.Add(Text_Msg.hWnd)
    Call SubClasser.Controls.Add(Text_Sujet.hWnd)
    Call SubClasser.Messages.Add(WM_PASTE)
    Call SubClasser.StartSubClassing
End If
End Sub
----------------

En effet, lorsque je supprime cette partie ou la remplace par n'importe quoi d'autre:
----------
Set SubClasser = New ReySubClasser
Call SubClasser.Controls.Add(Text_Msg.hWnd)
Call SubClasser.Controls.Add(Text_Sujet.hWnd)
Call SubClasser.Messages.Add(WM_PASTE)
Call SubClasser.StartSubClassing
------------

Mon programme s'ouvre et aucun problème à l'horizon...

C'est bizarre parcequ'il ne s'agit pas d'un problème de .DLL parcequ'en supprimant ces 5 lignes j'ai laissé la référence Rey_Subclasser (rey_subclasser.dll) dans mon prog....

J'ai essayé d'effacer ligne par ligne les 4 dernières lignes pour voir si ce n'était que l'une d'elle qui causait le problème mais en vain... L'erreur persiste... Cela doit donc provenir de la 1ere ligne et donc il faut absolument supprimer les 5 lignes...

J'ai essayé de le faire exécuter lors du chargement (Form_Load) au lieu de avant (Form_Initialize), je ne sais pas si cela aurais quand même fonctionné, mais de toute manière j'obtient une autre erreur : Erreur d'exécution 429... Et même en se consacrant à résoudre cette deuxième erreur on ne sais pas si la première referra son apparition par après...!!!

Donc mieux vaut, à mon avis, se consacrer qu'à la première erreur...

En tout cas... Je vais aller réécrire ce post dans les commentaires de la source officielle Rey_SubClasser de Renfield... Au cas ou...

Je ne sais plus quoi faire.... S'il-vous-plaît...

Merci d'avance...

Hmmm! Il y a 2 failles majeures dans ce programme...

1 - La première a déja été dites (En faisant un Cut (CTRL-X) le copier se fait)
2 - Si on appuie sur Enter en même tant que l'on fait le clique droit, et bien le menu contextuel habituel apparait et l'on peut choisir Copier. Même chose pour Coller dans la fenêtre #2.

Je sais que le code date un peu et qu'une meilleure méthode à été trouvée depuis... Je ne fais qu'avertir ceux qui ne le savait pas...

De plus, la méthode de SHAD20020 est une très bonne alternative!!!

Bonjour à tous...

La moi je débute et je voudrais utiliser 2 RayOptionButton dans ma source perso...

Comment je procède?

J'ai vu a quelque part sur cette page qu'il faut mettre en OCX!? Mais je crois que c'est plus simple de commencer du début...

Merci d'avance...

Hop! Et bien j'ai trouvé la réponse à ma question moi-même! Je n'ai que rejouté un On Error Goto ... et ca marche.

Mais je serais quand même curieux de savoir si il y aurait vraiment quelque chose  à mettre à la place du 'RIEN' et qui ferait la même chose.

Donc, vous pouvez quand même essayer de répondre a la question...

MErci

J'ai une question:

Comment je pourrais faire cela: (EXEMPLE)

(SI LA VARIABLE N'EXISTE PAS, FAIRE UNE ACTION)

Il faudrait remplacer 'RIEN' par quoi????

--------------------------------------------------------------------------
If LireINI("Ligne Un Entete", "NomVariable") = 'RIEN'  Then
MsgBox "1"
End If
--------------------------------------------------------------------------



Merci