请问怎样解决控件之间的显示层面
比若说我想在command上面画一条line
但是怎样line都压在command底下
显露不出来
请问该怎样设置?
比若说我想在command上面画一条line
但是怎样line都压在command底下
显露不出来
请问该怎样设置?
解决方案 »
- 【问】快捷方式之终极应用?
- 怎样用VB实现创建VPN连接?
- 高难度:求两点的距离(70分不够可再加)
- 发现VBTEXT文本控件一个奇怪的问题???
- 如何获取公网IP???
- 在窗体上有两个控件,我要移动(move)一个控件到另一个控件上面(盖住),请问用什么api?
- 我怎么不能对com1口写东西?使用过mscomm32.ocx的大虾小帮一下
- 兼职工作(可是个好机会!!!)
- 有关于com+的文章请发到我的[email protected] 中,谢谢!
- 在vb中如何用MSHFlexGrid控件将access数据库中内容显示出来
- 问一下单选按钮问题:从数据库读取一值,据此值来显示单选按钮是否选中(急!在线等)
- 设置记录集索引,出现如下提示
你放个容器控件(如picturebox,frame..),容器里放入线条,覆盖在command上面呢,但这样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