API
怎么获得最小化窗体中一个Picture1中的像素点颜色值？
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区Public Function yanse(file)
On Error Resume Next
me.Visible = false
Picture1.Picture = LoadPicture(file)
yanse= trim(Picture1.Point(2, 2))
End Function
这样获得的颜色会是错误的。
或者回答这种问题：
窗体中不显示图片，怎么获得一个图片文件的像素颜色值？
相关推荐
delphi 窗体的最大化最小化正常化以及加载图片
delphi 实现窗体的最大化，最小化还有正常化。还有加载图片。加载图片先创建GDI+对象，再获得图片数据，最后绘制图片。
vb窗体设计
内有设计窗体的图片，和运行效果图 该窗体由全图片构造，包括，标题栏，最大化、最小化、关闭按钮，一下为部分代码， Private Sub Form_load() Dim retValue As Long Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image7.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image8.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Form1.Top = 0 '设置窗体上边界位置 Form1.Left = Screen.Width - Form1.Width retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW) End Sub Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& End Sub Private Sub Image2_Click() Form1.WindowState = 1 End Sub Private Sub Image4_Click() End End Sub Private Sub Image5_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\9.jpg") End Sub Private Sub Image5_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") End Sub Private Sub Image6_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\9.jpg") End Sub Private Sub Image6_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") End Sub
基于OPENCV的读图片到Picture控件，自动缩放，自动重绘
有基于OPENCV的读图片到Picture控件，自动缩放，自动重绘，窗口最小化后图片不会消失，hough变换取直线
常用窗体的常用方法 十分详细简单
很详细的介绍了常用窗体的使用方法 常用窗体的常用方法 十分详细简单 窗体 控制 方法 使用
Picture in Picture-crx插件
语言:español 画中画 画中画
