by nofx (8 Submissions)
Category: OLE/COM/DCOM/Active-X
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Wed 31st March 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Are you sick and tired of using someone's AcitveX Controls and you would want to make your own .ocx! Its easy see for your self.
' CaptiveX TM. '
' Writen by nofx (op-ivy) '
'http://www.sharpnet.net/~nofx/'
'or visit us on EFNET #captivex'
' P.S. '
' Have Fun '
Option Explicit
Private NowX, NowY As Integer
Private UseCol As Long
Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
NowX = X
NowY = Y
End Sub
Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
UserControl.Line (NowX, NowY)-(X, Y), UseCol
End If
End Sub
Public Property Get DrawColour() As OLE_COLOR
DrawColour = UseCol
End Property
Public Property Let DrawColour(ByVal vNewValue As OLE_COLOR)
UseCol = vNewValue
UserControl.PropertyChanged "DrawColour"
End Property
No comments have been posted about Are you sick and tired of using someone's AcitveX Controls and you would want to make your own .ocx. Why not be the first to post a comment about Are you sick and tired of using someone's AcitveX Controls and you would want to make your own .ocx.