Đang tải... (xem toàn văn)
Thiết kế chương trình duyệt file âm thanh bằng VB
Thiết kế chương trình duyệt file âm Visual Basic (Sử dụng MediaPlayer 6.x Windows) MediaPlayer Windows từ version 6.x trở player nhiều dạng thức tập tin Multimedia khác như: avi, asf, asx, rmi, wav ; ra, ram, rm, rmm ; mpg, mpeg, m1v, mp2, mpa, mpe ; mid, rmi ; qt, aif, aifc, aiff, mov ; au, snd Chất lượng cải thiện rõ rệt so với phiên trước Nếu bạn sử dụng Windows 98 MediaPlayer sẵn sàng, dùng Windows 95, 97 bạn buộc phải cài đặt bổ sung để lên đời MediaPlayer Bạn tìm nâng cấp CDROM phần mềm hay nằm chung Internet Explorer 4.01 SP2 Các file multimedia tràn ngập Internet, CDROM, nhiều Đặc biệt MP3 & Midi, loại file thịnh hành ưa chuộng Cái nhiều gây nên ý tưởng (nói dúng sinh tật) Mặc dù cần double click lên file Mp3 hay Midi trình quản lý file Play cách dễ dàng nhờ MediaPlayer Windows riêng khối Chính viết xin mạn phép hướng dẫn bạn tự thiết kế MediaPlayer tiện dụng để dành làm riêng Tuy nhiên nói riêng tự làm hết mà phải dùng MediaPlayer chương trình Khái quát chương trình Chúng ta thiết kế chưong trình có giao diện sau: Đầu tiên người dùngười chọn ổ đĩa, thư mục có chứa file Multimedia (thí dụ file Midi) Kế đến nhấn nút Play double click tên file cần phát để nghe nhạc Ngồi cịn có nút Help, Author, Exit Phía MediaPlayer nhúng vào chương trình, điều chỉnh chức chương trình riêng biệt (bạn right click để mở menu tắt quen thuộc dùng MediaPlayer), cuối cửa sổ có dịng thơng báo tên file & đường dẫn Play Các xác lập hộp thoại Options MediaPlayer Phía hộp chọn thư mục có Text box dùng để lọc file Các loại file ngăn cách dấu chấm phảy ";" Thí du bạn muốn lọc file MP3 & MIDI gõ vào: *.mp3;*.mid Cũng lưu ý thêm là: hộp liệt kê tên file khơng có file nào, nút Play bị vơ hiệu hố (Enabled=False) Chỉ có file nút Play có tác dụng Thiết kế giao diện Bạn khởi động Visual Basic bắt tay vào việc tạo dáng cho ứng dụng Cách bố trí Control form tùy theo ý người, riêng tơi, tơi trình bày sau: Các thuộc tính & Caption Control chương trình: FORM Form1.caption = "MediaPlayer - Browser" Form1.BorderStyle = 1-Fixed Single Form1.Minbutton=True TEXTBOX/LABELBOX Text1.text="*.mid;*.mp3" Label1.caption="" COMMAND BUTTON cmdPlay.caption="&Play" cmdPlay.enabled=False cmdHelp.caption="&Help" cmdAuthor.caption="&Author" cmdExit.caption="&Exit" Trên Toolbox Visual Basic khơng có đối tượng MediaPlayer Bạn phải dùng Custom Control để thêm đối tượng vào Nhấn CTRL - T Trong hộp thoại Components chọn Windows MediaPlayer (thường cuối danh sách), Click nút OK Đối tượng MediaPlayer thêm vào Toolbox, việc lại, cần vẽ lên form, đặt vị trí thích hợp (nó có tên MediaPlayer1) Viết Code Đầu tiên bạn cần cho control: Drive1, Dir1, File1 hoạt động Hãy gõ đoạn Code sau chúng "hiểu nhau" Private Sub Dir1_Change() File1.Path = Dir1.Path If File1.ListCount = Then 'Kiểm tra xem có file listbox File1 chưa cmdPlay.Enabled = False 'Nếu chưa có vơ hiệu nút Play Else cmdPlay.Enabled = True 'Nếu có cho hiệu lực nút Play End If End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Double click lên nút Play viết Private Sub Command1_Click() MediaPlayer1.filename = Dir1.Path & "\" _ & File1.List(File1.ListIndex) Label1.Caption = MediaPlayer1.filename End Sub Nếu thuộc tính AutoStart MediaPlayer gán True MediaPlayer tự động Play bạn truyền cho thuộc tính FileName chuỗi đường dẫn đến file cần Play Khi thuộc tính FileName rỗng, ngừng đoạn Code tơi ghép nối thuộc tính Drive1, Dir1 & File1 để file cần Play Đoạn code gặp lỗi file cần Play nằm thư mục gốc, bạn tự hoàn chỉnh lấy hàm IIF() hay câu lệnh IF Dòng thứ dùng để hiển thị đường dẫn file Play Labelbox cuối form Nếu muốn người dùng Double Click lên tên file danh sách file MediaPlayer Play file đó, bạn cần làm sau: Private Sub File1_DblClick() cmdPlay_Click End Sub Để khả lọc (Pattern) File1 hoạt động theo nội dung Textbox (Text1) Bạn cần gán chuỗi Textbox người dùng gõ vào có thay đổi (thuộc tính Change Textbox) Private Sub Text1_Change() File1.Pattern = Trim(Text1) End Sub Đồng thời lúc chương trình khởi động bạn phải gán nội dung Textbox cho thuộc tính Pattern File1 Private Sub Form_Load() Text1_Change End Sub MediaPlayer cịn có thuộc tính tên PlayCount - Số lần phát lại file nhạc, bạn gán cho số thích hợp thiết kế chương trình Khả MediaPlayer tùy thuộc vào MediaPlayer sử dụng Windows bạn Vậy xong, chương trình duỵệt file âm thanh, thật đơn giản phải khơng bạn :-) Thay lời kết Bây bạn dịch file exe, đem tặng cho bạn bè "làm kỷ niệm" Nhớ chép thêm file cần thiết cho chương trình MSDXM.OCX file chứa Custom Control MediaPlayer sử dụng chương trình Hãy nén lại cho chúng thật mi nhon trước chép đĩa mềm hay gởi kèm theo E-mail Trên chương trình đơn giản, tính có đáng khâm phục phải khơng bạn Cịn lại vài chi tiết khác bạn tự làm lấy theo ý thích Bạn thêm vài tính cho chương trình trở nên đa dụng, thí dụ như: Play file Video, tự động Play loạt file Chúc bạn thành công Viết ứng dụng INDEXER [ Thiết kế giao diện ] [ Viết Code ] Viết chương trình tạo trang Web chứa Link đến tập tin thư mục người dùng định Chương trình có chức hoạt động tổng quát sau: Chọn thư mục Lọc file Cho người dùng chọn file Đặt tên tiêu đề cho trang Web Đặt dòng văn đầu danh sách Đặt dòng văn cuối danh sách Sau tạo xong cho phép xem IE hay Notepad Chọn canh lề: Trái, phải , Khi bạn nhấn nút "Tạo" Form (Form1) chương trình tạo trang Web chứa link đến file thư mục, trang Web lưu vào thư mục mà bạn định Mỗi lần người dùng định thư mục, chương trình tự động điền đường dẫn tên file (mặc nhiên List_index.htm) vào hộp chọn file name (Text1) Để dễ dàng việc chọn lựa ta dùng thêm ListBox (List1) cho FileListBox (File1) Bạn nên cho ListBox nằm đè lên đối tượng File1 (hoặc cho File1.Visible=False) ta cần File1 để lấy tên tập tin Add vào List1 không dùng đến Một ComboBox (Combo1) để lọc file theo loại file tất (do người dùng tự chọn hay gõ vào) Đồng thời cung cấp thêm nút lệnh: "Chọn" chọn tất tập tin Listbox, "Không" bỏ chọn tất tập tin Listbox (bạn chọn cách Check vào tên file tương ứng), "Tạo" nhấn nút để bắt đầu tạo trang Web, "Thông số" nhấn nút để xác lập thêm tùy chọn cho trang Web, "Thốt" Thốt khỏi chương trình Viết Code cho menu Ta cần viết code cho menu, sau dùng nút lệnh để gọi menu tương ứng Bây viết code cho mục Windows Explorer menu Windows Vào Windows chọn Windows Explorer để viết code cho mục chọn menu Bạn gõ vào đoạn sau: Private Sub mnuWE_Click() ' dịng có sẵn Dim P P = Shell("explorer", vbNormalFocus) End Sub ' dòng có sẵn Giải thích: * Dim P Khai báo biến kiểu variant để chứa trị trả hàm Shell Đây kiểu liệu bao trùm tất kiểu liệu Visual Basic * P=Shell("explorer",vbNormalFocus) Hàm Shell dùng để gọi chương trình khác thi hành Cú pháp Shell(pathname[,windowstyle]) pathname: đường dẫn file thực thi chương trình cần gọi Đây xâu viết bạn phải đặt chúng cặp dấu " " windowstyle: số qui định phong cách khởi động chương trình cần chạy Thí dụ: sau gọi chương trình bạn cần Maximize, Minimize chương trình có giá trị ý nghĩa sau: Tên Giá trị ý nghĩa vbHide Window is hidden and focus is passed to the hidden window vbNormalFocus Window has focus and is restored to its original size and position vbMinimizedFocus Window is displayed as an icon with focus vbMaximizedFocus Window is maximized with focus vbNormalNoFocus Window is restored to its most recent size and position The currently active window remains active vbMinimizedNoFocus Window is displayed as an icon The currently active window remains active Vậy viết lại hàm Shell sau Shell("explorer",1) cho gọn Lưu ý: Trong phần pathname hàm shell lý phải ghi đầy đủ đường dẫn, thí dụ "C:\Windows\Explorer.exe" (giả sử thư mục windows c:\windows) thay "explorer.exe" Sở dĩ ta ghi gọn Windows tự động đặt dường dẫn path đến thư mục như: Windows; Windows\system Do cần ghi explorer.exe cho tổng quát (khỏi sợ sai đường dẫn đem chạy máy khác) Bây nhấn F5 để chạy chương trình, vào menu Windows chọn Windows Explorer, chương trình Windows Explorer khởi động Tương tự bạn có viết code cho tất menu lại menu Windows Notepad.exe (Windows/Notepad) Write.exe (Windows/WordPad) Pbrush.exe (Windows/Paint) Đối với Paint WordPad ta phải dùng file write.exe & pbrush.exe thư mục Windows để khởi động Thực file có chức gọi WordPad.exe MSPaint.exe (trong thư mục \Program Files\Accessories\) khơng phải file chương trình Microsoft phải làm để tương thích với chương trình cũ Còn mục chọn khác bạn viết hàm Shell tương tự đường dẫn phải cụ thể xác Thí dụ để viết code cho menu "Lac Viet td" Vào VietNamese / Lac Viet td, gõ vào Private Sub mnuLV_Click() Dim F F=Shell("d:\tools\lvtd\lvtd.exe",1) End Sub Do file lvtd.exe máy nằm thư mục d:\tools\lvtd Nhấn F5 chạy thử xem có vừa ý hay khơng ? Viết code cho Command Button Option Explicit Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hWndCallback As Long) As Long Tạo thêm hàm vbmciSendString() để nhận thông điệp đóng/mở khay CDROM Hàm trả String Function vbmciSendString(ByVal Command As String, ByVal hWnd As Long) As String Dim Buffer As String Dim dwRet As Long Buffer = Space$(100) dwRet = mciSendString(Command, ByVal Buffer, Len(Buffer),hWnd) vbmciSendString = Buffer End Function Tạo Command Button đặt Caption cho chúng là: "Open" & "Close" Sau mã tương ứng cho nút lệnh BACK | FORWARD Private Sub Command1_Click() Dim Dummy As String Dummy = vbmciSendString("set cdaudio door open", 0) End Sub Private Sub Command2_Click() Dim Dummy As String Dummy = vbmciSendString("set cdaudio door closed ", 0) End Sub Như Command1 dùng để mở khay CD, cịn Command2 đóng khay Hãy save lại & cho chạy thử chương trình xem Hãy áp dụng thủ thuật trước thiết kế cho chương trình chạy thường trú Windows, thể thành Icon System Tray để tiện sử dụng Nhất định hữu ích bạn làm biếng thò tay nhấn nút Eject nút quái quỷ khơng cịn tác dụng Riêng tơi tiện ích tiện, thùng máy (CPU) đặt gầm bàn, muốn lấy CD phải khom người nhấn nút, chờ (một hai giây đủ làm tơi nóng ruột) Với tiện ích việc click chuột nghe tiếng khay bung thật tiện lợi Đầu trang Tùy biến Command Button Command Button control thông dụng Windows nói chung & VB nói riêng Một chương trình đơn giản hầu có đối tượng Tuy có vướng mắt đơn giản đâu Sau vài thắc mắc bạn tự học VB Tôi muốn phổ biến bạn tự học VB khác Câu hỏi 1: Tại thay đổi màu BackColor Command Button thành màu khác (màu Windows) trơ đá, chẳng thấy thay đổi theo lựa chọn Trả lời: Command Button thay đổi màu Backcolor thuộc tính Style đặt 1-Graphical mà thơi Mặc nhiên 0-Standard Điều tương tự thuộc tính Picture, bạn gán hình ảnh phải gán cho thuộc tính Style 1-Graphical ảnh lên, khơng chẳng thấy thay đổi Câu hỏi 2: Làm để thay đổi màu TextColor (Màu dòng Text Command Button - Caption) Command Button ? Trả lời: Trong chế độ Design VB khơng có thuộc tính cho phép ta thay đổi màu TextColor, thi hành chương trình Nói tóm lại mơi trường phát triển VB bạn thay đổi màu TextColor Command Button Do ta phải tìm hướng khác Tôi xin đề nghị cách sau đây: * Custom Control: Bạn tự thiết kế, điều địi hỏi bạn phải có khả tạo ActiveX (cũng tạo VB) Hay bạn tìm ActiveX thiết kế sẳn, bổ sung vào ứng dụng (Internet nơi chắn bạn phải tìm đến, khơng có điều kiện, lục lọi CD free code bán cửa hàng) Nhưng theo tơi biết, VB (Version 32bit) có custom control tên Sheridan 3D Controls (THREED32.OCX) bạn dễ dàng tìm tìm thấy Bao gồm đối tượng sau: • SSCheck • SSFrame • SSPanel • SSRibon • SSCommand • SSOption Bao gồm nhiều thuộc tính cho phép ta chọn đủ màu sắc, có thuộc tính cho phép gán hiệu ứng cho Text Thật lý thú Xem thử giao diện * Tự vẽ lấy Command Button: Cách làm, đẹp hay xấu phụ thuộc vào khả vẽ bạn Cách làm sau: • Tự bạn vẽ nút lệnh, hình dáng kích thước màu sắc tùy ý bạn Bằng chương trình đồ họa (hay dùng Paint Windows được) • Lưu lại ảnh dạng Bitmap (*.bmp) Thật với VB6 bạn dùng format: bmp, jpg, gif Cịn VB4 dùng bmp mà thơi • Gán vào thuộc tính Picture command button Lưu ý: Bạn phải đặt cho thuộc tính Style 1-Graphical & Caption trống (khơng đặt cả) Tơi có làm thí dụ đơn giản để minh họa Bức ảnh gif vẽ chương trình vẽ thơng dụng Button thứ vẽ, button thứ hai VB (không thể thay đổi màu cho Text được) Bạn so sánh Có người cho bạn đặt Picture vào Image control để giả làm button, theo riêng cách không hay, đặt hình ảnh Image lúc người dùng Click chuột không cảm thấy bị lún xuống cách đặt hình ảnh vào Command Button tơi trình bày Đầu trang Làm để hiển thị hộp thoại BROWSE FOR FOLDER ? Trong lúc viết ứng dụng, có lúc bạn cần cho người dùng chọn thư mục (nếu chọn tập tin có Dialog Open rồi) Lúc bạn nên cho hiển thị hộp thoại "Browse for Folder" tiện Sau cách thực hiện: Hãy khởi động VB Tạo Project Gõ đoạn Code sau vào Module Private Type BrowseInfo hwndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As Long End Type Private Const BIF_RETURNONLYFSDIRS = Private Const MAX_PATH = 260 Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long) Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long Public Function BrowseForFolder(hwndOwner As Long, sPrompt As String) As String Dim iNull As Integer Dim lpIDList As Long Dim lResult As Long Dim sPath As String Dim udtBI As BrowseInfo With udtBI hwndOwner = hwndOwner lpszTitle = lstrcat(sPrompt, "") ulFlags = BIF_RETURNONLYFSDIRS End With lpIDList = SHBrowseForFolder(udtBI) If lpIDList Then sPath = String$(MAX_PATH, 0) lResult = SHGetPathFromIDList(lpIDList, sPath) Call CoTaskMemFree(lpIDList) iNull = InStr(sPath, vbNullChar) If iNull Then sPath = Left$(sPath, iNull - 1) End If BrowseForFolder = sPath End Function Trên Form tạo Command Button (Name: Command1), gõ đoạn code sau vào kiện Click Private Sub Command1_Click() Dim strResFolder As String strResFolder = BrowseForFolder(hWnd, "Select Folder.") If strResFolder "" Then MsgBox strResFolder End If End Sub Kết chọn người dùng đặt vào biến strResFolder Bạn áp dụng vào ứng dụng có nhu cầu Chúc bạn thành cơng 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) 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 = 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 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 thơi nhé, khơng cần tới Project đâu) Ví dụ như: C:\soft\Microsoft Visual Studio\VB98\Template\Forms 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 Đáng ghét chỗ ln 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) NHỮNG CÂU HỎI VỀ VB 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 - Xố bỏ ln khoảng trống đầu cuối chuỗi 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 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) 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 ? ^Top 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 ln 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: - 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 Kể từ dịng thứ tư trở Text1 ln 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 chun 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 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 tơi 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 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ạ 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 ... hợp thiết kế chương trình Khả MediaPlayer tùy thuộc vào MediaPlayer sử dụng Windows bạn Vậy xong, chương trình duỵệt file âm thanh, thật đơn giản phải không bạn :-) Thay lời kết Bây bạn dịch file. .. điểm chương trình phải viết riêng cho máy, giải vấn đề viết sau "Nâng cấp chương trình Launch" Bạn viết chương trình cho chức Auto Run CD chương trình, lúc chuyện lại dễ dàng đường dẫn chương trình. .. gọi file Pbrush.exe file file chương trình chính, chúng có nhiệm vụ gọi file thực thi Paint (MSPaint.exe) WordPad (WordPad.exe) nằm Program files\Accessories thực file chương trình Microsoft phải
