InputManのコントロールをWithEventsにて監視するクラスを作成してます。
私のマシンにてコンパイルしたDLLを、別の人が
使用すると、WithEvents宣言しているオブジェクトにセットする際、
に「型が一致しません。」エラーがでます。
なぜでしょう?
わかられる方教えてください。よろしくお願い致します。
ロジックを記述しておきます。
Private WithEvents mnumControl as imber6Ctl.imNumber
Public Sub Init(byval objCtrl as Object)
If TypeName(objCtrl)="imNumber" Then
Set mnumControl = objCtrl
~~~~~~~~~~~~~~~~~~~~~~~~~
↑ここでエラー。
end if
End Sub
原因は判りませんが、とりあえず
If TypeName(objCtrl)="imNumber" Then
ではなくて、
If TypeOf objCtrl Is imber6Ctl.imNumber Then
とすると、良いかもしれません。