Sử dụng mũi tên lên và xuống phím mũi tên để di chuyển tiêu điểm

QUAN TRỌNG: Bài viết này được dịch bằng phần mềm dịch máy của Microsoft chứ không phải do con người dịch. Microsoft cung cấp các bài viết do con người dịch và cả các bài viết do máy dịch để bạn có thể truy cập vào tất cả các bài viết trong Cơ sở Kiến thức của chúng tôi bằng ngôn ngữ của bạn. Tuy nhiên, bài viết do máy dịch không phải lúc nào cũng hoàn hảo. Loại bài viết này có thể chứa các sai sót về từ vựng, cú pháp hoặc ngữ pháp, giống như một người nước ngoài có thể mắc sai sót khi nói ngôn ngữ của bạn. Microsoft không chịu trách nhiệm về bất kỳ sự thiếu chính xác, sai sót hoặc thiệt hại nào do việc dịch sai nội dung hoặc do hoạt động sử dụng của khách hàng gây ra. Microsoft cũng thường xuyên cập nhật phần mềm dịch máy này.

Nhấp chuột vào đây để xem bản tiếng Anh của bài viết này:100413
Bài viết này đã được lưu trữ. Bài viết được cung cấp "nguyên trạng" và sẽ không còn được cập nhật nữa.
TÓM TẮT
Bạn có thể bẫy cho các mũi tên lên và xuống mũi tên mở rộng bàn phím phím trong một sốĐiều khiển Visual Basic bằng cách đặt mã trong thủ tục sự kiện KeyDown. CácMã sử dụng giá trị mã phím để bẫy các phím mũi tên lên và xuống mũi tên. BạnTuy nhiên, không thể, bẫy các phím trong tất cả các điều khiển Visual Basic bởi vì một sốđiều khiển đã được xây dựng trong chức năng cho các mũi tên lên và xuốngPhím mũi tên, do đó, không có sự kiện KeyDown được tạo ra.
THÔNG TIN THÊM
Thông tin trong bài viết này được cung cấp để hiển thị có thểbẫy các phím mũi tên lên và xuống mũi tên, tuy nhiên, Microsoft không khuyên bạn nênbạn thực hiện nó bởi vì các phím mũi tên lên và xuống mũi tên cótiêu chuẩn, được xác định trước hành vi trên một số điều khiển. Microsoft khuyến cáo rằngbạn sử dụng các phương pháp tiêu chuẩn để sử dụng bàn phím để di chuyển tiêu điểm; màlà, sử dụng các TAB và SHIFT + TAB phím hoặc sử dụng các phím truy cập.

Ví dụ-by-step cho di chuyển mũi tên lên bằng cách sử dụng tập trung và mũi tên xuống

  1. Bắt đầu Visual Basic hoặc từ trình đơn tệp, chọn dự án mới (ALT, F, N) nếu Visual Basic đang chạy.
  2. Thêm một hộp hình ảnh và hai hộp văn bản để Form1.
  3. Trong thủ tục sự kiện Picture1_KeyDown, thêm mã này:
       Sub Picture1_KeyDown(KeyCode AS INTEGER, Shift AS INTEGER)      IF KeyCode = 38 Then    '* 38 = up arrow key         Text2.SetFocus      Text2.SelStart = 0   '* set the cursor to the start      END IF      IF KeyCode = 40 Then    '* 40 = down arrow key         Text1.SetFocus      Text1.SelStart = 0   '* set the cursor to the start      END IF   END SUB						
  4. Trong thủ tục sự kiện Text1_KeyDown, thêm mã này:
       Sub Text1_KeyDown(KeyCode AS INTEGER, Shift AS INTEGER)      If KeyCode = 38 Then    '* 38 = UP ARROW key         Picture1.SetFocus      End If      If KeyCode = 40 Then    '* 40 = DOWN ARROW key         Text2.SetFocus         Text2.SelStart = 0   '* set the cursor to the start      End If   End Sub						
  5. Trong thủ tục sự kiện Text2_KeyDown, thêm mã này:
       Sub Text2_KeyDown(KeyCode AS INTEGER, Shift AS INTEGER)      If KeyCode = 38 Then    '* 38 = UP ARROW key         Text1.SetFocus         Text1.SelStart = 0   '* set the cursor to the start      End If      If KeyCode = 40 Then    '* 40 = DOWN ARROW key         Picture1.SetFocus      End If   End Sub						
  6. Lựa chọn Start Run menu hoặc nhấn F5 để chạy các ví dụ. Phím mũi tên lên hoặc xuống mũi tên để xem tập trung di chuyển đến một kiểm soát khác nhau.
Nếu bạn sử dụng các phím mũi tên trái hoặc mũi tên phải, bạn có thể di chuyển trong mộtHộp văn bản, nhưng các phím được bỏ qua trong hộp hình ảnh trong ví dụ này.
2,00 3.00 B_VBmsdos

Cảnh báo: Bài viết này được dịch tự động

Thuộc tính

ID Bài viết: 100413 - Xem lại Lần cuối: 12/04/2015 09:30:45 - Bản sửa đổi: 2.0

Microsoft Visual Basic 2.0 Standard Edition, Microsoft Visual Basic 3.0 Professional Edition, Microsoft Visual Basic 2.0 Professional Edition, Microsoft Visual Basic 1.0 Standard Edition

  • kbnosurvey kbarchive kbmt KB100413 KbMtvi
Phản hồi
ERROR: at System.Diagnostics.Process.Kill() at Microsoft.Support.SEOInfrastructureService.PhantomJS.PhantomJSRunner.WaitForExit(Process process, Int32 waitTime, StringBuilder dataBuilder, Boolean isTotalProcessTimeout)