ActiveX Denetimler Ocx yada Dll

Yeni Proje acýn.
[ActiveX Control]

UserControl1 isimli formun uzerine 1 adet Text1 nesnesi koyun.
Project menusunden > [Project\Add UserControl] secin
onunuze gelecek olan Pencerenin sekmesindeki olaný secin ve ;

Tekrar onunuze gelecek olan Pencerenin Sol ve Sað tarafýnda liste gozukecektir. Soldaki listede kullanabileceðiniz denetimler, Saðdaki listede kullandýðýnýz (Secilmi&#254 denetimler gozukecektir.

Biz þimdi burada otomatik secili olarak gelen denetimleri kaldýracaðýz. yani Orta kýsýmda "" butonuna týlayýn.

Bu kýsýmda da yine bir adet Liste ve uc adet buton gozukecektir. Buradaki liste kullanýcýnýn (sizin) ozel isteðine baðlý denetimleri gozukur. Þimdi bizim listemiz boþ ve hazýrsak ekleyelim. butonuna týlayýn.

acýlan pencerede uc adet tip seceneði vardýr.
Birincisi :Property (Ozellik)
Ýkincisi :Method (Metot)
Ucuncusu :Event (olay)

Biz bir ozellik ekleyelim Yani property sekmesi iþaretli ise kýsmýna "SadeceSayý" yazalým. OK butonuna bastýðýmýzda bir onceki ekran gelecek ve boþ olan listede bizim denetimimiz gozukecektir.

Þimdi tekrar ayný iþlemi yapýn Property secili durumda iken
kýsmýna "Yazýt" yaztý yazýn.

Þimdi tekrar ayný iþlemi yapýn fakat bu defa Property seceneðini deðil Event seceneðini iþaretleyip kýsmýna "Deðiþiklik" yazýn. ve listemizde

SadeceSayý, Yazýt, Deðiþiklik denetimlerini gorebiliyorsak;
"Next >>" butonuna týlayýn.

Onumuze gelen pencerede yine solda bir liste (icinde bizim denetimlerimiz) ve saðda ise iki adet combobox gozukecektir.
Ustteki combobox ta þu an kullanýlabilir olan Objeleri,
Alttaki combobox ta ise bu objelerin Event(olaylarýn&#253 goruyoruz.
Þimdi, Listemizden Deðiþiklik denetimizi iþaretledikten sonra sað ustteki combobox ýmýzdan "Text1" olaný secelim ve sað alttaki combobox ýmýzdan da "Change" olaný secelim.
Ayný iþlemi tekrar "Yazýt" icin yapacaðýz. ustteki combo dan yine "Text1" olaný alttakinden ise "Text" olaný secip

"Next >>" butonuna týlayýn.

Onumuze gelen pencerede Solda bir liste (icinde "SadeceSayý" deðiþkenimiz), saðda ise 3 adet combo v.s. objeler gozukecektir.
"Data Type" yazan combo (Girilecek verinin turunu)
"Run Time" yazan combo (Deðiþkenin calýþma zamanýnda deðiþip deðiþemeyeceðini)
"Desing Time " yazan combo (Deðiþkenin Dizayn zamanýnda deðiþip deðiþemeyeceðini) gostermemiz icin...
"Defoult Value" ise ilk andaki deðerinin ne geleceðini belirtmemize yarar. Birde sol tarafta "Desciription" baþlýklý bir textbox vardýr. Buda deðiþken ile ilgili acýklama yapmýzý saðlar.

Þu durumda .. soldaki listeden "SadeceSayý" yazaný secelim,
"Data Type" deðiþkeninden "Boolean" deðerini verelim,
"Desciription" seceneðine "Deðerin sadece sayý olarak girilmesini saðlar" yazalým.

"Next >>" butonuna ve "Finish" butonuna týklayýp wizardýmýzý sonlandýralým.

wizard sonladýktan sonra formun Code bolumde bazý kodlarýn geldiði gorulecektir. ve bizde son olarak Text1 in KeyPress olayýna :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If SadeceSayý = True Then
If KeyAscii = vbKeyBack Then Exit Sub
If IsNumeric(Chr$(KeyAscii)) = False Then KeyAscii = 0
End If
End Sub

codlarý yazalým. Þimdi yapýlmasý gereken bunu "File" menusunde "Make Project1.ocx" olarak convert etmek. Buyrun kendi tarzýnýzda bir adet Text nesnesi size
Kolay Gelsin
ForumTR
__________________