Dùng hàm GetPixel để lấy màu trên UserForm nhưng kết quả không chính xác.

[giaiphap]

Mình dùng hàm GetPixel để lấy màu trên UserForm, nhưng không biết tại sao nó lấy không đúng và không lấy được hết tất cả các điểm trên UserForm. Cụ thể là mình muốn lấy màu hồng (Có mã màu Rgb(255,0,255)) trên UserForm, nhưng trên UserForm có màu hồng (Màu hồng này mình tô bằng Photoshop nên chắc chắc màu chính xác) xung quanh nhưng không biết tại sao mình dùng GetPixel để lấy những điểm màu hồng này ra thì nó lại không chính xác, thậm chí nó không lấy hết các màu trên UserForm nửa (Nó chỉ lấy phần trên còn phần dưới không lấy luôn), mình mò hoài vẫn chưa tìm ra nguyên nhân, bạn nào có kinh nghiệm dùng API GetPixel để lấy mã màu hướng dẫn mình khắc phục với. Cảm ơn mọi người trước!

 

[ThangCuAnh]

Hì hì, lại thiếu Option Explicit.
Thấy code nào mà không có dòng này là tui ngán hơm cơm nếp
Code bác sai nhiều lắm, tại sao lại * 2 Width và Height ? GetPixel lấy tọa độ pixel, chứ không phải tọa độ point, hay còn gọi là twips (1/72 inch) trong VB, VBA Userform.
Mà thôi, mục đích bác có code chạy được đã, thì cứ tạm copy, xem cái code này. Từ từ tìm hiểu sau. Nó tựa tựa đó, userform với image.

Extracting Colors from Image loaded in userform

Hi Guys, I am new to programming in Excel VBA, so I am quit unexperienced....Anyways, I would like to extract the colors of pixel of an image that'd been loaded into an userform. I am kinda stuck o this and got no clue how to do that. I have been searching the web o this for three days, but...

www.pcreview.co.uk

VB6: How to switch to pixels instead of twips

I am refactoring a VB6 application. The measurements of any of the controls are in twips. Is it possible in VB6 to set a control to use pixels instead of twips? Thanks

stackoverflow.com

How do I convert Twips to Pixels in .NET?

I'm working on a migration project in which a database actually stores display sizes in twips. Since I can't use twips to assign sizes to WPF or Winforms controls, I was wondering if .NET has a

stackoverflow.com

PS: Vì vậy cu anh tui mới nói VBA mà dùng API nó cứ tréo ngoe cẳng ngỗng sao đấy, như xe bò chạy trên cao tốc nối VN qua tàu.

 

[giaiphap]

Hì hì, lại thiếu Option Explicit.
Thấy code nào mà không có dòng này là tui ngán hơm cơm nếp

Trước hết cảm ơn bạn rất nhiều! Cái vụ API mình không rành lắm, mới tìm hiểu thử có vài hàm xem thế nào nên sai xót sẽ là điều hiển nhiên.

Code bác sai nhiều lắm, tại sao lại * 2 Width và Height ? GetPixel lấy tọa độ pixel, chứ không phải tọa độ point, hay còn gọi là twips (1/72 inch) trong VB, VBA Userform.

Cái vụ pixel thì mình cũng không rõ nên mình ghi đại vậy để test thử thôi, chứ trước khi đưa code lên đây mình có tham khảo một đoạn code họ ghi thế này.

i = CInt(Me.InsideHeight / 0.748) - 1
j = CInt(Me.InsideWidth / 0.748) - 1

nhưng kết quả vẫn không như ý muốn, cụ thể mặc dù j >500 nhưng code vẫn chỉ chạy khoảng 139 hàng thôi.

Từ từ tìm hiểu sau. Nó tựa tựa đó, userform với image.

Extracting Colors from Image loaded in userform

Hi Guys, I am new to programming in Excel VBA, so I am quit unexperienced....Anyways, I would like to extract the colors of pixel of an image that'd been loaded into an userform. I am kinda stuck o this and got no clue how to do that. I have been searching the web o this for three days, but...

www.pcreview.co.uk

VB6: How to switch to pixels instead of twips

I am refactoring a VB6 application. The measurements of any of the controls are in twips. Is it possible in VB6 to set a control to use pixels instead of twips? Thanks

stackoverflow.com

How do I convert Twips to Pixels in .NET?

I'm working on a migration project in which a database actually stores display sizes in twips. Since I can't use twips to assign sizes to WPF or Winforms controls, I was wondering if .NET has a

stackoverflow.com

PS: Vì vậy cu anh tui mới nói VBA mà dùng API nó cứ tréo ngoe cẳng ngỗng sao đấy, như xe bò chạy trên cao tốc nối VN qua tàu.

Những địa chỉ bạn nêu ở đây mình cũng từng tìm kiếm và nhìn thấy nó, nhưng vẫn chưa áp dụng được.
Cái mục đích chính của mình là muốn tìm hiểu cách lấy màu của các điểm trên UserForm, nhưng code lấy màu không chính xác và nó cũng chạy không hết vòng lặp, cụ thể trong code là nó chạy đủ giá trị của i (tọa độ theo chiều ngang) nhưng nó lại không chạy đủ giá trị của j (tọa độ theo chiều dọc), bạn có kinh nghiệm có thế giải thích nguyên nhân được không?