Cul «4 $« Q< quesdonabl eC (v ti Gerttiine cciru âre nd eA ỉilv c uL

Một phần của tài liệu Ebook kỹ thuật và thủ thuật lập trình visual basic 2010 2011 tập 2 phần 1 xuân thịnh, nam thuận (Trang 66 - 68)

D i» fta ndAr rệ jt(ộ r© Aí lcoj?

3 Cul «4 $« Q< quesdonabl eC (v ti Gerttiine cciru âre nd eA ỉilv c uL

L ệnh I n s e r t D a te cung cấp m ột cách tiệ n lợi đ ể bao h à m te m thờ i gian h iệ n h à n h tro n g m ột file, điều này hữu dụng nếu b ạ n tạo m ột n h ậ t ký hoặc sổ lộ trìn h .

7. T rên m enu F ile , n h ấp lệ n h S a v e As.

Chương tr ìn h h iể n th ị m ột hộp th o ại S a v e A s có t ấ t cả tín h n ăn g m ong đợị Loại file mặc định được xác lập s a n g .tx t. M àn h ìn h trô n g tương tự n hư sau:

C h ư ơ n g 13: K h ả o s á t các File Text và xử lý chuỗi 71 «< v b lO ib ỉ ► r h ip ỉ ỉ » Otợariiỉe t U^ỉtMáệt ch«jfl6 ' ch43Ũ? - . <híJƠ6 <h«90ỉ . c h t 9 Ỉ 0 chỉsỉỉ . ch*3lỉ ’ ' ị th»3l3 < cK»»U . íhế-ììĩ c h » » 1 6 • ' Fíie ârrie: ỉa v e * $ tv p « ; 7 e r tM « f( * .W } UifAf EftfVpt Tê . QuiclNcte . S o r t 7 e » t t « r t 6rcM,ri«r l^Qi E n c ty p tio n *bc PM Vỉyitlữ ^/ỉr.ỉíiĩtian^M V55;.nHO Ì>AĨ} PM 2«>?7r*OÍ«‘'ÚW ly Ctncel 8. T ro n g h ộ p th o ạ i S a v e A s, m ở folder C :\v b l0 s b s \c h a p l3 \Q u ic k N ote nếu nó chưa mở. Sau đó gõ n h ập B adcoins.txt tro n g hộp te x t P ile N a m e v à n h ấ p S a v e .

T ex t của tà i liệu được lưu tro n g file te x t B adcoins.txt mớị 9. T rê n m enu F ile , n h ấp lện h E x it.

Chương tr ìn h dừng lạ i và môi trường p h á t tr iể n quay trở lạị Bây giờ b ạ n sẽ xem các th ủ tục sự kiện tro n g chương trìn h .

K iểm t r a m ã chương trìn h Quick Note

1. T rê n m en u F i l e cùa form Q u ic k N o te , n h ấ p đôi lệ n h I n s e r t D a te . Thủ tục sự k iệ n x u ất h iệ n tro n g Code E ditor. B ạn th ấ y m â chương tr ìn h sau đây:

txtNotẹText = MỵComputer.Clock.LocalTime & vbCrLí & íxtNotẹText txtNotẹSelect{0, 0) ‘remove selection

Thủ tục sự k iệ n n ày th êm ngày th á n g và th ờ i g ia n h iệ n h à n h vào hộp te x t b ằ n g việc liên k ế t hoặc ghép ngày th á n g h iệ n h à n h (được tạo r a bởi đôl tượng M ỵComputer.Clok và thuộc tín h LocalTime), m ột ký tự trở về đầu dòng (được th ê m bởi h ằ n g vbCrLí) v à thuộc tín h T ext. B ạ n có th ể sử dụng m ột kỹ th u ậ t tương tự để xem chỉ ngày th á n g h iệ n h à n h (bằng việc sử dụng D ate S trin g ) hoặc b ấ t kỳ th ô n g tin k h á c với te x t tro n g hộp text.

K hi b ạ n ch èn ng ày th á n g sử dụng lệ n h In s e rt D ate, đôi k h i te x t được chọn. Nếu loại bỏ vùng chọn này, phương thức S elect được gọị Vùng chọn được xác lậ p san g p h ần đầu của hộp te x t b ằ n g việc xác đ ịn h 0 tro n g th a m sô" th ứ n h ấ t và chiều dài của vùng chọn được xác lậ p s a n g 0 tro n g th a m số th ứ haị Điều này loại bỏ b ấ t kỳ vùng chọn và đ ặ t cursor ở đầu hộp text.

2. H ãy d à n h m ộ t ch ú t th ờ i gian để th â y các câu lệ n h ghép là m việc như t h ế nào v à sau đó kiểm tr a th ủ tục sự kiện SaveA sT oolStripM enultem tro n g Code Editor.

B ạn th ấ y m ã chương trìn h sau đây:

SaveFileDialog1.Fỉlter = “ Text files ( '. t x t ) r . t x t "

lf SaveFileDialog1.ShowDialog() = DialogResult.OK Then 'copy text to disk

My,Computer.RleSystem.WriteAIIText{

SaveFileDíalog1.FìleName, txtNotẹText, Faíse) Enđ lf

Khối câu lệ n h n à y sử dụng m ột đối tượng hộp th o ại save íĩle đ ể hiển th ị m ột hộp th o ạ i Save As, xác n h ậ n xem người dùng có chọn một file h ay không v à ghi giá tr ị tro n g thuộc tín h tx tN o tẹT ex t sa n g đĩa b ằn g việc sử dụng phương thức W riteA ]lText. Đ ặc b iệ t chú ý câu lệ n h :

MỵCompưter.FileSysíem.WriteAIIText(

SaveFileDialog1.FiíeName, txtNotẹText, False)

Câu lệ n h này gán to à n bộ nội dung eủa hộp le x t sa n g filẹ Điểm quan trọ n g cần chú ý ô đây là to à n bộ file được lưu tr ữ tro n g thuộc tín h txtN otẹT ext.

3. Đóng chương tr ìn h b ằn g việc sử đụng lệ n h C lo s e P r o j e c t trê n m enu Filẹ

B ạn đ ã h o àn t ấ t chương trìn h Quick Notẹ

Một phần của tài liệu Ebook kỹ thuật và thủ thuật lập trình visual basic 2010 2011 tập 2 phần 1 xuân thịnh, nam thuận (Trang 66 - 68)

Tải bản đầy đủ (PDF)

(139 trang)