Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: ActiveX,созданные в VB6 для VB.Net Добавлено: 23.07.14 15:51  

Автор вопроса:  Vitalysan®
Доброго времени! Создаю контрол в VB6. В процедуре Resize прописываю
Call BitBlt(hDc,0,0,ScaleWidth,ScaleHeight,][B]Parent.hDc,[/B],Extender.Left,ExtenDer.Top,vbSrcCopy)
.
Компилирую, подключаю к VB.Net, размещаю контрол на форме и редактор ругается на то, что объект не поддерживает этот метод. Опытным путём понял, что ругается на Parent. Пробовал Extender.Container.hDc - другая ошибка (не помню какая). Как же писать тогда?

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Mikle



Вопросов: 5
Ответов: 134
 Профиль | | #1 Добавлено: 18.10.14 08:47
В NET нет свойства hDC, создать можно примерно так:
  1.   Dim Grp As Graphics
  2.   Dim hDC As HandleRef
  3.  
  4.   Private Sub Form1_HandleCreated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.HandleCreated
  5.     Grp = Me.CreateGraphics
  6.     hDC = New HandleRef(Grp, Grp.GetHdc)
  7.   End Sub

Ну и не забыть уничтожить при закрытии формы:
  1.     DirectCast(hDC.Wrapper, Graphics).ReleaseHdc()
  2.     Grp.Dispose()

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам