• 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

trình chiếu powerpooint trên vb6

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Điều hành viên: tungblt

hongha1805
Thành viên chính thức
Thành viên chính thức
Bài viết: 14
Ngày tham gia: T.Năm 28/06/2012 8:11 am
Has thanked: 3 time
Been thanked: 4 time

trình chiếu powerpooint trên vb6

Gửi bàigửi bởi hongha1805 » T.Năm 28/06/2012 8:18 am

mình đang làm đề tài trong đó mình dùng driverlistbox, dirlistbox, filelistbox để trình chiếu các file powerpoint dưới dạng show. nhưng khi mình làm chỉ trình chiếu được một file cố định. bây giờ mình muốn các bạn giúp mình khi click vào các file trong filelistbox đều trình chiếu được. cảm ơn nhiều



tuancuong.vb
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 65
Ngày tham gia: T.Sáu 19/03/2010 8:20 pm
Has thanked: 2 time
Been thanked: 7 time

Re: trình chiếu powerpooint trên vb6

Gửi bàigửi bởi tuancuong.vb » T.Năm 28/06/2012 8:21 am

Có source hay code không bạn,...nói như vậy thì sao biết đường mà giúp..

hongha1805
Thành viên chính thức
Thành viên chính thức
Bài viết: 14
Ngày tham gia: T.Năm 28/06/2012 8:11 am
Has thanked: 3 time
Been thanked: 4 time

Re: trình chiếu powerpooint trên vb6

Gửi bàigửi bởi hongha1805 » T.Năm 28/06/2012 8:29 am

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


Private Sub File1_Click()
ShellExecute 0, "", "C:\program files\microsoft office\office11\POWERPNT.exe", "/O ""C:\HLTB12\baigiang\baocaoKH1.PPS""", "", vbNormalFocusEnd
End Sub

cảm ơn nhiều

hongha1805
Thành viên chính thức
Thành viên chính thức
Bài viết: 14
Ngày tham gia: T.Năm 28/06/2012 8:11 am
Has thanked: 3 time
Been thanked: 4 time

Re: trình chiếu powerpooint trên vb6

Gửi bàigửi bởi hongha1805 » T.Năm 28/06/2012 8:42 am

Đây là toàn bộ đề tài của mình
Tập tin đính kèm
HLTB12.rar
trình chiếu powerpoint trên vb6
(1.62 MiB) Đã tải 208 lần

hongha1805
Thành viên chính thức
Thành viên chính thức
Bài viết: 14
Ngày tham gia: T.Năm 28/06/2012 8:11 am
Has thanked: 3 time
Been thanked: 4 time

Re: trình chiếu powerpooint trên vb6

Gửi bàigửi bởi hongha1805 » CN 09/06/2013 8:49 am

Bây giờ khi mình làm xong nó lại báo lỗi thế này: User-defined type not defined. ai có thể giúp mình được không
Private Sub File1_DblClick()
Dim FileSelect As String
Dim FileHienthoi As String
Dim PP As PowerPoint.Application -->báo lỗi ở dòng này
Dim Pres As PowerPoint.Presentation
Dim i As Integer
Dim PPsList As String, PPtList As String


FileSelect = File1.FileName
FileHienthoi = Dir1.Path & "\" & FileSelect

Set PP = CreateObject("PowerPoint.Application")
Set Pres = PP.Presentations.Open(FileHienthoi, WithWindow:=False)
PP.Presentations(1).SlideShowSettings.Run
End Sub

OKMimo
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 445
Ngày tham gia: T.Sáu 11/02/2011 3:36 pm
Has thanked: 107 time
Been thanked: 56 time

Re: trình chiếu powerpooint trên vb6

Gửi bàigửi bởi OKMimo » CN 09/06/2013 9:17 am

Bạn thay As PowerPoint.Application (của PP) hoặc As PowerPoint.Presentation (của Pres) thành As Object. Chúc thành công!

hongha1805
Thành viên chính thức
Thành viên chính thức
Bài viết: 14
Ngày tham gia: T.Năm 28/06/2012 8:11 am
Has thanked: 3 time
Been thanked: 4 time

Re: trình chiếu powerpooint trên vb6

Gửi bàigửi bởi hongha1805 » T.Tư 30/05/2018 3:54 pm

ok rồi, cảm ơn bạn nhiều


Quay về “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Đ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.2 khách