Đang chuẩn bị liên kết để tải về tài liệu:
Programming Visual Basic 2008 phần 4

DỰ ÁN ACCESS Nạp dự án luật Chương 5 (trước), hoặc thông qua các mẫu dự án mới hoặc bằng cách truy cập các dự án trực tiếp từ thư mục cài đặt. Để xem các mã trong hình thức cuối cùng của nó, tải Chương 5 (Sau) Mã thay vì.Mục tiêu của chúng tôi là một hình thức thú vị truyền tải thông tin cơ bản về chương trình | Figure 7-12. The basic look of the main form The TaskLibraryltem procedure adjusts the various panels and fields on the display so that the user sees those fields needed to look up library items. Private Sub TaskLibraryItem ------- Update the display. AllPanelsInvisible PanelLibraryItem.Visible True ActLibraryItem.BackColor SystemColors.Control LabelSelected.Location New System.Drawing.Point _ LabelSelected.Left PicLibraryItem.Top Me.AcceptButton ActSearch End Sub The AllPanelsInvisible routine also does some on-screen adjustment. I like to have the existing text in a TextBox field selected when it becomes the active control. Each text control includes a SelectAll method that accomplishes this feat. We ll call that method during each TextBox control s Enter event an event that occurs when a control receives the keyboard input focus. Private Sub SearchText_Enter ByVal sender As Object _ ByVal e As System.EventArgs Handles SearchText.Enter ------- Highlight the entire text. SearchText.SelectAll End Sub 216 Chapter Windows Forms Using the mouse to access the different features of the form is good but I m a keyboard person. To deal with keyboard users like me the code adds support for feature access using the F2 through F9 keys. Private Sub MainForm_KeyDown ByVal sender As Object _ ByVal e As System.Windows.Forms.KeyEventArgs _ Handles MyBase.KeyDown ---- The keys F2 through F9 access the different sections of the form. Select Case e.KeyCode Case Keys.F2 TaskLibraryItem e.Handled True Case Keys.FB TaskPatronRecord e.Handled True Case Keys.F4 ---- Allow form to handle Alt F4. If e.Alt True Then Me.Close Else TaskHelp End If e.Handled True Case Keys.F5 TaskCheckOut e.Handled True Case Keys.F6 TaskCheckIn e.Handled True Case Keys.F7 TaskAdmin e.Handled True Case Keys.F8 TaskProcess e.Handled True Case Keys.F9 TaskReports e.Handled True End Select End Sub As each keystroke comes into the KeyDown event handler the Select Case statement examines it. When a matching Case .