请问怎样解决控件之间的显示层面
比若说我想在command上面画一条line
但是怎样line都压在command底下
显露不出来
请问该怎样设置?

解决方案 »

  1.   

    实现不了吧。
    你放个容器控件(如picturebox,frame..),容器里放入线条,覆盖在command上面呢,但这样command还是被覆盖,效果不好。找找看,其他一些第三方控件。
      

  2.   

    '在Command上画个线
    Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
    Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal a As Long) As Long
    Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
       MoveToEx GetDC(Command1.hwnd), 0, 0, 0
       LineTo GetDC(Command1.hwnd), 200, 200
    End Sub