Cara menetapkan fokus pada kontrol ketika bentuk beban di Visual Basic .NET atau Visual Basic 2005

Cara menetapkan fokus pada kontrol ketika bentuk beban di Visual Basic .NET atau Visual Basic 2005



Ringkasan

Artikel ini menjelaskan cara menetapkan fokus pada kontrol saat memuat bentuk. Artikel ini menjelaskan cara menggunakan properti Form.ActiveControl , bagaimana cara menggunakan metode Control.Focus dan cara menggunakan metode Control.Select untuk menetapkan fokus pada kontrol.

Properti Form.ActiveControl mengembalikan kontrol aktif atau menetapkan kontrol aktif di borang. Ketika
ActiveControl properti formulir disetel ke control di borang, fokus pindah ke control.

Metode Control.Select mengaktifkan kontrol tertentu dan menetapkan fokus pada kontrol.

Metode Control.Focus menetapkan fokus masukan ke control. Kontrol dapat menerima fokus masukan dengan menggunakan metode Control.Focus jika kondisi berikut benar:
  • Sedikit gaya ControlStyles.Selectable kontrol diatur ke
    Benar.
  • Kontrol yang akan menerima fokus yang terkandung dalam kontrol lainnya, dan semua kontrol orang tua terlihat dan diaktifkan.
Catatan Anda dapat menggunakan metode Control.Focus untuk menetapkan fokus pada kontrol dalam acara beban bentuk saat properti terlihat bentuk diatur ke True.

kembali ke atas

Persyaratan

Artikel ini mengasumsikan bahwa Anda sudah terbiasa dengan topik berikut ini:
  • Sintaks Microsoft Visual Basic
  • Microsoft Visual Studio .NET atau Microsoft Visual Studio 2005 lingkungan
  • Kontrol Microsoft Visual Basic
kembali ke atas

Properti Form.ActiveControl

Contoh berikut ini menjelaskan cara menggunakan properti ActiveControl Form2 untuk menetapkan fokus pada kontrol teks dengan teks tidak ada:
  1. Mulai Visual Studio .NET atau Visual Studio 2005.
  2. Pada File menu, arahkan ke
    Baru, dan kemudian klik Project.
  3. Pada Jenis proyek, klik
    Proyek Visual Basic.

    Catatan Dalam Visual Studio 2005 klik Visual Basic pada Jenis proyek.
  4. Pola dasar, klik
    Aplikasi Windows, dan kemudian klik OK.

    Secara default, Form1 dibuat.
  5. Tambahkan
    Tombol kontrol untuk Form1.
  6. Klik kanan Button1, dan kemudian klik
    Properti.
  7. Di kotak dialog properti , tetapkan
    Properti teks untuk Menetapkan fokus.
  8. Pada Project menu, klik Add Windows formulir, dan kemudian klik buka.

    Secara default, Form2 dibuat.
  9. Menambahkan tiga
    Teks kontrol untuk Form2.
  10. Menambahkan tiga Label kontrol Form2.

    Catatan Meletakkan setiap Label kontrol di sebelah kiri kotak teks kontrol.
  11. Di kotak dialog properti , tetapkan
    Properti teks Label1 untuk
    Nama, tetapkan properti teks Label2 perusahaan, dan kemudian tetapkan properti teks Label3 ke ContactNo.
  12. Di kotak dialog properti , Hapus teks di properti teks TextBox1, Hapus teks di properti teks TextBox2, dan kemudian Hapus teks di properti teks TextBox3.
  13. Tambahkan kode berikut untuk
    Penanganan kejadian Button1_Click pada Form1:
    'Create an instance of Form2.
    Dim MyForm As New Form2()
    'Set the Text in the TextBoxes on Form2.
    MyForm.TextBox1.Text = "John"
    MyForm.TextBox3.Text = "123456"
    'Display the form.
    MyForm.Show()
  14. Tambahkan kode berikut untuk penanganan kejadian Form2_Load:
    Dim i As Integer
    For i = 0 To 5
      If  Me.Controls(i).Name Is "TextBox1" Or Me.Controls(i).Name Is "TextBox2" Or Me.Controls(i).Name Is "TextBox3" Then
          'Find the TextBox for which Text is not set.
          If Me.Controls(i).Text = "" Then
               'Set the focus on the control without any text.
               Me.ActiveControl = Me.Controls(i)
          End If
      End If
    Next
  15. Membangun menu, klik Membangun solusi.
  16. Pada Debug menu, klik
    Mulai.
  17. Klik menetapkan fokus.

    Fokus diatur ke control teks dengan teks tidak ada.
kembali ke atas

Metode Control.Select

Contoh berikut ini menjelaskan cara menemukan kontrol teks dengan teks tidak ada di Form2, dan kemudian menjelaskan bagaimana cara menggunakan metode Control.Select untuk menetapkan fokus kontrol:
  1. Ganti pernyataan berikut dalam penanganan kejadian Form2_Load
    Me.ActiveControl = Me.Controls(i)
    dengan pernyataan berikut ini:
     Me.Controls(i).Select()
  2. Membangun menu, klik Membangun solusi.
  3. Pada Debug menu, klik
    Mulai.
  4. Klik menetapkan fokus.

    Fokus diatur ke control teks dengan teks tidak ada.
kembali ke atas

Metode Control.Focus

Contoh berikut ini menjelaskan cara menemukan kontrol teks dengan teks tidak ada di Form2, menjelaskan tentang cara menetapkan properti terlihat Form2 ke True, dan kemudian menjelaskan tentang cara menetapkan fokus pada kontrol dengan menggunakan metode fokus kontrol:
  1. Ganti kode yang ada dalam penanganan kejadian Form2_Loaddengan kode berikut:
    'Set the visible property of the form to true, 
    'and then set the focus to the control.
    Me.Visible = True
    Dim i As Integer
    For i = 0 To 5
      If Me.Controls(i).Name Is "TextBox1" Or Me.Controls(i).Name Is "TextBox2" Or Me.Controls(i).Name Is "TextBox3" Then
          'Find the TextBox for which Text is not set.
          If Me.Controls(i).Text = "" Then
              'Set the focus on the control with no text.
              Me.Controls(i).Focus()
          End If
      End If
    Next
  2. Membangun menu, klik Membangun solusi.
  3. Pada Debug menu, klik
    Mulai.
  4. Klik menetapkan fokus.

    Fokus diatur ke control teks dengan teks tidak ada.
kembali ke atas

Memecahkan masalah

  • Hapus teks apa pun di kotak teks kontrol pada Form2 sebelum Anda menjalankan aplikasi.
  • Anda dapat menggunakan metode Control.Focus dalam acara beban bentuk untuk menetapkan fokus pada kontrol hanya setelah properti terlihat bentuk diatur ke True.
kembali ke atas

Referensi

Untuk informasi selengkapnya, kunjungi situs Web Microsoft Developer Network (MSDN) berikut: kembali ke atas
Previous
Next Post »
Thanks for your comment