Những câu hỏi về VB

Những câu hỏi VB Những câu hỏi VB Bởi: Khoa CNTT ĐHSP KT Hưng Yên Những câu hỏi VB Kiểm tra tồn tập tinĐặt dòng code vào tập tin BAS (module) gọi từ đâu chương trình bạn Function FileExists(Byval FileName As String) Dim Exist As Integer On Local Error Resume Next Exists = Len(Dir(FileName$)) On Local Error Goto If Exists = Then FileExists = False Else FileExists = True End If End Function Hàm nhận tham số String (chính đường dẫn đến file cần kiểm tra tồn tại) Trả trị kiểu Boolean (TRUE/FALSE), phản ảnh kết kiểm tra hàm Sử dụng phím Enter phím Tab để luân chuyển Control Form Private Sub Form_KeyPress(KeyAscii As Integer) 1/14 Những câu hỏi VB If KeyAscii = vbKeyReturn Then 'Bắt phím Enter SendKeys "{TAB}" 'Giả người dùng nhấn Tab KeyAscii = 'Huỷ phím Enter End If End Sub Nhớ đặt thuộc tính KeyPreview Form TRUE bạn (để cho Form đón phím nhấn trước Control nó, không bạn nghe tiếng Beep loa chẳng thấy tác dụng đâu) Làm cho Form thành TopMost Là form nằm tất cửa sổ khác không bị kích hoạt (Active) Khai báo hàm API SetWindowPos Module sau: #If Win32 Then Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Global success As Long #Else Declare Function SetWindowPos Lib "user" (ByVal hWnd As Integer, _ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal Y As _Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As _Integer) As Integer Global success As Integer #End If Khai báo thêm số cần thiết Module: Global Const SWP_NOMOVE = Global Const SWP_NOSIZE = 2/14 Những câu hỏi VB Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE Global Const HWND_TOPMOST = -1 Global Const HWND_NOTOPMOST = -2 Lúc muốn cho Form thành TopMost dùng đoạn code sau đây: success = SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS) Như muốn Form không TopMost thì: success = SetWindowPos(Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS) Để minh họa, bạn tạo Project - Trên Form1 tạo command button là: Command1 & Command2, Add thêm Module (Module1) - Khai báo hàm API & Module1 - Lần lượt đặt dòng code thứ cho Command1 (TOPMOST) success = SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS) - Và dòng code thứ cho Command2 (NOTOPMOST) success = SetWindowPos(Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS) - Lúc ung dung mà nhấn F5 để chạy thử Hãy tạo Form mẫu cho riêng Có bạn tự hỏi: "Làm để tạo riêng cho Form (của mình) add vào Menu VB để cần cho lệnh Add Form chèn vào ứng dụng ?" Giống mẫu có sẵn Vb 3/14 Những câu hỏi VB Bạn thấy không ? About Dialog, Dialog, Splash Screen, Tip of the Day thứ bạn riêng cho để chương trình mang sắc thái riêng, độc đáo, bất ngờ Hãy tạo Form thật ưng ý cách: - Thay đổi Properties - Thêm số Control cần thiết - bạn thích hay dùng - Gõ Source Code cần Save Form vào thư mục Template\Forms thư mục chứa chương trình VB (nhớ cần Form nhé, không cần tới Project đâu) Ví dụ như: C:\soft\Microsoft Visual Studio\VB98\Template\Forms 4/14 Những câu hỏi VB Sau bạn vào mục Add Form xem Lưu ý: • Tên File tên xuất danh sách Ví dụ hình bên file "Day la mau Form cua tui.frm" • Nếu bạn "dị ứng" với mẫu Form có sẵn VB bạn cho tích cách Delete (hoặc Move nơi khác) tập tin tương ứng với tên xong Và nhìn xem 5/14 Những câu hỏi VB Đáng ghét chỗ cho Form vừa tạo vào cuối danh sách, bạn đặt tên có trăm chữ "a" "đội sổ" thường Thôi kệ, có dzui rồi, đứng đâu miễn lợi hại OK hà (à không, Open xác) Cắt bớt khoảng trống chuỗi Khi gõ văn nhập liệu, người dùng "tốt lành" mà gõ xác câu chữ, đặc biệt khoảng trống (space) Có chương trình, thừa khoảng trống dẫn đến lỗi nghiêm trọng khiếng chương trình treo "tòng teng" Để tránh rắc rối đó, ta cần viết Module có nhiệm vụ rà soát chuỗi, thNong chuỗi, thN thừa khoảng trống bỏ ngay, sau đưa chuỗi xử lý xong cho chương trình thực công việc Có chương trình hoạt động trơn tru Hàm sau làm nhiệm vụ: - Thay nơi có nhiều khoảng trống chuỗi thành khoảng trống - Xoá bỏ khoảng trống đầu cuối chuỗi 6/14 Những câu hỏi VB Private Function PreventDuplicateSpaces(Word) Dim i, WordLength, Character, LastCharacter, NewWord On Error GoTo ErrorHandler WordLength = Len(Word) For i = To WordLength Character = Mid(Word, i, 1) If LastCharacter = " " And Character = " " Then Else NewWord = NewWord & Character LastCharacter = Character End If Next i PreventDuplicateSpaces = Trim(NewWord) Exit Function ErrorHandler: ' Chèn code cần xử lý xuất lỗi End Function Lưu ý: Đây cách để minh hoạ (mức độ hiệu trung bình), bạn tự viết hàm cho riêng mình, mở rộng hàm làm thêm số chức khác 7/14 Những câu hỏi VB Vô hiệu (Disable) tất Control Form Dim i As Integer For i = To Form1.Controls.Count - Form1.Controls(i).Enabled = False Next i Dòng code làm cho tất loại Control (kể menu) Form bị vô hiệu (thuộc tính Enable = False) 8/14 Những câu hỏi VB Thật tuyệt vời phải không bạn Rất nhanh & gọn, bạn phải thận trọng sử dụng Như việc cho Enable lại đối tượng Form dễ phải không ? Giữ cho TextBox bị cuộn xuống cuối văn Khi số dòng chiều dài văn lớn phạm vi "thấy được" Textbox Lúc bạn có nhu cầu giữ cho Textbox hiển thị dòng cuối văn bản, dùng mẹo sau: Text1.SelStart = Len(Text1.Text) Áp đặt thuộc tính SelStart Textbox chiều dài văn chứa Hãy triệu gọi dòng code bạn cập nhật thay đổi nội dung Textbox Để dễ hiểu, làm thí dụ đơn giản sau: 9/14 Những câu hỏi VB - Hãy tạo Project mới, Form1 có Textbox (Name: Text1, & Text2) & Command Button (Name: Command1) - Đặt thuộc tính Text1: MultiLine = True; ScrollBars = 2-Vertical - Các control lại giữ nguyên: - Đặt vài dòng code vào Form: Private Sub Command1_Click() ' Nối dòng văn Text2 vào cuối Text1 (có ghép thêm ký tự xuống dòng vbCrLf - bạn dùng chr(13) & chr(10) ) Text1 = Text1 & vbCrLf & Text2 End Sub Private Sub Text1_Change() 'Cuộn Textbox có thay đổi Text1.SelStart = Len(Text1) End Sub Còn cách thử ? Quá dễ, gõ vào Text2, nhấn Command1, dòng Text cập nhật lên Text1, từ dòng thứ tư trở bạn thấy điều cần thấy 10/14 Những câu hỏi VB Kể từ dòng thứ tư trở Text1 cuộn xuống phía để người dùng xem thông tin vừa cập nhật Trên thực tế bạn có đặt dòng Text1.SelStart = Len(Text1) vào tình Change Textbox, làm cho bạn khó khăn định vị Cursor sửa đổi chỗ khác TextBox Hãy sáng tạo & đặt vào chỗ (lúc) thích hợp Đặt Picture vào Status Bar (thanh trạng thái) Thanh trạng thái đối tượng chuẩn mực có hầu hết chương trình chuyên nghiệp Thanh trạng thái có nhiệm vụ hướng dẫn cho người dùng giải thích ngắn gọn 11/14 Những câu hỏi VB Click phải chuột lên đối tượng Status Bar, chọn mục Properties menu tắt Click chọn thẻ Panels Và thêm vào panel Trong khung Picture, click nút Browse, sau chọn ảnh mà bạn thích Xem hình minh hoạ Các Format mà VB hỗ trợ là: • • • • Bimaps Icons & Cursors GIF Images JPEG Images Tuy nhiên bạn nên dùng ảnh nhỏ cho phù hợp với Status Đặt Default Folder cho Visual Basic 5/6 Có bạn cảm thấy bực phát lệnh Save VB lại cho vào thư mục cài VB không ? Riêng tôi, bực lắm, không lưu liệu ổ dĩa với chương trình Windows cả, thiệt phát khùng phải làm thao tác chuyển đổi thư mục nhàm cháng Tôi cố gắng tìm kiếm để thay đổi thư mục phát lệnh Save Nhưng vô thất vọng, chẳng có Version Tuy nhiên nhờ Windows nên giải vấn đề dễ dàng Nếu sử dụng Windows từ 98 trở bạn làm nhanh sau: - Click phải chuột lên Shortcut VB menu Programs, chọn Properties 12/14 Những câu hỏi VB Xem hình minh hoạ - Sau bạn hộp thoại Properties Chú ý phần Start in chứa thư mục mặc định lúc ta cài VB Xem hình minh hoạ - Vậy muốn ý đổi thư mục Start in lại bạn muốn: Giả sử đổi thành: H:\MYDOC\VBSOFT từ phát lịnh Save VB toại nguyện Xem hình minh hoạ 13/14 Những câu hỏi VB Bạn thấy tình đơn giản, ta tốn nhiều thời gian Tương tự vậy, bạn khởi động VB từ Shortcut khác (ví dụ Desktop) bạn làm y 14/14 [...]... VB trong menu Programs, chọn Properties 12/14 Những câu hỏi về VB Xem hình minh hoạ - Sau đó bạn sẽ được hộp thoại Properties Chú ý phần Start in chứa thư mục mặc định lúc ta cài VB Xem hình minh hoạ - Vậy muốn như ý hãy đổi thư mục trong Start in lại như bạn muốn: Giả sử tôi đổi thành: H:\MYDOC\VBSOFT vậy là từ đây khi phát lịnh Save trong VB tôi sẽ được toại nguyện Xem hình minh hoạ 13/14 Những câu. .. đặt vào những chỗ (lúc) thích hợp Đặt Picture vào Status Bar (thanh trạng thái) Thanh trạng thái là một trong những đối tượng chuẩn mực có hầu hết trong các chương trình chuyên nghiệp Thanh trạng thái có nhiệm vụ hướng dẫn cho người dùng bằng những giải thích ngắn gọn 11/14 Những câu hỏi về VB Click phải chuột lên đối tượng Status Bar, chọn mục Properties trong menu tắt Click chọn thẻ Panels Và thêm.. .Những câu hỏi về VB Kể từ dòng thứ tư trở đi Text1 luôn được cuộn xuống phía dưới để người dùng có thể xem được thông tin vừa mới cập nhật Trên thực tế bạn chớ có đặt dòng Text1.SelStart = Len(Text1) vào tình huống Change của Textbox, vì nó sẽ làm cho bạn khó khăn khi định vị Cursor và sửa đổi ở một chỗ khác trong TextBox Hãy sáng tạo & đặt vào những chỗ (lúc) thích hợp Đặt... chọn một bức ảnh mà bạn thích Xem hình minh hoạ Các Format mà VB hỗ trợ là: • • • • Bimaps Icons & Cursors GIF Images JPEG Images Tuy nhiên bạn nên dùng những bức ảnh nhỏ cho phù hợp với thanh Status Đặt Default Folder cho Visual Basic 5/6 Có khi nào bạn cảm thấy rất bực mình vì mỗi khi phát lệnh Save trong VB nó lại cho vào thư mục cài VB không ? Riêng tôi, bực mình lắm, tôi không bao giờ lưu dữ liệu... sử tôi đổi thành: H:\MYDOC\VBSOFT vậy là từ đây khi phát lịnh Save trong VB tôi sẽ được toại nguyện Xem hình minh hoạ 13/14 Những câu hỏi về VB Bạn thấy đó một tình huống khá đơn giản, nếu không biết ta sẽ tốn rất nhiều thời gian Tương tự như vậy, nếu bạn khởi động VB từ một Shortcut khác (ví dụ như trên Desktop) thì bạn vẫn làm y như vậy 14/14 ... mẫu cho riêng Có bạn tự hỏi: "Làm để tạo riêng cho Form (của mình) add vào Menu VB để cần cho lệnh Add Form chèn vào ứng dụng ?" Giống mẫu có sẵn Vb 3/14 Những câu hỏi VB Bạn thấy không ? About... đổi thành: H:MYDOCVBSOFT từ phát lịnh Save VB toại nguyện Xem hình minh hoạ 13/14 Những câu hỏi VB Bạn thấy tình đơn giản, ta tốn nhiều thời gian Tương tự vậy, bạn khởi động VB từ Shortcut khác... chuột lên Shortcut VB menu Programs, chọn Properties 12/14 Những câu hỏi VB Xem hình minh hoạ - Sau bạn hộp thoại Properties Chú ý phần Start in chứa thư mục mặc định lúc ta cài VB Xem hình minh