Tài liệu Đoạn code VB mẫu dùng cho việc load ảnh và hiển thị vào PictureBox1 pdf

Đoạn code VB mẫu dùng cho việc load ảnh và hiển thị vào PictureBox1 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ế

Đoạn code VB mẫu dùng cho việc load ảnh và hiển thị vào PictureBox1

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 PictureBox1 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 Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long,ByVal x As Long, ByVal

y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

Private Sub btnLoad_Click()

Dim hBitmap As Long ‘ handle của bitmap cần nạp vào

Dim lResult As Long ‘ biến chứa kết quả gọi hàm API

Dim sFileName As String ‘ tên file chứa ảnh

Dim BitmapData As BITMAP ‘ biến chứa thông tin về ảnh

Dim iImageDC As Long ‘ DC chứa ảnh bitmap

‘ thiết lập đường dẫn của file ảnh

sFileName = "c:\windows\winnt256.bmp"

‘ nạp ảnh từ file vào bộ nhớ

hBitmap = LoadImage(0, sFileName, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE)

If (hBitmap = 0) Then

MsgBox "Error : Unable To Load Bitmap Image : " & sFileName, _

vbOKOnly, "Bitmap Load Error"

Exit Sub

End If

‘tạo đối tượng chứa thông tin ảnh

lResult = GetObject(hBitmap, Len(BitmapData), BitmapData)

If (lResult = 0) Then Exit Sub

‘tạo 1 device context (DC) tạm chứa ảnh

iImageDC = CreateCompatibleDC(0)

If (iImageDC = 0) Then Exit Sub

‘cất ảnh vào device context

lResult = SelectObject(iImageDC, hBitmap)

If (lResult = 0) Then Exit Sub

‘thiết lập đơn vị đo theo pixel

Picture1.ScaleMode = vbPixels

‘vẽ ảnh từ DC sang PictureBox1, có scale từ kích thước thực về kích thước của PictureBox lResult = StretchBlt(Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, iImageDC, 0,

0, BitmapData.bmWidth, BitmapData.bmHeight, SRCCOPY)

End Sub

• Việc copy 1 vùng ảnh từ DC này sang DC khác có thể thực hiện bởi đoạn code VB mẫu như sau:

Private Sub btnCopy_Click()

Dim x As Integer

Dim y As Integer

Dim lResult As Long

‘khởi động qui trình tính số ngẫu nhiên

‘tìm vị trí ngẫu nhiên của vùng ảnh trong PictureBox1 cần copy

x = Int((Picture1.ScaleWidth - 100) * Rnd)

y = Int((Picture1.ScaleHeight - 100) * Rnd)

‘copy vùng ảnh hình vuông (100,100) ở toạ độ x,y của PictureBox1 sang góc trên trái của PictureBox2

lResult = BitBlt(Picture2.hdc, 0, 0, 100, 100, Picture1.hdc, x, y, SRCCOPY)

End Sub