老马，看见你在中国学网上的回帖，特来找你

ok100fen

我想做一个自制控件，就是在窗体上画一条线段
也就是.ocx的
用来在ppt中调用
exe的已经做出来了，看看能不能根据exe的改写成ocx的

希望你能帮我啊

exe的代码：


Option Explicit
Dim MX As Long, MY As Long
Dim MX2 As Long, MY2 As Long
Private Sub NewLine(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long)
    Me.DrawWidth = 3
    Line (X1, Y1)-(X2, Y2), RGB(0, 255, 0)
    Me.DrawWidth = 6
    PSet (X1, Y1)
    PSet (X2, Y2)
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    MX = X: MY = Y
    Me.DrawWidth = 1
    Me.DrawMode = 6
'    Line (MX, MY)-(X, Y)
    MX2 = X: MY2 = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    Line (MX, MY)-(MX2, MY2)
    MX2 = X: MY2 = Y
    Line (MX, MY)-(MX2, MY2)
End Sub
Private Sub Form_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    Line (MX, MY)-(MX2, MY2)
    Me.DrawMode = 5
    NewLine MX, MY, X, Y
End Sub

马大哈

直接同样代码替换到控件中去应该就行了.

比如Form_Mouseup事件在控件工程里应该就是UserControl_MouseUp了,相应的替换一下试试吧,有问题再调试.

另外,我听都没有听过什么"中国学网",多半又是把我论坛或者CSDN中的一些参与过的回复用爬虫抓到自己站上骗点击量的.......这类站点挺恶心的

ok100fen

解决了
谢谢啊
老马就是厉害ia

everyone

斑竹是傻逼，上紫水晶的都是傻逼。