Sử dụng hàm Shell ai giúp với

[†a|<e$!]

Mình muốn mở tất cả các định dạng file trong VB6 thì có thể dùng hàm shell được không ? Nếu được thì bằng cách nào ai chỉ giúp với. Còn nếu không được thì cho mình hỏi làm cách nào để Run tất cả các định dạng file trong VB6.
Ví dụ mình đưa địa chỉ vào ô text như sau : "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Blue hills.jpg" và có thêm một CMD Button, nếu mình click vào button thì file C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Blue hills.jpg sẽ được mở ra, ai biết giúp mình với nha ! thank nhiều.

[lanhoamai]

Mình muốn mở tất cả các định dạng file trong VB6 thì có thể dùng hàm shell được không ? Nếu được thì bằng cách nào ai chỉ giúp với. Còn nếu không được thì cho mình hỏi làm cách nào để Run tất cả các định dạng file trong VB6.
Ví dụ mình đưa địa chỉ vào ô text như sau : "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Blue hills.jpg" và có thêm một CMD Button, nếu mình click vào button thì file C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Blue hills.jpg sẽ được mở ra, ai biết giúp mình với nha ! thank nhiều.

Lệnh Shell chỉ gọi tập tin tự chạy như .exe , .bat chứ không phải tập tin dạng nào cũng tự chạy được. Các định dạng tập tin mà khi bạn double click > chạy (như *.doc, *.bmp, ...) là do sự đăng ký hiển thị loại đuôi của tập tin đó từ các chương trình phần mềm của windows hay các chương trình phần mềm khác. Tùy loại tập tin mà có các trình duyệt hỗ trợ hiển thị.
+ Ví dụ: muốn hiển thị tập tin dạng văn bản bạn cần Text Box hoặc Rich Text Box,...
- Trong Visual Basic để hiển thị hình bạn dùng công cụ Image hay Picture box và dùng hàm LoadPicture để nạp ảnh từ một file ảnh. Ví dụ bạn có một Image tên Image1 và một nút lệnh Command1. Khi Click nut Nap Hinh thi file hinh se duoc nap và hiển thị trên Image1.

Private Sub Form_Load()
Command1.Caption = "Nap Hinh"
End Sub

Private Sub Command1_Click()
Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Blue hills.jpg")
End Sub

--- --- --- Hãy tham khảo thêm từ các phần mềm của lanhoamai:

Tên chương trình: MFunctions.exe
Người lập trình: Nguyễn Đặng Hải
Ngôn ngữ lập trình: Visual Basic 6.0

Giới thiệu MFunctions:

====================
- Download tại đây: http://www.uploading.com/files/U6ZJ1969/MFunctions.zip.html
====================

Bao gồm các tính năng sau:
- Lịch : Hiển thị ngày giờ và cho phép hiệu chỉnh ngày giờ hệ thống ( mục Options )
- Máy tính : Kèm theo một máy tính nhỏ gọn đơn giản dễ sử dụng ( máy tính )
- Tên : Cho phép ghi lưu và hiển thị tên của người sử dụng ( mục Options )
- Hình ảnh : Cho phép ghi lưu và hiển thị một hay nhiều hình ảnh bất kỳ từ thư mục ảnh ( mục Options
( có thể xem ở kích cỡ mặc định lớn nhất của hình ảnh -> click vào hình )
- Hoạt cảnh động : Hoạt cảnh động thêm phần sinh động và đẹp mắt cho Functions
- Stand By, Log Off, Restart,Shut down : Chỉ bằng một cái click chuột nhanh chóng tiện lợi

Ngoài ra đối với người sử dụng muốn tìm hiểu về lập trình thì các tính năng sau cũng rất thú vị:
- Làm cửa sổ form trong suốt ( mặc nhiên )
- Cho form vẫn nằm trên ứng dụng khác khi không còn là cửa sổ active ( tùy chọn trong mục Options )
- Đăng ký tự chạy khi khởi động windows ( tùy chọn trong mục Options )
- Di chuyển cửa sổ ở chế độ none ( drag mouse tại vòng tròn hoạt cảnh )
- Stand By ( nút lệnhh )
- Log Off ( nút lệnhh )
- Restart ( nút lệnhh )
- Shut down ( nút lệnhh )
- Xem mã nguồn ( NDHSoft / Source code trong mục Options )

Cách Download MFunctions như sau:

- Bước 1: Click vào link dưới đây:
http://www.uploading.com/files/U6ZJ1969/MFunctions.zip.html
- Bước 2: Trên cửa sổ Download MFunctions của UPLOAD.COM ->
+ Click vào nút "DOWNLOAD FOR FREE" rồi chờ số 'xx' đếm ngược cho đến số 0 : chữ DOWNLOAD WILL START IN 'xx' SECONDS sẽ trở thành NOW CLICK BUTTON TO START DOWNLOAD
+ Click vào nút "DOWNLOAD FOR FREE" một lần nữa, sẽ hiện cửa sổ file download -> chọn Save để download về máy.
- Bước 3: Chọn nơi cần lưu trên máy, đặt tên và... chờ download xong.

(Còn nếu bạn muốn đăng ký trả tiền cho việc download thì chọn nút BUY PREMIUM ACCESS, tốc độ Download cho bạn cực nhanh, có thể lên tới 5Mb/s, và người Việt Nam thì không ai làm thế.)

-- --- --- Và một số links tham khảo:

Phần mềm trò chơi tâng bóng:
- Download Link:
http://www.uploading.com/files/U6ZJ1969/MFunctions.zip.html

Phần mềm trò chơi bắn bóng:
- Download Link:
http://www.uploading.com/files/BIU423KU/Ban_Bong.zip.html

Phần mềm soạn đề và thi trắc nghiệm trên máy vi tính:
- Download Link:
http://www.uploading.com/files/UA7BD088/Trac_Nghiem_Pro.zip.html

[xphuonga1]

Anh ơi.Em kô Download được.Link khó down quá.

[†a|<e$!]

Cảm ơn rất nhiều, bạn cho mình code để Stand by máy tính được không ? cái đồng hồ đa năng không down được, hoặc mình không biết cách đown trang này.

[lanhoamai]

Cách Download MFunctions như sau:

- Bước 1: Click vào link dưới đây:
http://www.uploading.com/files/OPFLDVG1/MFunctions.zip.html
- Bước 2: Trên cửa sổ Download MFunctions của UPLOAD.COM ->
+ Click vào nút "DOWNLOAD FOR FREE" rồi chờ số 'xx' đếm ngược cho đến số 0 : chữ DOWNLOAD WILL START IN 'xx' SECONDS sẽ trở thành NOW CLICK BUTTON TO START DOWNLOAD
+ Click vào nút "DOWNLOAD FOR FREE" một lần nữa, sẽ hiện cửa sổ file download -> chọn Save để download về máy.
- Bước 3: Chọn nơi cần lưu trên máy, đặt tên và... chờ download xong.

(Còn nếu bạn muốn đăng ký trả tiền cho việc download thì chọn nút BUY PREMIUM ACCESS, tốc độ Download cho bạn cực nhanh, có thể lên tới 5Mb/s, và người Việt Nam thì không ai làm thế.)

--- --- ---

- Các bạn thân mến ! Sau khi download MFunctions về máy thì không những bạn chỉ có được đoạn code Stand By mà Log Off, Restart, Shut down và nhiều bí kíp lập trình khác nằm trong đó. (Options - NDH_Soft/Source code)
- Chúc các bạn thành công !

[dorrte]

may ban oi ve ham shell(),minh co vai thac mac ,minh go
shell("%SystemRoot%\system32\mshearts.exe",1) thi may bao loi nhung minh ko biet loi gi ,may ban giai thich gium minh voi

[spammailxxx]

may ban oi ve ham shell(),minh co vai thac mac ,minh go
shell("%SystemRoot%\system32\mshearts.exe",1) thi may bao loi nhung minh ko biet loi gi ,may ban giai thich gium minh voi

Có phải báo lỗi là "File not found"? Lần sau bạn hỏi, bạn nhớ ghi rõ là báo lỗi gì nhé!
Còn câu lệnh Shell của bạn, nếu ứng dụng của bạn nằm trong C:\windows\system32 (%SystemRoot%\system32) xem như default cho nên bạn chỉ cần dùng lệnh thế này là OK:
Shell("mshearts.exe", 1) hay có thể viết Shell("mshearts", 1)

[QuyNam]

nếu muốn chạy các tập tin khác .exe , .bat thì dùng hàm API sau

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

[dorrte]

cam on nhieu nhe cac ban !