Bagaimana memanipulasi pemrograman UserForm

ID Artikel: 185774 - Melihat produk di mana artikel ini berlaku.
Penerjemahan MesinPeringatan: artikel ini adalah terjemahan oleh mesin
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Model objek pemrograman di Microsoft Office 97 untuk Windows memungkinkan Anda untuk membuat kotak dialog kustom (UserForm) dengan menggunakan Microsoft Visual Basic untuk aplikasi makro.

Artikel ini berisi sampel kode Visual Basic yang menciptakan dan memanipulasi kotak dialog kustom oleh menggunakan model objek pemrograman.
Kembali ke atas | Berikan Masukan

INFORMASI LEBIH LANJUT

Visual Basic objek dalam Microsoft Office 97 menyediakan objek dan metode yang Anda perlu untuk mengakses Visual Basic proyek dan mereka unsur-unsur. Objek top-level yang mengendalikan objek Visual Basic adalah VBE objek. Objek VBE adalah akar objek yang berisi semua objek lain dan koleksi yang diwakili dalam Visual Basic untuk aplikasi. Anda dapat mengontrol objek VBE melalui objek aplikasi. Objek VBE berisi VBProject koleksi, yang mewakili semua proyek yang terbuka di lingkungan pengembangan.

Setiap dokumen juga berisi sendiri VBProject objek, yang terletak di bawah dokumen atau buku kerja objek.

Objek VBProject berisi koleksi VBComponents. Dialog kotak, juga disebut UserForms, diwakili sebagai UserForm objek. UserForm objek dan kode modul adalah unsur-unsur koleksi VBComponents.

Microsoft Visual Basic untuk perpustakaan objek aplikasi Extensibility

Untuk kode Visual Basic berikut ini dalam artikel ini untuk fungsi, pertama memuat objek "Microsoft Visual Basic untuk aplikasi Extensibility" perpustakaan dalam proyek. Contoh ini menggunakan Microsoft Excel, tetapi langkah-langkah serupa untuk salah satu program Microsoft Office. Untuk menambahkan referensi ke "Microsoft Visual Basic untuk aplikasi diperpanjang" perpustakaan untuk Anda proyek, ikuti langkah berikut:

  1. Mulai Microsoft Excel dan buat buku kerja baru.
  2. Tekan ALT + F11 untuk membuka Editor Visual Basic.
  3. Jika proyek jendela tidak terlihat, klik proyek Explorer pada menu tampilan.
  4. Di jendela proyek, klik "VBAProject (Book1)."

    Perhatikan bahwa nama buku kerja dapat bervariasi.
  5. Pada Insert menu, klik modul.

    Langkah ini menambahkan modul dalam proyek Book1.
  6. Pada menu alat, klik referensi.
  7. Dalam referensi yang tersedia, klik "Microsoft Visual Basic untuk aplikasi diperpanjang"dan klik OK.
Setelah Anda melakukan langkah-langkah ini, Anda dapat mengetik Visual Basic kode yang muncul dalam artikel ini pada modul baru dan kemudian menjalankan makro.

Untuk informasi tambahan, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
173707
(http://support.microsoft.com/kb/173707/ )
OFF97: Bagaimana untuk menjalankan kode contoh dari artikel Basis Pengetahuan

Makro untuk menghitung jumlah komponen Visual Basic

Microsoft menyediakan pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat, termasuk, namun tidak terbatas pada, jaminan tersirat mengenai keadaan yang dapat diperjualbelikan dan/atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah familiar dengan bahasa pemrograman yang ditunjukkan dan alat-alat yang digunakan untuk membuat dan memperbaiki prosedur. Profesional dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, tetapi mereka tidak akan mengubah contoh tersebut untuk menyediakan fungsionalitas tambahan atau membuat prosedur untuk memenuhi kebutuhan spesifik Anda.
Jika Anda memiliki terbatas pengalaman pemrograman, Anda mungkin ingin menghubungi Microsoft Certified Partner atau Microsoft Advisory Services. Untuk informasi lebih lanjut, kunjungi situs Web Microsoft ini:

Microsoft Certified Partner- https://Partner.Microsoft.com/global/30000104
(https://partner.microsoft.com/global/30000104)


Microsoft Advisory Services- http://support.Microsoft.com/GP/advisoryservice
(http://support.microsoft.com/gp/advisoryservice)


Untuk informasi lebih lanjut tentang opsi dukungan yang tersedia dan tentang cara menghubungi Microsoft, kunjungi Website Microsoft berikut:http://support.Microsoft.com/default.aspx?scid=Fh;EN-US;CNTACTMS
(http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS)
Untuk kembali jumlah semua modul, kelas modul, dan UserForms dalam proyek aktif dalam kotak pesan, ketik kode berikut dalam modul baru: 
     Sub Count_VBComponents1()

      MsgBox Application.VBE.ActiveVBProject.VBComponents.Count

   End Sub
Atau gunakan kode berikut: 
    Sub Count_VBComponents2()

      ' Replace "ActiveWorkbook" with "ActiveDocument" for Microsoft Word
      ' or "ActivePresentation" for Microsoft PowerPoint.
      MsgBox ActiveWorkbook.VBProject.VBComponents.Count

   End Sub

Menciptakan UserForm baru

Untuk membuat UserForm baru, menggunakan metode Add VBComponents Koleksi dan menentukan vbext_ct_MSDForm. Sebagai contoh, ketik kode berikut dalam modul baru: 
      Sub Add_Form1()

      ' Declare a variable to hold the UserForm.
      Dim x As Object

      ' Create a new UserForm. You can use this new VBComponent object
      ' to manipulate the User Form.
          Set x = Application.VBE.ActiveVBProject.VBComponents.Add _
          (vbext_ct_MSForm)

   End Sub

Mengubah nama dan sifat-sifat lainnya dari UserForm

Untuk mengubah nama UserForm, Ubah nilai namanya properti. Untuk mengubah nama properti lainnya (misalnya, judul, tinggi, atau lebar), mengubah mereka melalui koleksi properti VBComponent objek. Contoh berikut menciptakan UserForm baru dan kemudian berubah nama, Keterangan (teks yang muncul di bar judul), tinggi, dan lebar baru kotak dialog dibuat: 
  Sub Add_Form2()

      ' Declare a variable to hold the UserForm.
      Dim mynewform As Object

      ' Create a new UserForm. You can now use this new VBComponent object
      ' to manipulate the User Form.
      Set mynewform = _
      Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_MSForm)

      With mynewform
         .Properties("Height") = 246
         .Properties("Width") = 616
         .Name = "HelloWord"
         .Properties("Caption") = "This is a test"
      End With

   End Sub

Menambahkan kontrol untuk UserForm

Untuk menambahkan kontrol baru UserForm, pertama kali menggunakan objek desainer dari objek VBComponent yang sesuai. Desainer objek memungkinkan Anda untuk memanipulasi desain UserForm. Objek desainer berisi kontrol Koleksi. Untuk menambahkan kontrol baru, menambahkannya ke koleksi kontrol. Contoh berikut menambahkan sebuah kotak centang kontrol untuk a baru dibuat UserForm dan menetapkan nama, keterangan, posisi dan ukuran kontrol: 
   Sub Add_Control()

      ' Declare variables.
      Dim mynewform As Object
      Dim mycheckbox As Object

      ' Create a new UserForm. You can use this new VBComponent object
      ' to manipulate the UserForm.
      Set mynewform = _
        Application.VBE.ActiveVBProject.VBComponents.Add (vbext_ct_MSForm)

      ' Add a checkbox to the new UserForm.
      Set myCheckBox = mynewform.Designer.Controls.Add("Forms.CheckBox.1")

      ' With the new checkbox...
      With myCheckBox
         .Name = "Check1"
         .Caption = "Check here"
         .Left = 10
         .Top = 10
         .Height = 20
         .Width = 60
      End With

   End Sub
Untuk informasi tambahan, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
157319
(http://support.microsoft.com/kb/157319/ )
Xl97 Revisi teknis: Masalah ketika Anda menggunakan makro untuk menambahkan kontrol UserForm
Kembali ke atas | Berikan Masukan

REFERENSI

Untuk informasi tambahan tentang mendapatkan bantuan dengan Visual Basic untuk aplikasi, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
163435
(http://support.microsoft.com/kb/163435/ )
VBA: Pemrograman sumber daya untuk Visual Basic untuk aplikasi
Kembali ke atas | Berikan Masukan

Properti

ID Artikel: 185774 - Kajian Terakhir: 16 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Excel 97 Standard Edition
  • Microsoft Word 97 Standard Edition
  • Microsoft PowerPoint 97 Standard Edition
Kata kunci: 
kbdtacode kbhowto kbmt KB185774 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:185774
(http://support.microsoft.com/kb/185774/en-us/ )
Kembali ke atas | Berikan Masukan

Berikan Masukan

 
Kembali ke atasKembali ke atas