[Học phần mềm] AutoPlay 6 Nghe nhạc, xem phim trong máy tính

424

Phần này giống như bài 5./ Xem hinh trong máy tính. Nhấn nút Load chọn file trong máy tính, chọn file trong Listbox và nhấn Open để xem

Tạo 2 Buttons, 1 ListBox, 1 MediaPlayer (Object > Plugins > MediaPlayer)
On Click của Button1:

–Disable listbox Updating
ListBox.SetUpdate(“ListBox1”, false);
–Get the desired folder to browse
folder = Dialog.FolderBrowse(“Open Folder”, “C:\Music”);
–populate tables with all the .jpg and .png files
file_mp3 = File.Find(folder, “*.mp3”, false, false, nil);
file_mp4 = File.Find(folder, “*.mp4”, false, false, nil);
audio = {file_mp3, file_mp4};
–do the following for each file:
for k in pairs(audio) do
for j,file_path in pairs(audio[k]) do
ListBox.AddItem(“ListBox1”, String.SplitPath(file_path).Filename, file_path);
end
end
–Allow the listbox to display the updated content
ListBox.SetUpdate(“ListBox1”, true);

On Click của Button2:

selected = ListBox.GetSelected(“ListBox1”);
if (selected ~= nil)
then
for j,k in pairs(selected) do
MediaPlayer.Load(“Plugin1”, ListBox.GetItemData(“ListBox1”, k));
end
else
Dialog.Message(“Hello”, “Select music first!!!”)
end

THÔNG TIN GÓP Ý

Quý thầy cô hoặc bạn đọc muốn đóng góp tài liệu, vui lòng gửi về:
Fanpage: https://www.facebook.com/linhhoitrithuc (Chia sẻ tài nguyên miễn phí)
Email: linhhoitrithuc@gmail.com

Tags: máy tính

Những tin đã đăng