Đang chuẩn bị liên kết để tải về tài liệu:
Đoạn code VB mẫu dùng cho việc load ảnh và hiển thị vào PictureBox1

Chương trình sẽ thực hiện load 1 ảnh lên picturebox trên Form. • Sau đó tiến hành chia ảnh thành nhiều phần và hiển thị riêng biệt (như trong các trò chơi ghép tranh). • Người chơi có thể di chuyển các phần ảnh đến vị trí mong muốn trên Form. Đáp: Thông tin về định dạng file ảnh *.jpg, *.bmp. có thể tìm thấy trên Internet, tuy nhiên việc tìm hiểu và nắm vững định dạng file ảnh (nhất là định dạng phức tạp như jpg, gif.) sẽ rất khó khăn và tốn nhiều thời gian. Do đó. | Đoạn code VB mẫu dùng cho việc load ảnh và hiển thị vào PictureBoxl Xin hỏi về định dạng ảnh JPG BMP. cách thức truy xuất file ảnh và giải thuật cắt ảnh thành nhiều phần Tôi muốn viết 1 chương trình có chức năng như sau bằng Delphi hay VB Chương trình sẽ thực hiện load 1 ảnh lên picturebox trên Form. Sau đó tiến hành chia ảnh thành nhiều phần và hiển thị riêng biệt như trong các trò chơi ghép tranh . Người chơi có thể di chuyển các phần ảnh đến vị trí mong muốn trên Form. Đáp Thông tin về định dạng file ảnh .jpg .bmp. có thể tìm thấy trên Internet tuy nhiên việc tìm hiểu và nắm vững định dạng file ảnh nhất là định dạng phức tạp như jpg gif. sẽ rất khó khăn và tốn nhiều thời gian. Do đó bạn nên cố gắng dùng lại các thư viện và linh kiện phần mềm hỗ trợ việc xử lý file ảnh trong khi viết ứng dụng của mình. Cụ thể để viết 1 chương trình có các chức năng mà bạn yêu cầu bạn chỉ cần dùng các hàm API của Windows hay các hàm của VB là đủ. Cụ thể nếu bạn dùng VB và dùng các hàm API của Windows để viết ứng dụng thì Việc load ảnh và hiển thị vào PictureBoxl có thể thực hiện bởi đoạn code VB mẫu như sau Khai báo hằng cần dùng Private Const LR_LOADFROMFILE 16 used with LoadImage Private Const SRCCOPY HCC0020 used to determine how a blit Private Const IMAGE_BITMAP O0 used with LoadImage to load a Private Const LR_CREATEDIBSECTION 8192 used with LoadImage khai báo kiểu BITMAP Private Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As Long End Type khai báo các hàm API cần dùng Private Declare Function GetObject Lib gdi32 Alias GetObjectA ByVal hObject As Long ByVal nCount As Long lpObject As Any As Long Private Declare Function LoadImage Lib user32 Alias LoadImageA ByVal hInst As Long ByVal lpsz As String ByVal un1 As Long ByVal n1 As Long ByVal n2 As Long ByVal un2 As Long As Long Private Declare Function CreateCompatibleDC Lib gdi32 ByVal hdc As Long As Long Private Declare Function SelectObject