Bu makalede Ocx yapımını ve projede kullanımını anlatacağım.

Yeni bir Visual Basic projesi baÅŸlatın. Projeye bir User control ekleyin. User controlün ismini RenkliButon olarak deÄŸiÅŸtirin. EklediÄŸiniz user control'ün üzerine bir adet Label ekleyin ve kod kısmına geçerek aÅŸağıdaki kodları yazın.

Public Event Click()
Private Sub Label1_Click()
RaiseEvent Click
End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Label1.BackColor = QBColor(4)
Label1.ForeColor = QBColor(15)
End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Label1.BackColor = QBColor(11)
Label1.ForeColor = QBColor(0)
End Sub

Private Sub UserControl_Initialize()
Label1.BackColor = QBColor(11)
End Sub

Private Sub UserControl_InitProperties()
Baslik = Extender.Name
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Baslik = PropBag.ReadProperty("Baslik", Extender.Name)
End Sub

Private Sub UserControl_Resize()
Label1.Width = UserControl.ScaleWidth
Label1.Height = UserControl.ScaleWidth
End Sub

Public Property Get Baslik() As String
Baslik = Label1.Caption
End Property

Public Property Let Baslik(ByVal YeniDeger As String)
Label1.Caption = YeniDeger
End Property

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Baslik", Baslik, Extender.Name
End Sub

Kodları yazdıktan sonra Properties menüsünden ToolboxBitmap'tan ocx'inizin toolbar'daki resmini veya logosunu belirleyin. Daha sonra File menüsünden Make RenkliButon.ocx'e tıklayarak ocx'i derleyin. Åžimdi yeni bir Visual Basic projesi baÅŸlatın ve Project menüsünden Components'e tıklayarak RenkliButon.ocx dosyasını bulun ve projeye ekleyin. Åžu anda toolbar'da ocx'iniz belirlediÄŸiniz logo veya resim ile belirmiÅŸ olması lazım. Artık istediÄŸiniz bütün projelerde bu ocx'i kullanabilirsiniz. BaÅŸarılar.