Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: TheWatcher en Mayo 08, 2013, 06:40:54 am

Título: Typo in ClsSnapWebSite.cls
Publicado por: TheWatcher en Mayo 08, 2013, 06:40:54 am

Hola Leandro,

Private Sub DrawRectangle() seems to have a typo:

Código: (VB) [Seleccionar]

Private Sub DrawRectangle(hdc As Long, X As Long, Y As Long, Width As Long, Height As Long, oColor As OLE_COLOR)
    Dim hPen As Long, OldhPen As Long
    Dim OldBrush As Long
    hPen = CreatePen(0, 1, oColor)
    OldhPen = SelectObject(hdc, hPen)
    OldBrush = SelectObject(hdc, GetStockObject(NULL_BRUSH))
    Rectangle hdc, 0, 0, Width, Height
    DeleteObject SelectObject(hdc, Height) ' MUST BE A TYPO. SHOULD BE DeleteObject SelectObject(hdc, OldhPen)?
    Call SelectObject(hdc, OldBrush)
End Sub
Saludos,

TheWatcher

Título: Re:Typo in ClsSnapWebSite.cls
Publicado por: LeandroA en Mayo 08, 2013, 02:40:00 pm

Hi TheWatcher, thanks for the tip, an error of copy and paste

then I edit the module.

Saludos.