VB6 создать объект класса

Question

Хорошо, простите меня, если мой вопрос лишний или глупый для некоторых, но я пытался что-то сделать в течение 2 недель без успеха.

У меня есть dll, которая управляет картой тюнера. Все работает с картой тюнера и программным обеспечением, но мне нужно создать приложение vb для управления частью карты. У dll у меня есть, я позвоню tuner.dll. Я упоминал tuner.dll в vb6. Я могу просматривать его классы и члены в браузере объектов.

Я пытаюсь создать новый экземпляр класса, который скажет мне текущий номер канала. Когда я смотрю tuner.dll в браузере, у меня есть много классов, не имеющих большого значения, имена в значительной степени говорят, что они делают , Тот, который я собираюсь использовать, - IHCTuneRequest. Я думаю, я использую этот, потому что член этого класса get_ChannelNumber. Теперь вот когда я застрял.

Dim curchannel as tunerlib 
set curchannel = new tunerlib 
curchannel.IHCTuneRequest.get_channelnumber 

Является ли синтаксис и процедура правильной? По какой-то причине я не могу заставить ее работать. Благодаря

Answer 1

Мой VB6 немного ржавый, но от того, что я могу вспомнить,

со ссылкой на эти страницы

http://msdn.microsoft.com/en-us/library/aa243324(v=VS.60).aspx

http://msdn.microsoft.com/en-us/library/aa243341(v=vs.60).aspx

Во-первых, вы должны объявить внешнюю динамическую связь библиотеки, на уровне MODULE. И/Или же объявить подводные лодки и функции, такие как, например,

[With Alias name] 
Declare Function IHCTuneRequest Lib "tuner" Alias "#132"() As Long 
Declare Function IHCTuneRequest Lib "tuner" Alias "AnotherAlias"() As Long 

[Without Alias name] 
Declare Function IHCTuneRequest Lib "tuner"() As Long 

Обратите внимание, что некоторые подпрограммы и/или функции могут принимать параметры

[With Alias name] 
Declare Function IHCTuneRequest Lib "tuner" Alias "#132"(byval Hwnd as long) As Long 
Declare Function IHCTuneRequest Lib "tuner" Alias "AnotherAlias"(byval Hwnd as long) As Long 

[Without Alias name] 
Declare Function IHCTuneRequest Lib "tuner"(byval Hwnd as long) As Long 

Наконец, Вы не упоминаете если вы получаете какие-либо ошибки или любые отзывы от вашего звонка в DLL? И я должен спросить ... Не так ли? получать какие-либо ошибки? и если да, то какую ошибку вы получаете?