ActiveX denetimi çalýþtýrma sýrasýnda eklenen lisans hatasý

Davranýþý Yeniden Oluþturma Adýmlarý

1. Aþaðýdaki kodu <a1>program</a1> (.prg) bir dosyaya yapýþtýrýn:

         PUBLIC oform1
         oform1=CREATEOBJECT("form1")
         oform1.Show
         READ EVENTS
         RETURN
   
         DEFINE CLASS form1 AS form
            AutoCenter = .T.
            cNextKey = "1_"
            Name = "Form1"
            Caption = "Treeview Demo Form"
   
            ADD OBJECT cmdExit AS commandbutton WITH ;
               Top = 204, ;
               Left = 276, ;
               Height = 27, ;
               Width = 84, ;
               Caption = "E\<xit"
   
            ADD OBJECT cmdAddLV AS commandbutton WITH ;
               Top = 204, ;
               Left = 10, ;
               Height = 27, ;
               Width = 106, ;
               Caption = "Add Listview"
   
            ADD OBJECT cmdAddLVClass AS commandbutton WITH ;
               Top = 204, ;
               Left = 130, ;
               Height = 27, ;
               Width = 136, ;
               Caption = "Add Listview Subclass"
   
            PROCEDURE Destroy
               CLEAR EVENTS
            ENDPROC
   
            PROCEDURE cmdExit.Click
               thisform.release()
            ENDPROC
   
            PROCEDURE cmdAddLV.Click
   
              * The following AddObject causes the error.
           Thisform.AddObject('Lv1','olecontrol','mscomctllib.listviewctrl.2')
           Thisform.SetLVProps()
   
            ENDPROC
   
            PROCEDURE cmdAddLVClass.Click
               * The following code shows the workaround. The class OC1 is
               * defined in the last 3 lines of this program.
               * Alternanely, you could use an object stored in a Visual Class
               * library (.vcx) file.
   
            Thisform.NewObject('LV1','OC1')
   
               Thisform.SetLVProps()
            ENDPROC
   
            PROCEDURE SetLVProps
               thisform.setall('enabled', .F.,'commandbutton')
               WITH thisform.LV1
                  .visible = .t.
                  .height = 190
                  .left = 75
                  .width = 250
                  .view = 2
                  .listitems.add(,,"List Item 1",,)
                  .listitems.add(,,"List Item 2",,)
               ENDWITH
               thisform.cmdExit.enabled = .t.
               thisform.cmdExit.setfocus()
            ENDPROC
         ENDDEFINE
   
         DEFINE class OC1 as olecontrol
            OleClass = 'mscomctllib.listviewctrl.2'
         ENDDEFINE
   						

2. Program, bir projeye eklemek ve bir yürütülebilir dosya Projeyi derleyin (.exe) dosya. Dosya lvtest.exe adý.
3. TestDir adlý bir dizin oluþturun ve yukarýdaki adým 2'den yürütülebilir dosyanýn bir kopyasý dizinde bir araya getirin.
4. Visual FoxPro Kur Sihirbazý'ný çalýþtýrýn.
5. Kur Sihirbazý iletiþim kutusunda, "Adým 1 dosyalarýný Konumlandýr" liste kutusunda görüntülenir. Daðýtým dosyalarýný</a1> metin kutusuna, oluþturduðunuz dizin adým 3, Seç'i týklatýn ve sonra Next'i (ileri) týklatýn TestDir seçin.
6. Kur Sihirbazý iletiþim kutusunda, "Adým 2 belirleme Components" metin kutusunda görüntülenir. Uygulama bileþenlerini seçenek grubunda "Visual FoxPro çal??ma zaman?" onay kutusunu seçin.
7. Sonra ActiveX denetimlerinin onay kutusunu seçin. Eklenti, ActiveX denetimleri iletiþim kutusu görüntülenir.
8. "Yüklemek için ActiveX denetimlerini seçin" liste kutusundan gidin, "Microsoft ListView denetimi, sürüm 6.0"'ý seçin, sonra da ileri'yi týklatýn veya iletiþim kutusundan çýkmak için Kapat düðmesini týklatýn.
9. Kur Sihirbazý "Adým 3 disk görüntüsü dizin oluþtur" adýmýnda seçin veya disk görüntü oluþturmak için kullanýn ve sonra Next'i (ileri) týklatýn, istediðiniz dizinin adýný yazýn.
10. "Adým 4 Specify Kurulum Seçenekleri", Kur Sihirbazý iletiþim kutusunun "ListView sýnama uygulamasý" "Kur iletiþim kutusunu baþlýk" metin kutusuna yazýn... "Yok" Telif hakký bilgileri metin kutusuna yazýn ve sonra Next'i (ileri) týklatýn.
    
    Not: her durumda, metin týrnak iþaretleri olmadan) yazýn.
11. Kur Sihirbazý, "Adým 5 Specify varsayýlan hedef" adýmda iletiþim kutusunda, Next'i (ileri) týklatýn.
12. Kur Sihirbazý'nda "Adým 6 dosya ayarlarýný deðiþtir" metin kutusunda PM madde onay kutusunu Lvtest.exe yanýndaki kýlavuzundaki iletiþim kutusunda seçin (yürütülebilir dosya adý).
13. "Program grubu menü öðesi" iletiþim kutusunda, <a0>komut satýrýnda "% s\lvtest.exe" ve açýklama metin kutusuna yazýn "ListView sýnama uygulamasý" metin kutusu.
    
    Not Týrnak iþaretlerini atlarsanýz.
    
    Program grubu menü maddesi iletiþim kutusunu kapatmak için ileri'yi týklatýn ve Kur Sihirbazý'ný çalýþtýran tamamlamak için Son'u týklatýn, Tamam'ý týklatýn.
14. "Kurulum Sihirbazý disketi istatistikleri" iletiþim kutusunda, Bitti'yi týklatýn.
15. Daðýtým dosyalarýný "Adým 3 - oluþtur disk görüntü dizin içinde" listelenen dizininin bir alt olacaktýr. Alt disk144 olarak adlandýrýlýr. Disketleri için disk 1, Disk2 Disk3 ve Disk4 dizinlerinin içeriðini kopyalayarak oluþturduðunuz daðýtým yükleyin ve ilk disketi Kur.exe programýný çalýþtýrýn. Kurulumu çalýþtýrmak için bir að üzerinden daðýtým içeren bilgisayara baðlanabilirsiniz. Visual FoxPro 6.0 yüklü olmadýðý bir bilgisayara yükleme olmasý veya Visual Studio 6.0 yüklü.
16. Windows görev çubuðundan <a1>Yükleme</a1> bilgisayarda Baþlat'ý seçin, Programlar'ýn üzerine gelin ve sonra Visual FoxPro uygulamalar için iþaretleyin. ListView sýnama uygulama program öðesini týklatýn.
17. Uygulama baþlatýldýðýnda, liste görünümü Ekle düðmesini týklatýn. "Belirtiler" bölümünde listelenen benzeyen bir hata oluþur.
18. Iptal'I seçin ve adým 16 yineleyin. Bu süre, liste görünümü Ekle'yi týklatýn. alt sýnýf düðmesini ve bir hata deðil oluþur.

1. Aþaðýdaki komut penceresinde yazýn:

         CREATE CLASS
   								

2. Yeni sýnýf iletiþim kutusunda, bir sýnýf adýný yazýn. OC1, önceki örnekteki ile tutarlý olmasý için kullanabilirsiniz.
3. OleControl temel alýnan liste kutusunda seçin.
4. Saklanacaðý yer metin kutusuna .vcx sýnýfý depolanacaðý dosyanýn adýný yazýn veya elipsin tuþuna bastýktan sonra varolan bir .vcx dosyasýný seçin [...] düðmesi. OCTest Bu örnek amacýyla kullanýn.
5. Sýnýfý oluþturmak için Tamam düðmesini týklatýn.
6. Nesne Ekle iletiþim kutusunda, <a0>Denetim Oluþtur</a0> seçenek düðmesini seçin. Nesne türü listesinde, kullanmak istediðiniz ActiveX denetimi seçin. Önceki örnekte ile tutarlý olmasý için "Microsoft ListView denetimi, sürüm 6.0" seçin ve Tamam'ý týklatýn. Yeni sýnýf sýnýfý Tasarýmcýda görüntüler. Sýnýf þimdi kaydetmek.
7. Nesnesinin bir kopyas?n? çalýþma zamanýnda önceki örnekte aþaðýdaki kodu ekleyin:

         Thisform.NewObject('LV1','OC1', 'OCTest.vcx')
   								

Üste