Mã nguồn là tiếng anh nó trông như vầy nè:
Để tạo menu Save có thể viết 1 thủ tục như sau (khi Click lên Menu Save sẽ gọi thủ tục này):
Private Sub SaveFile()
If FileName = "" Then 'kiểm tra tên file có rỗng không
With ComDlg
.CancelError = True
.Filter = "Rich Text Document(*.rtf)|*.rtf|Text Files(*.txt)|*.txt" 'chỉ lưu file với định dạng rtf hoặc txt
.DefaultExt = ".rtf" 'mặc định là file rtf
.DialogTitle = "Save File"
.FilterIndex = 1
.Flags = cdlOFNHideReadOnly
.ShowSave
If .FileName <> "" Then FileName = .FileName
End With
End If
End Sub
mã nguồn là tiền =]]
hừ,mấy Bờ rồ ơi,đọc một hồi cũng ho hiểu lắm,phải tu thêm đã.
hjx mấy bác ơi !!! mã nguồn thì em hiểu nghĩa rồi nhưng mà viết đc nó thì khó quá toàn ký tự chết mất thôi, Bác nào có Trang web nào giới thiệu mấy cái mã nguồn mở hay hay tí up lên cho anh em bit đc hok ?
Bookmarks