老马，看见你在中国学网上的回帖，特来找你
我想做一个自制控件，就是在窗体上画一条线段也就是.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中的一些参与过的回复用爬虫抓到自己站上骗点击量的.......这类站点挺恶心的 解决了
谢谢啊
老马就是厉害ia 斑竹是傻逼，上紫水晶的都是傻逼。
页:
[1]