• 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
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4761
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

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

Gửi bàigửi bởi truongphu » T.Bảy 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 đó


Mã: Chọn hết

  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
Sửa lần cuối bởi truongphu vào ngày CN 27/04/2008 4:56 pm với 1 lần sửa.


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
Bài viết: 44
Ngày tham gia: T.Ba 15/08/2006 11:19 pm
Đến từ: TPHCM

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

Gửi bàigửi bởi TrungDung1977 » CN 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

Hình đại diện của người dùng
DQHung
Guru
Guru
Bài viết: 576
Ngày tham gia: T.Hai 12/02/2007 3:24 pm
Đến từ: Rach Gia - Kien Giang
Been thanked: 40 time
Liên hệ:

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

Gửi bàigửi bởi DQHung » T.Hai 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.

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4761
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

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

Gửi bàigửi bởi truongphu » T.Hai 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

Hình đại diện của người dùng
DQHung
Guru
Guru
Bài viết: 576
Ngày tham gia: T.Hai 12/02/2007 3:24 pm
Đến từ: Rach Gia - Kien Giang
Been thanked: 40 time
Liên hệ:

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

Gửi bàigửi bởi DQHung » T.Tư 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


Quay về “[VB] Ứng dụng - Form và Control”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách