Visual Basic İçin OCX | ActiveX | Bileşen Nasıl Yapılır ?

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.



İlk yorumu siz yazın !..

  • Yorumunuz en az 30 karakter olmalıdır. (0)
İlginizi çekebilir...
Sitede Ara
  • Fırat Üniversitesi Diş Hastanesi Randevu Alma - Dolgu - İmplant- Kanal Tedavisi
    aradığımız kişiye neden ulaşamıyoruz ve neden devamlı böyle?...
  • Aöf Davranış Bilimlerine Giriş Kısa Kısa Ders Notları ve Ünite Özetleri
    Oldukça kısa ve anlaşılır. Teşekkürler ...
  • Genel Matematik | Özdeşlik, Denklemler ve Eşitsizlikler
    cok tesekkur ederim gecenin ucunde odev yapmaya calisirken iyi gidio...
  • Red Dead Redemption 2 Türkçe Yama (v1436.25) Türkçe Karakter Sorunu Çözümü
    Dostum çok teşekkürler sayende oyunum türkçe oldu fakat "Yazı Karakter" sorunu var sebebi nedir?...
  • AÖF AKTS Nedir Nasıl Hesaplanır?
    Ben aof okudum ilk yılım yıllık sistemdi onu kac kredi olduğunu nasil öğrenebilirim ...
  • Kredili Sistemde Ders Geçmek İçin Kaç Almalısınız?
    Benim 1sinifim ilk donem iyi gecti ikinci donem derslerden kaldim 2.yilimda mi kaldigim dersleri mi ver...
  • PHP Array | Dizi İçinde Tekrar Eden Elemanların Sayısını Alma
    Sen kralsın kardeşim :) 5 saattir bunu arıyordum...