杭州交通信息网wps怎么下载ppt模板:VB有没有带有事件的直线控件
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/25 04:00:19
我需要鼠标移到这条直线上，有事件产生。
总之不是一个轻量控件
我用在电子地图上显示道路使用，谢谢。
我晕，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 iMode As Long) As Long
想的美
换种思想，把一个lable弄成又细又长久不很想直线了，^_^
补充：不好意思阿，忘记地图里是有斜线了，那可能只能自己写个控件了。。。。。。:(
无法直接完成你的要求
推荐解决方案：
建立一个坐标系，建立直线方程，
写一个函数专门根据方程画直线，
以后，
在Parent的MoveOver事件中，把鼠标所在点的位置往直线方程里代，误差在一个范围内认为是MouseOver