Debug 2 câu lệnh này sao không được ?

[bvnthi]

Giả sử mình muốn vẽ (hay tô màu) 1 hình chữ nhật gradient ở vùng MenuBar, khi chạy degbug sao không thấy nó vẽ ra ? câu lệnh sau

Code: Select all

    Dim g As New clsGradient
    Dim dc As New clsDeviceContext
    g.Rectangle dc.Handle, 0, 0, 24, 1, RGB(128, 167, 225), RGB(224, 237, 254), False
    SetMenuBarBackground Me.hwnd, dc.ConvertToBitmap(0, 0, 24, 1)

khi ấn F5 nó vẽ ra luôn mình không nhìn kịp lệnh vẽ ra là do lệnh g.Rectangle hay SetMenuBarBackground, có thể giải thích 2 câu lệnh trên được vẽ vào bộ nhớ thì phải ? mình có thể debug để xem vùng nhớ này được vẻ không ?

[siguri92]

Hic, thiệt chẳng hiểu bạn hỏi gì. ở trên thì nói không thấy vẽ ra. ở dưới thì nói vẽ ra luôn không kịp nhìn...

Code: [Select all] [Expand/Collapse]

1. g.Rectangle dc.Handle, 0, 0, 24, 1, RGB(128, 167, 225), RGB(224, 237, 254), False

GeSHi © Codebox Plus Extension

dòng lệnh này vẽ gradient từ màu này đến màu kia lên dc

Code: [Select all] [Expand/Collapse]

1. SetMenuBarBackground Me.hwnd, dc.ConvertToBitmap(0, 0, 24, 1)

GeSHi © Codebox Plus Extension

dòng này chuyển sang dạng bitmap để gán vào nền của menu

[andylam1992]

bạn debug ko thấy có khi là do nó chưa xử lý xong, nhiều khi mấy cái hàm api mình debug cũng chằng thấy nó hiện ra, nhất là mấy cái hàm về graphic vì khi đó form của mình ko dc active.

[tuyen_dt18]

Ngoài lý do đó bạn nên xem và thay đổi lần lượt thuộc tính AutoReDraw từ True đến False xem. Ngoài ra bạn có thể thử đặt lại Code vào thủ tục Paint của Control như Form_Paint(), Picture1_Paint, ...