Khi hoàn thành Menu thì bạn dùng lệnh end Sau đây là cấu trúc một menu mẫu: if e_ID==1 then Page.Jump"Page1"; elseif e_ID==2 then Page.Jump"Page2"; elseif e_ID==3 then Page.Jump"Page3";
Trang 1Khi hoàn thành Menu thì bạn dùng lệnh end
Sau đây là cấu trúc một menu mẫu:
if e_ID==1 then
Page.Jump("Page1");
elseif e_ID==2 then
Page.Jump("Page2");
elseif e_ID==3 then
Page.Jump("Page3");
elseif e_ID==4 then
Page.Jump("Page4");
elseif e_ID==5 then
Window.Minimize(Application.GetWndHandle());
elseif e_ID==6 then
Application.Exit();
end
Scrapbook
Khi bạn kéo chuột đến một vị trí nào đó thì hiện lên một bức ảnh minh họa cho nó Thật tuyệt phải không
Mấu chốt của vấn đề là dựa vào các blank Imagine ( ảnh trong suốt không màu .định dạng png) liên kết với nhau
Ghé thăm một blank Imagine ra lệnh bất kì ta thấy
Chuỗi Code sau
Image.Load("9", "AutoPlay\\Images\\photos\\1.jpg");
Ở đây là lệnh gọi image với đương dẫn AutoPlay\\Images\\photos\\1.jpg");
Còn vị trí hiển thị là đối tượng "9", ( đó chính là blank imagine Lớn mà thui)
Ngoài ra bạn còn có thể thay thế những blank Image này thành những bức ảnh bất kì cũng chẳng sao (để blank image chẳng qua để đẹp hơn thui)
Bạn ghé vô page Propeties /thẻ On show
Có những chuỗi code sau:
Trang 2Image.Load("1", "AutoPlay\\Images\\photos\\thumbs\\1.jpg");
Image.Load("2", "AutoPlay\\Images\\photos\\thumbs\\2.jpg");
Image.Load("3", "AutoPlay\\Images\\photos\\thumbs\\3.jpg");
Image.Load("4", "AutoPlay\\Images\\photos\\thumbs\\4.jpg");
Image.Load("5", "AutoPlay\\Images\\photos\\thumbs\\5.jpg");
Image.Load("6", "AutoPlay\\Images\\photos\\thumbs\\6.jpg");
Image.Load("7", "AutoPlay\\Images\\photos\\thumbs\\7.jpg");
Image.Load("8", "AutoPlay\\Images\\photos\\thumbs\\8.jpg");
Image.Load("9", "AutoPlay\\Images\\photos\\" Math.Random(8, nil) ".jpg");
Đó là những Image đc load cùng lúc khởi động với chương trình (hiển thị mặc định trong chương trình)
SlideShow
Hãy thử tạo 1 Silde Show ảnh coi
*Tại Nút Load
Thẻ Onclick Cho ta thấy đoạn code sau:
The script below makes use of the following global functions (Project >
Globals):
LoadImage(number)
The script below makes use of the following global variables (Project >
Globals):
tImageFiles
Prompt the user for a folder to load images from
sImageFolder = Dialog.FolderBrowse("Load images from this directory:", _
DesktopFolder);
Check if the user pressed cancel
if sImageFolder ~= 'CANCEL' then
Clear out old images
tImageFiles = {};
Trang 3Specify the allowed extensions
tAllowedExtensions = {"bmp",
"apm","emf","gif","jpg","jpeg","pcd","psd","pcx","png","tga","tif","tiff","wmf"};
Perform the following for each extension defined above
for nIndex, sExtension in tAllowedExtensions do
Find files matching current extension (do not scan sub-folders) tFoundFiles = File.Find(sImageFolder, "*." sExtension, false, false, LoadingImagesCallback, nil);
Check if any files were found
if tFoundFiles then
Count the number of images in the global table so far nImagesSoFar = Table.Count(tImageFiles);
Add every found image file to the end of the global table for nImage, sPath in tFoundFiles do
tImageFiles[nImagesSoFar + nImage] = tFoundFiles[nImage];
end end
end
Check if at least one image exists in the global table
if tImageFiles[1] then
at least one image file exists, set range for the table (the range is used in the function LoadImage to ensure the function never loads an image that doesn't exist in the table tImageFiles)
nMinImagePosition = 1;
nMaxImagePosition = Table.Count(tImageFiles);
Load the first image LoadImage(1);
else
No supported image files were found, alert the user Dialog.Message("Error", "No supported image files were found at:\r\n" sImageFolder);
end
end
Trang 4Nhìn vào những phần chữ hồng ta có thể thay đổi chúng đc
-Load images from this directory:", : mặc định là load trong Folder của chương trình
-{"bmp", “
apm","emf","gif","jpg","jpeg","pcd","psd","pcx","png","tga","tif","tiff","wmf"}; Những định dạng ảnh có thể Load
Nếu không tìm thấy ảnh ở Folder bạn chỉ định nó sẽ báo
("Error", "No supported image files were found at:\r\n"
*Tại Nút Next và Back
Tại Nút Back có dòng lệnh sau:
Đó là Load lùi dần với số lượng là 1 File ảnh
Tại nút Next có dòng lệnh sau:
Đó là Load tăng dần với số lượng là 1 File ảnh
*Tại thẻ Globals Functions:
Có dòng code sau
nCurrentImagePosition keeps track of which image
in the table is currently being displayed This
is used on the previous and next image buttons
nCurrentImagePosition = 1;
tImageFiles holds all of the paths to the image
files loaded from the folder specified by the user
tImageFiles = {};
LoadImage first checks if the requested index is
within the allowed range, and then loads the specified
image file into the image object
function LoadImage(nImagePosition)
Check if requested index is within the allowed range
(If it isn't, reset the position)
if nImagePosition < nMinImagePosition then
Trang 5Reset the position to the maximum value nImagePosition = nMaxImagePosition;
elseif nImagePosition > nMaxImagePosition then
Reset the position to the minimum value nImagePosition = nMinImagePosition;
end
Load the specified image file from the global table
Image.Load("Image1", tImageFiles[nImagePosition]);
Keep track of which image index was loaded
nCurrentImagePosition = nImagePosition;
end
Mặc đinh ở đây là Load "Image1"
Video Player
Cái này có đoạn Code sau tại Nút Load /thẻ onclick
vidFile = Dialog.FileBrowse(true, "Open File", _DesktopFolder, "Video Files (.avi, mpg, mpeg, wmv, asf, )|*.avi;*.mpg;*.mpeg;*.wmv;*.asf", "", "", false, true);
if (vidFile[1] ~= "CANCEL") then
Video.Load("Video1", vidFile[1], true, false);
End
***
Dialog.FileBrowse(true, "Open File" : Tìm đường dẫn đến File cần mở với tên Open File (bạn có thể thay đổi tên này) mặc định là chọn ở desktop
Các định dạng File có thể mở : "Video Files (.avi, mpg, mpeg, wmv, asf,
)|*.avi;*.mpg;*.mpeg;*.wmv;*.asf", "", ""
Video.Load("Video1",: video mặc định để load khi khởi động chương trình có tên
là Video1
Wallpaper ,Icon , Buton
Wallpaper