หน้าแรก อุปกรณ์ที่ประกอบเป็นเครื่องคอมพิวเตอร์ เกาเหลาเทคนิคการใช้ HTML วิธีทำสร้าง Shortcut บน Desktop ปัญหาใหญ่ของ Data transfer
มาสร้าง ActiveX DLL
ActiveX DLL เป็นเรื่องแรกที่ผมศึกษาเกี่ยวกับการสร้าง ActiveX Control แล้วเพราะเห็นว่าเราสามารถใช้ประโยชน์ได้หลายอย่าง โดยเฉพาะอย่างยิ่งคือการนำไปใช้ Active Server Pages เพื่อให้ ASP เรียกใช้ DLL เดิมทีผมใช้ VB4 มาตลอดตั้งแต่เริ่มออก เพิ่งจะเริ่มมาใช้ VB5 ไม่กี่เดือนมานี้เอง จึงต้องเริ่มต้นศึกษาเรื่อง ActiveX ใหม่ ดังนั้นจึงขออธิบายตั้งแต่ขั้นตอนเริ่มสร้างเลยละกันครับ หวังว่าคมีประโยชน์นะครับ
| เริ่มต้นสร้าง ActiveX DLL (1 ก.ย. 41) | |
| เมื่อต้องการตรวจสอบ(Test) ActiveX DLL (1 ก.ย. 41) | |
| เมื่อต้องการนำ ActiveX DLL ไปใช้ใน ASP (1 ก.ย. 41) |
เริ่มต้นสร้าง ActiveX DLL
ตัวอย่างขั้นการการสร้าง
1.เริ่มสร้าง Project ใหม่ เลือก ActiveX DLL
2 กด F4 เพื่อเปิด Properties เปลี่ยนชื่อ Class1
Name = SimpleClass <= สำคัญเพราะจะต้องอ้างตอนใช้งาน เช่น ใน ASP
Intancing = 5-MultiUse
3 ไปที่เมนู Project เมาส์กิ๊ก Project1 Properties เลือกแถบคั่น General
Project Type = ActiveX DLL
Startup Object = None
Project Name = SimpleProj <= สำคัญเพราะจะต้องอ้างตอนใช้งาน เช่น ใน ASP
Project Description = Test Project <= จะไปแสดงตรง Reference
4 เขียน Code ใน SimpleClass
'*** ต้องการหาผลคูณ
Public Function Multi(x As Variant, y As Variant) As Variant
Multi = CDbl(x) * CDbl(y)
End Function
5 Save Project ชื่อ SimpleProj
6. สร้าง DLL ไปที่ เมนู File -> Make SimpleProj.DLL
ศึกษาได้จากตัวอย่างแรกเมื่อต้องการตรวจสอบ (Test) ActiveX DLL
ก่อนที่จะสร้าง DLL ท่านต้องตรวจสอบโปรแกรมให้ถูกต้องก่อน โดยทำดังนี้
1. ต้อง Add New Project ที่เมนู File จะได้ชื่อ Project2 (สร้างแบบ Standard Exe)
2. ไปเมนู Project -> Reference เลือก SimpleProj ที่เราเพิ่งสร้าง
3. ใน Form1 เพิ่ม Text Box 3 ตัวคือ Text1, Text2 และ Text3 และเพิ่ม Command Button คือ Command1
4. ใส่เหตุการณ์ ตรง Command1_Click
Dim ObjSimple As New SimpleClass '*** ชื่อของ Class จะมาใช้ตรงนี้
Dim N1 As Variant
Dim N2 As Variant
N1 = Text1
N2 = Text2
Text3 = ObjSimple.Multi(N1, N2)
5. ที่หน้าต่าง Project Group นำเมาส์กิ๊กปุ่มขวาที่ Project2 แล้วเลือกเมนู Set As StartUP ถ้าคุณไม่กำหนดนะครับเวลา Run Project จะเงียบไปเฉยๆ
6. ได้เวลา Test แล้วครับ Run Program เลย
เมื่อต้องการนำเอา ActiveX DLL ไปใช้ใน ASP
ใช้ RegSvr32.exe เพื่อ Register SimpleProj.DLL เมื่อท่านนำไปใช้เครื่องอื่น
ถ้าท่านใช้เครื่องเดียวกันกับที่ Compile ไม่ต้อง Register ก็ได้ เพราะ VB จัดการให้เสร็จเลย
ใช้ NotePad สร้าง Test.Asp ดังนี้
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=">
<title>testdll</title>
</head>
<body bgcolor="#FFFFFF">
<%
x = 10
y = 15
Set testObj = Server.CreateObject("SimpleProj.SimpleClass") '<= เรียกใช้ SimpleProj.Dll ชื่อ SimpleClass
amt = testObj.Multi(x,y) '<= ตรงนี้ที่เรียกใช้Method Multi
Set testObj = Nothing '<= ควรล้างทิ้งเสียเมื่อเลิกใช้งาน
%>
The Value of x : <% = x %> <BR>
The Value of y : <% = y %> <BR>
The Result is : <% = amt %> <BR>
</body>
</html>
หน้าแรก อุปกรณ์ที่ประกอบเป็นเครื่องคอมพิวเตอร์ เกาเหลาเทคนิคการใช้ HTML วิธีทำสร้าง Shortcut บน Desktop ปัญหาใหญ่ของ Data transfer