visual basic de activeX dll yazma problemi!
Cengiz HAN
asp bileşeni yazacagım!
sorun şu!
mesela pclife.com.tr de bulunan basit bir asp bileşeni yazımı var orada
sadece response olarak bir tanımlama yapıp response.write komutunun yaptıgı
işi yapmış!
ama ben projemde inet bileşeni kullanmak istiyorum diyelim!
reference veriyorum! bir deger i "hede as inet" seklinde tanımlıyorum! ama
olmuyor!
sanırım onstartpage diye bir sub da bir tanımlama yapmam gerekiyr! az sonra
pclife daki yazıyı da post edecegim!
eğer bana inet bileşenini kullanan basit bir dll kodu yazıp yollayan olursa
sevinirim!
Cengiz HAN
Visual Basic ile response nesnesini kullanan basit bir componenti beraberce
yapmaya çalışalım. Aşağıdaki maddeleri teker teker uygulayın.
ÖRNEK
1-Yeni bir Active-X DLL projesi açın.
'--Eğer aşağıdaki ASP kütüphanesi seçeneğini bulamadıysanız; IIS, PWS veya
Visual InterDev ile beraber yüklendiğini söylemeliyim.
2-Proje içerisindeyken, References menüsünden Microsoft Active Server Pages
kütüphanesini aktif hale getirin.
3-Proje kolay bir isim verin. (geveze)
4-Sınıf yani class ismi verin. (papagan)
5-Visual Basic kod penceresine aşağıdaki kodları yazın ve compile edin.
6-Windows/System altındaki Regsvr32.exe kullanılarak DLL sisteme register
edilir.
Regsvr32 geveze.dll
<'--proje ismi geveze, class adı papagan verdikten sonra kod penceresinde
aşağıdaki kodları yazın.>
Private ASPresponse As response
Public Sub onstartpage(sc As ScriptingContext)
Set ASPresponse = sc.response()
End Sub
Public Sub merhaba()
ASPresponse.Write "Merhaba PCLIFE ASP Okuluna Hoş Geldiniz..."
End Sub
Public Sub gulegule()
ASPresponse.Write "Güle, Güle Tekrar Görüşmek Üzere"
End Sub
<'--Haydi şimdi yaptığımız bu componenti ASP sayfamızda kullanalım.
<'--ornekcomponent.asp>
<html><head>
<title>İlk Componentim</title>&
<%
set konus=server.createobject("geveze.papagan")
'--Ekrana "Merhaba PCLIFE ASP Okuluna Hoş Geldiniz..." yazar.
konus.merhaba
response.write "<br>"
'--Ekrana "Güle, Güle Tekrar Görüşmek Üzere" yazar.
konus.gulegule
%>
</body></html>
Cengiz HAN
projeye form ekledim! üzerine bir inet controlu sonra form1.inet1..... diye
çağırdım oldu bitti!
