Windows 8' de İmagelist custom açma sorunu

[Ziynettin]

Merhaba,

Userform üzerinde imagelist seçili iken properties özelliklerinden custom'u seçtiğimde aşağıdaki hatayı alıyorum.

Class not registered
Looking for object with
CLSID7EBDAAE1-8120-11CF-899F-00AA00688B10)

Kullandığım version office 2007. Windows 7 de sorunsuz, Windows8 hata mesajı veriyor. Yardımlarınız için şimdiden teşekkür ederim.

 

[Ziynettin]

Arkadaşlar ekli dosyada userform1 üzerinde imagelist1 seçili iken properties penceresinden custom özelliğini seçtiğimde hata alıyorum. Windows 8 kullananlar ekli dosyada hata sizlerdede oluyormu, yoksa benden kaynaklanan durum mu?

 

[Ziynettin]

Windows 7 de çalışan Windows 8 de #1 nolu mesajdaki hatayı veriyor. Sebeb ne olabilir arkadaşlar.

 

[Levent Menteşoğlu]

Aynı sorunu dün bende yaşadım. Çözüm ararken bizim forumda da bu başlığı farkettim ve bu sorunun yanıtsız kaldığını gördüm. Bulduğum çözümü aşağıda paylaşıyorum. Aynı sorunu yaşayan üyelerimize de faydası olacaktır.

Öncelikle ekte gönderdiğim MSSTKPRP.DLL dosyasını system32 klasörüne kopyalayın (dosyayı aşağıdaki linktende indirebilirsiniz). Daha sonra bu dosyayı aşağıdaki komut ile yada regsvr32.exe dosyası üzerine fare ile sürükleyerek kayıt edin. Böylece bu hata ile ilgili sorun ortadan kalkacaktır.

Regsvr32 "C:\Windows\System32\Msstkprp.dll"

İlgili dosyanın indirilebileceği link:

http://www.dlldump.com/download-dll-files_new.php/dllfiles/M/MSSTKPRP.DLL/6.00.81694/download.html

Konunun çözümüne yönelik bilgi aldığım link:

http://social.msdn.microsoft.com/Forums/en-US/c89aca63-25d7-43b9-bc14-6bf3e1cb440e/excel-vba-listview-clicking-custom-property-generates-class-not-registered-error?forum=isvvba

 

[Ziynettin]

Çok teşekkür ederim. Faydalı paylaşımınız için. Sorun sayenizde giderildi.

 

[Orion1]

Merhaba.
bendede clsid sorunu devam ediyor.verdiğiniz dosyayı yükledim.Ama zaten varmış bende o dosya.
Propertiesten listviewin costum sçeneğini seçtiğimde ayni hatayı veriyor.
windows 7 tr 64 bit
ofis 2010 tr 32 bit kullanıyorum.

 

[Zeki Gürsoy]

32 bit office' in alabileceği ref. dll leri 32 bit regsvr olan "c:\windows\syswow64\regsvr32.exe" ile kaydedilmesi gerekir.

64 bit dll' i zaten 32 bit office ile kullanamayacaksınız..

 

[Orion1]

32 bit office' in alabileceği ref. dll leri 32 bit regsvr olan "c:\windows\syswow64\regsvr32.exe" ile kaydedilmesi gerekir.

64 bit dll' i zaten 32 bit office ile kullanamayacaksınız..

syswow64 teki regsvr kullandım.
regedit başarı ile kuruldu diyor ancak vbe de costum özelliğini açınca yine hatayı veriyor.

 

[Orion1]

Zeki bey teamviver ile bağlanıp bakabilirmisiniz benim pc ye,

 

[Levent Menteşoğlu]

Merhaba.
bendede clsid sorunu devam ediyor.verdiğiniz dosyayı yükledim.Ama zaten varmış bende o dosya.
Propertiesten listviewin costum sçeneğini seçtiğimde ayni hatayı veriyor.
windows 7 tr 64 bit
ofis 2010 tr 32 bit kullanıyorum.

MSCOMCTL.OCX dosyanızın versiyonu nedir? Versiyon ile âlâkalı bir durum olabilir. Bendeki 6.1.98.18, sizdeki farklı ise buraya ekleyeyim. Bu dosyayı deneyin. Birde sizde hata veren CLSID değeri aşağıdaki ile aynımıdır?

CLSID:{7EBDAAE1-8120-11CF-899F-00AA00688B10}

 

[Murat OSMA]

Daha önce sitede verildi mi bilmiyorum ama bilgi amaçlı olarak Activex Nesnelerinin CLSID Değerlerini öğrenmek için bu kodlar kullanılabilir;

Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_LOCAL_MACHINE = &H80000002

Sub Listele()
    Dim strComputer As String, strKeyPath As String, _
    strCompName As String, strAltClsId As String, strValue As String
    Dim arrSubKeys As Variant, subkey As Variant, oReg As Object, satır As Long

    Application.Cursor = xlWait
    Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & "." & "\root\default:StdRegProv")
    strKeyPath = "SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility"
    oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
    Cells.Clear
    Cells(1, 1) = "CLSID"
    Cells(1, 2) = "Component"
    Cells(1, 3) = "Path"
    Cells(1, 4) = "AlternateCLSID"
    Cells(1, 5) = "Component"
    Cells(1, 6) = "Path"
    Cells(1, 7) = "AlternateCLSID"
    Cells(1, 8) = "Component"
    Cells(1, 9) = "Path"
    Cells(1, 10) = "AlternateCLSID"
    satır = 2
    On Error Resume Next
    For Each subkey In arrSubKeys
    strCompName = vbNullString
    strValue = vbNullString
    oReg.GetStringValue HKEY_CLASSES_ROOT, "CLSID\" & subkey, "", strCompName
    oReg.GetStringValue HKEY_CLASSES_ROOT, "CLSID\" & subkey & "\InprocServer32", "", strValue
    If (strCompName = "") Then GoTo NextSubKey
    Range("A" & satır).Value = subkey
    Range("B" & satır).Value = strCompName
    Range("C" & satır).Value = strValue
    strAltClsId = vbNullString
    oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey, "AlternateCLSID", strAltClsId
    If (strAltClsId = "") Then GoTo NextValue
    Range("D" & satır).Value = strAltClsId
    strCompName = vbNullString
    oReg.GetStringValue HKEY_CLASSES_ROOT, "CLSID\" & strAltClsId, "", strCompName
    oReg.GetStringValue HKEY_CLASSES_ROOT, "CLSID\" & strAltClsId & "\InprocServer32", "", strValue
    If (strCompName = "") Then GoTo NextValue
    Range("E" & satır).Value = strCompName
    Range("F" & satır).Value = strValue
    strValue = vbNullString
    oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & "\" & strAltClsId, "AlternateCLSID", strValue
    If (strValue = "") Then GoTo NextValue
    Range("G" & satır).Value = strValue
    strAltClsId = strValue
    strCompName = vbNullString
    strValue = vbNullString
    oReg.GetStringValue HKEY_CLASSES_ROOT, "CLSID\" & strAltClsId, "", strCompName
    oReg.GetStringValue HKEY_CLASSES_ROOT, "CLSID\" & strAltClsId & "\InprocServer32", "", strValue
    If (strCompName = "") Then GoTo NextValue
    Range("H" & satır).Value = strCompName
    Range("I" & satır).Value = strValue
    strValue = vbNullString
    oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & "\" & strAltClsId, "AlternateCLSID", strValue
    If (strValue = "") Then GoTo NextValue
    Range("J" & satır).Value = strValue
NextValue:
    satır = satır + 1
NextSubKey:
Next
Range("A1").Sort Header:=xlYes, Key1:=Columns("C"), Order1:=1, Key2:=Columns("B"), Order2:=1
Columns.AutoFit
Application.Cursor = xlDefault
End Sub

 

[Orion1]

MSCOMCTL.OCX dosyanızın versiyonu nedir? Versiyon ile âlâkalı bir durum olabilir. Bendeki 6.1.98.18, sizdeki farklı ise buraya ekleyeyim. Bu dosyayı deneyin. Birde sizde hata veren CLSID değeri aşağıdaki ile aynımıdır?

CLSID:{7EBDAAE1-8120-11CF-899F-00AA00688B10}

Levent bey,clsid değeri sizinki ile ayni.
ama sürüm 6.1.98.34, bu ocx sysywow64 dizinindeki mscomcl.ocx.Yani listviewin ocx i
Teşekkür ederim.

 

[Orion1]

Merhaba.
referencede microsoft windows common controls 6.0 (SP6) seçili gözüküyor.
referencede listview yok.listview için yukarıdaki kontrolu kullanıyor.
Oda mscomctl.ocx i kullanıyor.

 

[Orion1]

Murat bey kodlar için teşekkür ederim.
Bir gün işime yarar elbet.arşivime aldım.

 

[Murat OSMA]

Rica ederim Evren Bey..

İyi haftalar...

 

[Tolun]

Herkese saygılarımı sunarım.excel web.tr ye sonsuz teşekkürlerimi sunarım.Bir çok sorunumu sayenizde çözerek programımda çok iyi bir noktaya geldim.Ben yukarda belirtilen sorunu şu şekilde yine yukarda belirtilen yöntemlerle çözdüm.MSSTKPRP.dll dosyası System32 veya wow64 de olsa da register yapmadıkça customdan açma işlemi olmuyor.Windows klasöründe regsvr32 üzerine taşınması durumunda register işlemi başarı ile gerçekleşmiş görünse de custom açılamıyor.Program ve dosyaları ara kısmına CMD yazılarak üstte görülen CMD ye mausun sağı ile tıklanarak yönetici olarak çalıştır dedikten sonra çıkan kod satırına regsvr32 c:\windows\system32(veya SysWOW64)\MSSTKPRP.dll yazarak enter tuşuna basılınca register işlemi başarıyla gerçekleşiyor ve custom açılabiliyor.Saygılarımla.
Version numarası 6.0.81.69 dır.

 

[Cengizhantr06]

Herkese saygılarımı sunarım.excel web.tr ye sonsuz teşekkürlerimi sunarım.Bir çok sorunumu sayenizde çözerek programımda çok iyi bir noktaya geldim.Ben yukarda belirtilen sorunu şu şekilde yine yukarda belirtilen yöntemlerle çözdüm.MSSTKPRP.dll dosyası System32 veya wow64 de olsa da register yapmadıkça customdan açma işlemi olmuyor.Windows klasöründe regsvr32 üzerine taşınması durumunda register işlemi başarı ile gerçekleşmiş görünse de custom açılamıyor.Program ve dosyaları ara kısmına CMD yazılarak üstte görülen CMD ye mausun sağı ile tıklanarak yönetici olarak çalıştır dedikten sonra çıkan kod satırına regsvr32 c:\windows\system32(veya SysWOW64)\MSSTKPRP.dll yazarak enter tuşuna basılınca register işlemi başarıyla gerçekleşiyor ve custom açılabiliyor.Saygılarımla.
Version numarası 6.0.81.69 dır.

Tşk ederim bu sayede çözdüm sorunu