Lisensi kesalahan dengan kontrol ActiveX yang ditambahkan pada saat run-time

Langkah-langkah mereproduksi perilaku

1. Paste kode berikut ke file program (.prg):

         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. Menambahkan program untuk sebuah proyek dan membangun proyek ke executable berkas (.exe). Nama berkas lvtest.exe.
3. Membuat sebuah direktori yang disebut TestDir dan menempatkan salinan executable file dari 2 langkah sebelumnya ke dalam direktori.
4. Menjalankan Wisaya penataan Visual FoxPro.
5. Di kotak dialog Wisaya penataan, "Langkah 1 Cari file" ditampilkan dalam daftar kotak. Dalam kotak teks file distribusi pilih TestDir direktori yang Anda buat di langkah 3, klik Pilih dan kemudian klik berikutnya.
6. Di kotak dialog Wisaya penataan, "Langkah 2 menentukan komponen" adalah ditampilkan di kotak teks. Dalam grup opsi aplikasi komponen, Pilih kotak centang "Visual FoxPro runtime".
7. Selanjutnya, pilih kotak centang kontrol ActiveX. Tambahkan Kontrol ActiveX kotak dialog muncul.
8. Menggulir melalui "Pilih kontrol ActiveX untuk menginstal" kotak daftar, pilih "Microsoft ListView kontrol, versi 6.0", klik tombol Tutup untuk keluar dari kotak dialog dan kemudian klik berikutnya.
9. Dalam langkah "Langkah 3 membuat Disk gambar direktori" Setup Wizard, Pilih atau ketik nama direktori yang Anda ingin menggunakan untuk penciptaan disk gambar Anda, dan kemudian klik berikutnya.
10. Dalam "Langkah 4 menentukan pilihan persediaan", kotak dialog Setup Wizard, Ketik "ListView tes App" dalam kotak teks "Caption kotak dialog Setup" dan Ketik "Tidak ada" dalam kotak teks informasi hak cipta dan kemudian klik berikutnya.
    
    Catatan: Dalam setiap kasus, ketik teks tanpa tanda kutip.
11. Dalam langkah "Langkah 5 menentukan Default tujuan" Setup Wizard kotak dialog, klik Next.
12. Dalam kotak teks "Langkah 6 perubahan pengaturan File", di Wisaya penataan kotak dialog, pilih kotak centang PM Item di kotak sebelah Lvtest.exe (nama file eksekusi).
13. Di kotak dialog "Program kelompok Menu Item", ketik "ListView tes App" dalam kotak teks deskripsi, dan "% s\lvtest.exe" di baris perintah kotak teks.
    
    Catatan Menghilangkan tanda kutip.
    
    Klik OK untuk menutup kotak Dialog Item Program kelompok Menu, klik Next dan kemudian klik selesai untuk menyelesaikan menjalankan Wisaya penataan.
14. Di kotak dialog "Setup Wizard Disk statistik", klik selesai.
15. Berkas distribusi yang akan di sebuah subdirektori direktori Anda tercantum dalam "Langkah 3 - membuat gambar Direktori Disk". Subdirektori adalah bernama disk144. Anda dapat menginstal distribusi Anda telah dibuat oleh menyalin isi direktori Disk1, Disk2, Disk3 dan Disk4 untuk disket dan kemudian jalankan Setup.exe program dari disket pertama. Anda juga dapat menghubungkan ke komputer yang berisi distribusi melalui jaringan untuk menjalankan setup. Instalasi harus pada komputer yang tidak sudah memiliki Visual FoxPro 6.0 atau Visual Studio 6.0 diinstal.
16. Pada komputer instalasi, dari Windows Taskbar, pilih awal, Arahkan ke program, dan kemudian menunjuk Visual FoxPro aplikasi. Klik item program ListView tes App.
17. Ketika aplikasi dimulai, klik tombol Tambahkan Listview. Kesalahan itu sama dengan salah satu yang tercantum dalam "Gejala" bagian terjadi.
18. Pilih Batal, dan ulangi langkah 16. Saat ini, klik Tambahkan Listview Subkelas tombol, dan kesalahan tidak terjadi.

1. Ketik berikut dalam jendela perintah:

         CREATE CLASS
   								

2. Di kotak dialog kelas baru, ketik nama kelas. Anda dapat menggunakan OC1 untuk menjadi konsisten dengan contoh sebelumnya.
3. Pilih OleControl di didasarkan pada daftar kotak.
4. Di toko di kotak teks, ketik nama file .vcx di mana untuk menyimpan kelas, atau pilih file .vcx yang ada Setelah menekan elips [...] tombol. Gunakan OCTest untuk keperluan contoh ini.
5. Klik tombol OK untuk membuat kelas.
6. Di kotak dialog Masukkan objek, pilih opsi membuat kontrol tombol. Dari daftar jenis objek, pilih kontrol ActiveX yang Anda inginkan untuk menggunakan. Agar konsisten dengan contoh sebelumnya, pilih "Microsoft ListView Control, versi 6.0" dan kemudian klik OK. Baru kelas menampilkan desainer kelas. Anda sekarang dapat menyimpan kelas.
7. Kode berikut akan menambahkan sebuah instance objek pada saat run-time di contoh sebelumnya:

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

Kembali ke atas