ลองมองดูดาวบนท้องฟ้ายามค่ำคืน แล้วเราจะพบว่าจริงๆแล้ว "ตัวเรา" เล็กสักเพียงไหนในจักรวาลนี้ ชีวิตเป็นเรื่องเพียงช่วงเวลาแสนสั้น วันนี้คุณทำดีกับคน "ที่คุณรัก" ก่อนที่จะสายเกินไปแล้วหรือยัง?
Group Blog
 
<<
สิงหาคม 2552
 
 1
2345678
9101112131415
16171819202122
23242526272829
3031 
 
20 สิงหาคม 2552
 
All Blogs
 

Register Unregister ActiveX Component


public Function RegisterComponent(byval FileName$, _
byval RegFunction as REGISTER_FUNCTIONS) as STATUS

'************************************************************
'Author: Vasudevan S
'Helena, MT
'Function: RegisterComponent
'Purpose: Registers/Unregisters any ActiveX DLL/EXE/OCX
'component
'Entry Points in ActiveX DLL/EXE/OCX are DllRegisterServer
'and DllUnRegisterServer
'input: FileName: Any valid file with complete path
'RegFunction: Enumerated Type(DllRegisterServer,
'DllUnregisterServer)
'Returns: Returns the status of the call in a enumerated type
'Comments: The utility REGSVR32.EXE need not be used to
'register/unregister ActiveXcomponents.
'This code can be embedded inside any application
' that needs to register/unregister any ActiveX
'component from within the code base
'SAMPLE FORM is INCLUDED
'WORKS IN VB5.0/6.0

'HOW to CALL:
'-----------
'Dim mEnum as STATUS
'
'to REGISTER A COMPONENT USE
'mEnum = RegisterComponent("C:windowssystemfilename.dll",
'DllRegisterServer) 'to Register
'
'If mEnum = [File Could Not Be Loaded Into Memory Space] then
' MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [Not A Valid ActiveX Component] then
' MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [ActiveX Component Registration Failed] then
' MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [ActiveX Component Registered Successfully] _
'then
' MsgBox "Your Message Here", vbExclamation
'End If
'
'to UNREGISTER A COMPONENT USE
'mEnum = RegisterComponent("C:windowssystemfilename.dll", _
'DllUnRegisterServer) 'to UnRegister
'
'If mEnum = [File Could Not Be Loaded Into Memory Space] then
' MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [Not A Valid ActiveX Component] then
' MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [ActiveX Component Registration Failed] then
' MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [ActiveX Component UnRegistered Successfully] _
'then
' MsgBox "Your Message Here", vbExclamation
'End If
'************************************************************

Source :




 

Create Date : 20 สิงหาคม 2552
0 comments
Last Update : 20 สิงหาคม 2552 22:33:42 น.
Counter : 399 Pageviews.

ชื่อ : * blog นี้ comment ได้เฉพาะสมาชิก
Comment :
  *ส่วน comment ไม่สามารถใช้ javascript และ style sheet
 
รหัสส่งข้อความ
กรุณายืนยันรหัสส่งข้อความ


chengake
Location :


[ดู Profile ทั้งหมด]

ให้ทิปเจ้าของ Blog [?]
ฝากข้อความหลังไมค์
Rss Feed

ผู้ติดตามบล็อก : 1 คน [?]




คู่ชีวิตใหม่ที่วัยเกินมันส์แล้ว กำลังรอคอยเจ้าตัวน้อยสมาชิกใหม่ของครอบครัวอยู่
แก้ไขรัฐทำมะนวย
Friends' blogs
[Add chengake's blog to your web]
Links
 

 Pantip.com | PantipMarket.com | Pantown.com | © 2004 BlogGang.com allrights reserved.