AccessTr.neT

Tam Versiyon: ActiveX Kontrol (OCX) Nasıl Oluşturulur
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Merhaba Arkadaşlar öncelikle ActiveX Kontrollerini tanımakla başlayalım

AccessKeys : Kısayol tuşu (Alt+F) gibi
Alignable : True - Align özelliği var
Ambient : Kontrolun bulunacağı yerin özellikleri
CanGetFocus : True – Tab tuşu ile kontrole erişilebilir
ControlContainer : True – İçerisine başka kontroller yerleştirilebilir
DefaultCancel : Defaul ve Cancel özelliği
EditAtDesignTime : True - Kontrolu tasarım zamanında çalıştırılabilme
InvisibleAtRunTime : Kontrolün çalışma zamanında görünmesi
PropertyPages : Özellikler penceresi
Public : True - kontrol diğer uygulamalarda kullanabilir
ToolBoxBitmap : Kontrolun ToolBox’a eklendiğinde görülecek olan resim
Initialize : Yeni bir kontrol üretilmesi
InitProperties : Initialize olayı sonrası ilk değerlerin oluşumu
Terminate : Kontrolün hafızadan silinmesi
AccesKeyPress : AccessKeys ile belirlenen tuşa basılması
Hide : Kontrolün gizlenmesi
Show : Kontrolün gösterilmesi
AmbientChanged : Ambient özelliklerinden birinin değişmesi
EnterFocus : GotFocus
ExitFocus : LostFocus
ReadProperties : Propertiese aktarılan değerin okunması
WriteProperties : Değerin properties’e aktarılması
ReSize : Kontrolün boyutunun değişmesi
Paint : Kontrol nesnesinin formda gözükmesi

Yeni bir proje açalım.(ActiveX Control)
UserControl1 isimli formun üzerine 1 adet Shape1 Nesnesi ve 1 adetde Text1 nesnesi koyalım ve nesnelerimizin yerlerini (Sahape1 Left 0 Top 0 Text1 Left 20 Top 20) ayarlıyalım.Sonra Project menüsünden > Project\Add UserControl seçerek önümüze gelecek olan Pencerenin <New> sekmesindeki <VB ActiveX Control Interface Wizard> olanı seçiyoruz ve Tekrar önünüze gelecek olan Pencerenin Sol ve Sağ tarafında liste gözükecektir. Soldaki listede kullanabileceğimiz denetimler, Sağdaki listede kullandığımız Seçilmiş denetimler gözükecektir.
Şimdi buradan otomatik seçili olarak gelen denetimleri kaldıracağız. Yani Orta kısımda bulunan "<<" başlıklı butona kullanarak sağdaki listeyi boşaltalım ve Next butonuna tıklayarak diğer sayfaya geçelim.
Bu kısımda da yine 1 adet Liste ve 3 adet buton göreceğiz. Buradaki liste kullanıcının yani sizin özel isteğine bağlı denetimleri görünür. Şimdi bizim listemiz boş ve hazırsak eklemeye başlıyalım New butonuna kullanarak açılan pencerede 3 adet tip seçeneği vardır Bunlar sırası ile aşağıdaki şekildedir.
1:Property (Özellik)
2:Method (Metot)
3:Event (Olay)
Şimdi bir özellik ekleyelim Yani property sekmesi işaretleyip Name kısmına Sayı yazalım (Yani sadece text1 nesnemize sayı gireceğiz) OK butonuna bastığımızda bir önceki ekran geri gelecek ve boş olan listede bizim denetimimiz gözükecektir.Şimdi tekrar aynı işlemi yaparak Property seçili iken bu seferde Name kısmına TlfFormat (Burada Text1 Tlf Formatında olacak) yazıyoruz.Tekrar aynı işlemi yaparak Property değilde Event seçeneğeni işaretleyip Name kısmından Değişiklik yazıyoruz ve listemizde Sayı, TlfFormat ve Degisiklik denetimlerimiz listeleniyor Next diyerek diğer sekmeye geçiyoruz.
Bu açılan sekmede Sol tarafta 1 liste ve içerisinde bizim denetimlerimiz görünecek Sağ tarafta ise Control ve Member adında 2 adet Combo görünüyor.1.Comboda kullandığımız nesneler 2. Comboda ise Event olaylarına seçeceğiz.
Şimdi buradan Degisiklik isimli denetimimizi seçip 1.Combodan Text1 seçiyoruz sonra 2.Combodan Change olayını seçip Next butonuna tıklayınız.
Tekrar açılan pencereden Sol tarafta bir liste kutusu (Public Name) ve Sağ tarafta 3 adet Combo 2 adet Text var.Sol taraftan Sayı denetimimizi seçip sağda bulunan Data Taype olan Comodan Boolean seçip Default Value yazan Textde 1 yazıyoruz.Aynı işlemi TlfFormatı içinde yapıyoruz.Son olarak Next ve Finis butonlarına basarak işlemi bitiriyoruz.
Kod sayfasına geçip orada aşağıdaki kodları ekliyoruz.

Kod:
Private Sub Text1_Change()'Telefon Formatı
Text1.MaxLength = 17
If Len(Text1.Text) < 10 Then
Text1 = Replace(Text1, "", "")
Else
Text1.Text = Format(Text1, "0 (###) ### ## ##")
End If
End Sub  

Private Sub Text1_KeyPress(KeyAscii As Integer)'Sadece sayı girişi yapılır.
If m_TlfFormat = True Then
If KeyAscii = vbKeyBack Then Exit Sub
If IsNumeric(Chr$(KeyAscii)) = False Then KeyAscii = 0
End If
End Sub

Kodlarımızı yazdıktan sonrada File menüsünden Make Project1.ocx olarak derliyoruz ve artık kendimize has sadece sayı ve TlfFormatında ocx simiz hazır.Güle Güle Kullanınız.

Not:Videoda ses yoktur.

Anlatım Videosu:
ActiveX Kontrol (Ocx) Hazırlama
Süper Çalışma Elleriniz Dert Görmesin...
ogulcan92 Hocam Gerçektende Süper Bu Tip Eğitim Videoların varsa yararlanmak isterim.
Saygılar
Sn:emturker
İşimden vakit buldukça hazırlamaya çalışıyorum, aslında bu tür videoları daha önceleride hazırlamıştım ama Hdd diskim arıza yapınca bütün çalışmalarım gitti bende vakit buldukça tekrar hazırlamaya çalışıyorum.Gerçe videolarda ses yok elimdeki sesli ekran görüntüsü alma programı Pc fazla kasyığı için başka bir programla sessiz olarak hazırlıyorum.
Sn Ogulcan92 bu güzel paylaşım için teşekkürler. Ellerine sağlık. Saygılar...
Merhaba video silinmiş.Ekleme imkanı var mıdır?
Sayfalar: 1 2