Vẽ hình trên Form

[nhatky@]

Các anh (chị) cho em hỏi: Có cách nào vẽ các đường thẳng, hình vuông, hình tròn,... trên Form?

 

[ndu96081631]

Các anh (chị) cho em hỏi: Có cách nào vẽ các đường thẳng, hình vuông, hình tròn,... trên Form?

Đương nhiên được nhưng phải dùng hàm API để hổ trợ
Ví dụ bài này tôi vẽ hình tròn trên UserForm đây:
http://www.giaiphapexcel.com/forum/showthread.php?52681-Điều-khiển-vị-trí-của-Shape-trên-UserForm&p=333916#post333916
Hoặc bạn có thể tham khảo file đính kèm này, vẽ hình vuông và hình tròn trên UserForm với code đơn giản nhất:

Private Declare Function Rectangle Lib "gdi32" _
  (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function Ellipse Lib "gdi32" _
  (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Dim hdc As Long

Private Sub CommandButton1_Click()
  Me.Repaint
  Rectangle hdc, Me.rLeft, Me.rTop, Me.rRight, Me.rBottom
End Sub

Private Sub CommandButton2_Click()
  Me.Repaint
  Ellipse hdc, Me.rLeft, Me.rTop, Me.rRight, Me.rBottom
End Sub

Private Sub UserForm_Initialize()
  hdc = GetDC(FindWindow("ThunderDFrame", Me.Caption))
End Sub

Trong đó rLeft, rTop, rRight, rBottom là các TextBox cho bạn nhập các vị trí vào