Program aracýlýðýyla kaydetmek ve .ocx dosyalarý kaydýný Kaldýr

Üste

Adým adým örnek

1. Yeni bir standart Exe projesi, Visual Basic'te oluþturun.
2. Modül (Module1) projeye ekleyin.
3. Module1 genel Tanýmlamalar bölümüne aþaðýdaki kodu ekleyin:

         Public Declare Function RegComCtl32 Lib "ComCtl32.OCX" _
            Alias "DllRegisterServer" () As Long
   
         Public Declare Function UnRegComCtl32 Lib "ComCtl32.OCX" _
            Alias "DllUnregisterServer" () As Long
   
         Public Const S_OK = &H0
   
         Sub RegisterComCtl32()
            On Error GoTo Err_Registration_Failed
            If RegComCtl32 = S_OK Then
               MsgBox "Registered Successfully"
            Else
               MsgBox "Not Registered"
            End If
         Exit Sub
         Err_Registration_Failed:
            MsgBox "Error: " & Err.Number & " " & Err.Description
         End Sub
   
         Sub UnRegisterComCtl32()
            On Error GoTo Err_Unregistration_Failed
            If UnRegComCtl32 = S_OK Then
               MsgBox "Unregistered Successfully"
            Else
               MsgBox "Not Unregistered"
            End If
         Exit Sub
         Err_Unregistration_Failed:
            MsgBox "Error: " & Err.Number & " " & Err.Description
         End Sub
   
   					

4. Komut penceresi (CTRL + G) ve tür görüntüleyin:
   
   UnRegisterComCtl32
   ComCtl32.OCX dosyasýnýn kaydýný kaldýrýn ve sonra yazýn ENTER tuþuna basýn:
   
   RegisterComCtl32
   ve denetimi kaydetmek için ENTER tuþuna basýn.

• "RegComCtl32" ve "UnRegComCtl32" kullanýcý tanýmlý adlar ve gereksinimlerinize uyacak þekilde deðiþtirilebilir.
• Yukarýdaki adým adým örnek ComCtl32.OCX yerel sabit diske Windows\System klasöründe bulunduðunu varsayar. Yer yoksa, Declare deyiminde .ocx dosyanýn tam yolunu belirtmeniz gerekir.
• "DllRegisterServer" ve "Konumundaki DllUnregisterServer öðesi" büyük/küçük harf duyarlýdýr. Bu iþlevler bildirirken doðru durumda kullanýlmasý önemlidir.

Üste