WD2000: Cara pemrograman membuat UserForms dalam Visual Basic untuk aplikasi

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 204330 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Berikut Microsoft Visual Basic for Applications (VBA) prosedur memungkinkan Anda untuk membuat dan memanipulasi UserForm melalui VBA kode. Artikel ini menggambarkan cara menggunakan kode untuk menambahkan kotak teks, kotak centang dan tombol perintah ke bentuk.

INFORMASI LEBIH LANJUT

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

Microsoft Advisory Services- 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

VBA objek

Dalam kode contoh berikut menciptakan UserForm, perubahan sifat-sifatnya, dan menambah kontrol itu.

Untuk objek VBA ini bekerja, Anda harus referensi Microsoft Visual Basic untuk aplikasi Extensibility perpustakaan. Untuk memuat perpustakaan ke proyek VBA saat ini, ikuti langkah berikut:
  1. Tekan ALT+F11 untuk memulai Editor Visual Basic.
  2. Pada Alat menu, klik Referensi.
  3. Klik untuk memilih Microsoft Visual Basic untuk aplikasi Extensibility kotak centang di bawah Referensi yang tersedia, lalu klik Oke.
Model objek VBA di Microsoft Office 2000 menyediakan objek dan metode untuk mengakses proyek Editor Visual Basic dan unsur-unsur mereka. Objek atas untuk mengakses VBA objek adalah VBE objek, yang dapat diakses melalui Aplikasi objek. The VBE objek, pada gilirannya, berisi koleksi VBProject objek.

The VBProject objek, pada gilirannya, berisi VBComponents Koleksi. Kotak dialog, juga disebut UserForms, yang digambarkan sebagai UserForm objek. UserForm objek dan kode modul adalah unsur-unsur VBComponents Koleksi.

Di Microsoft Word untuk Windows 2000, setiap dokumen, serta setiap template, dapat berisi sendiri VBProject objek. Dalam dokumen Word, VBProject objek ini terletak di bawah Dokumen objek.

Proyek-proyek VBE dan komponen

Dalam kode contoh berikut Menampilkan kotak pesan untuk masing-masing komponen dalam proyek aktif. Setiap kotak pesan menampilkan nama komponen.
Sub VbeCompName()
   X = VBE.ActiveVBProject.VBComponents.Count
   For I = 1 To X
      Msgbox VBE.ActiveVBProject.VBComponents(I).Name
   Next I
End Sub
				
Gunakan salah satu subprocedures berikut untuk menampilkan kotak pesan dengan jumlah komponen dalam proyek aktif.
Sub VbeCompName()
   MsgBox Application.VBE.ActiveVBProject.VBComponents.Count
End Sub
				
-atau-
Sub VbeCompName()
    MsgBox ActiveDocument.VBProject.VBComponents.Count
End Sub
				
(Di Microsoft Excel, menggantikan ActiveDocument dengan ActiveWorkbook; di Microsoft PowerPoint, menggantikan ActivePresentation.)

Menciptakan UserForm baru

Dalam kode contoh berikut menciptakan UserForm baru dan menetapkan MyNewForm variabel untuk itu. Anda sekarang dapat menggunakan ini baru VBComponent objek untuk memanipulasi bentuk pengguna.
Sub BuildMyForm()
   Set MyNewForm = _
      VBE.ActiveVBProject.VBComponents.Add(ComponentType:=vbext_ct_MSForm)
End Sub
				

Mengubah nama dan sifat-sifat lainnya dari UserForm

Dalam kode contoh berikut menciptakan UserForm baru dan kemudian berubah nama, keterangan (teks yang ditampilkan di bar judul), tinggi, dan lebar kotak dialog yang baru dibuat.
Sub BuildMyForm()
   Set mynewform = _
      ActiveDocument.VBProject.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

Dalam kode contoh berikut menambahkan kotak centang kontrol untuk UserForm baru dibuat dan menetapkan nama, keterangan, posisi dan ukuran kontrol. Untuk menambahkan kontrol UserForm, Anda harus pertama mengakses Desainer properti objek yang sesuai VBComponent objek. The Perancang objek (dalam hal ini, ToolBox kontrol) adalah objek yang memungkinkan manipulasi dan akses ke kontrol properti.
Sub BuildMyForm()
   Set mynewform = _
      ActiveDocument.VBProject.VBComponents.Add(vbext_ct_MSForm)
      Set myCheckBox = mynewform.Designer.Controls.Add("Forms.CheckBox.1")
      With myCheckBox
         .Name = "Check1"
         .Caption = "Check here"
         .Left = 10
         .Top = 10
         .Height = 20
         .Width = 60
      End With
End Sub
				

REFERENSI

Untuk informasi tambahan, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
226118 OFF2000: Pemrograman sumber daya untuk Visual Basic untuk aplikasi
237356 WD2000: Cara Akses macro sampel untuk Word 2000
212536 OFF2000: Bagaimana untuk menjalankan kode contoh dari artikel Basis Pengetahuan
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Properti

ID Artikel: 204330 - Kajian Terakhir: 19 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Word 2000
Kata kunci: 
kbhowto kbinfo kbmt KB204330 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:204330

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com