• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Mở Hộp thoại Save bằng code Script

Các thủ thuật liên quan đến việc xử lý ứng dụng, biểu mẫu và control
User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 519 times

Mở Hộp thoại Save bằng code Script

Postby truongphu » Sat 26/04/2008 9:25 pm

Thủ thuật: Mở Hộp thoại Save bằng code Script
Tác giả: truong phu, học từ help "The Script Center"
Mô tả: Theo thói quen, để có hộp thoại lưu file, chúng ta thường insert MS Common Dialog Controls 6.0, Vài hàng code sau đây sẽ đảm nhiệm việc đó


Code: Select all

  1. Private Sub Form_Load()
  2. Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
  3. objDialog.FileName = "Document1.txt"
  4. objDialog.FileType = "Text Document"
  5. intReturn = objDialog.OpenFileSaveDlg
  6.     Set objFSO = CreateObject("Scripting.FileSystemObject").CreateTextFile(objDialog.FileName)
  7.     objFSO.WriteLine Now
  8. End Sub

Chú thích: Chỉ chạy trên WinXP
Last edited by truongphu on Sun 27/04/2008 4:56 pm, edited 1 time in total.


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

TrungDung1977
Thành viên chính thức
Thành viên chính thức
Posts: 44
Joined: Tue 15/08/2006 11:19 pm
Location: TPHCM

Re: Mở Hộp thoại Save bằng code Script

Postby TrungDung1977 » Sun 27/04/2008 4:09 pm

có lẽ truongphu nên chú thích thêm là cái này chỉ chạy trong winXP

User avatar
DQHung
Guru
Guru
Posts: 576
Joined: Mon 12/02/2007 3:24 pm
Location: Rach Gia - Kien Giang
Been thanked: 40 times
Contact:

Re: Mở Hộp thoại Save bằng code Script

Postby DQHung » Mon 28/04/2008 11:35 am

Em thấy bác truongphu rất rành về script.Không biết bác có tài liệu học về nó ko, em cũng rất muốn học VBscript.

User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 519 times

Re: Mở Hộp thoại Save bằng code Script

Postby truongphu » Mon 28/04/2008 12:55 pm

to DQHung
Cảm ơn DQHung thăm hỏi
Tài liệu tôi đọc là: VBSCRIP5.Chm, script56.chm, script_center.chm.. và tham khảo trực tuyến tại http://www.microsoft.com/technet/scriptcenter/default.mspx
Các tài liệu trên rất dễ tìm, ví dụ qua Google, tiếc vì chúng cỡ hơn 1 đến vài MB nên khó gởi lên.
Thật ra ngôn ngữ VBScript xuất hiện trên CLBVB đã lâu, từ 6/05 khi itbasic giới thiệu Scripting.FileSystemObject (đề mục cụ thể tôi không nhớ, nhưng vẫn còn ở DĐ cũ), sau đó cho tới nay là các bài viết rải rác, ví dụ thao tác với registry với câu: CreateObject("wscript.shell") với code gọn nhẹ. Tuy nhiên CLBVB vẫn chưa nhìn nhận chính thức thứ ngôn ngữ giản tiện nầy, xem nó như là một thủ thuật tiện lợi mà thôi. Có thể do VB.Net đã xuất hiện và hay quá nên Script chẳng được ai chú ý!
Tôi là người học sau, lại chọn VB6. Sau thời gian tiếp xúc và yêu nó thì lại biết MS đã bỏ rơi VB6 để chuyển qua VB.Net. Do lỡ yêu tính đơn giản của VB6, chép là chạy, nên tôi tò mò tìm hiểu thêm VBScript vì ngầm hiểu rằng hình như nó là thứ ngôn ngữ VB6 mở rộng trước khi chuyển hẵn qua VBnet. Càng đọc càng thấy khả năng của VbScrip còn hơn thế, mà tôi lại mới đọc đoạn đầu..., chúng thao tác trên nhiều đối tượng: ứng dụng Office cũng tốt mà hệ thống cũng không từ! Internet hay MultiMedia cũng có thể can thiệp được. Vì thế, tôi chọn Script làm ngôn ngữ chính thức của mình: vừa quen dùng VB6 lại vừa không quá "lạc hậu" như VB6 (còn học thêm VB.Net thì tôi thua)
Một ví dụ là VB6 thao tác truyền thống trên file txt, sau đó VB6 có bổ sung control RichTextFormat để thao tác với file RTF, còn DOC thì chịu. Hai bài tôi mới viết dùng VBScript để VB6 mở luôn file DOC, đọc, chép, xóa, viết.. vô tư
Mong bạn DQHung cũng yêu và thạo VBScript
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

User avatar
DQHung
Guru
Guru
Posts: 576
Joined: Mon 12/02/2007 3:24 pm
Location: Rach Gia - Kien Giang
Been thanked: 40 times
Contact:

Re: Mở Hộp thoại Save bằng code Script

Postby DQHung » Wed 30/04/2008 10:18 am

Cám ơn bác truongphu rất nhiều.Khi nào có thời gian em phải học nó mới được. :D


Return to “[VB] Ứng dụng - Form và Control”

Who is online

Users browsing this forum: No registered users and 3 guests