ActiveX Kontrol (OCX) Nasıl Oluşturulur
Tarih
18/05/2010 12:51
Konu Sahibi
ogulcan92
Yorumlar
4
Okunma
3375
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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 

Cevapla


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Süper Çalışma Elleriniz Dert Görmesin...
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla


emturker
- Murat -
Kullanici Avatari
Uzman
M....
1.245
30/10/2008
775
İstanbul
Ofis 2010 32 Bit
02/12/2016,09:14
ogulcan92 Hocam Gerçektende Süper Bu Tip Eğitim Videoların varsa yararlanmak isterim.
Saygılar
Application Engineer
Cevapla


ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
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.
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
Dün,09:18
Sn Ogulcan92 bu güzel paylaşım için teşekkürler. Ellerine sağlık. Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya