VB有没有带有事件的直线控件

来源：百度知道 编辑：UC知道 时间：2024/05/23 02:05:15
VB里面的直线控件只是一个装饰作用
我需要鼠标移到这条直线上，有事件产生。
总之不是一个轻量控件
我用在电子地图上显示道路使用，谢谢。
我晕，label又细又长我倒是采用过，斜线怎么办呢？
自己写控件占用资源又太大。
不过还是谢谢 amsterdam
至于lzxchf，我不是想的美，而是就是差这一个没实现了。

可以试试是否可以用api函数旋转picturebox。因为picturebox设置为flat时候和line差不多，而它支持click事件，而且又有hDc，api函数用来旋转应该有据可依。
可能会用到这些函数，但具体的例子我还是没有找到。
Private Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lffacename As String * 32
End Type
Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SetGraphicsMode Lib "gdi32" (ByVal hdc As Long, ByVal iMod