ĐĂNG KÝ NHẬN TIN

Nhập Email để nhận những bài viết mới nhất
Thống kê truy cập
  • Đang truy cập28
  • Máy chủ tìm kiếm1
  • Khách viếng thăm27
  • Hôm nay1,276
  • Tháng hiện tại17,142
  • Tổng lượt truy cập192,139
đề thi học kỳ 2 tiểu học
5512
GIÁO ÁN THEO CHỦ ĐỀ

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

Thứ hai - 15/03/2021 03:22 30 0
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


 

 Tags: máy tính
Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây