如何将一张小图片充满 picturebox 的背景

2007-12-05 05:36:36 306 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C#图片处理实战：5种Sizemode模式详解与适用场景对比本文深入解析C# WinForms中PictureBox控件的5种SizeMode图片显示模式，包括Normal、StretchImage、AutoSize、CenterImage和Zoom。通过对比其对控件尺寸和图像显示的影响，并结合电商图片预览、证件照裁剪等实战场景，帮助开发者根据业务需求选择最合适的模式，确保图片不变形、完整显示或精准布局，提升应用的用户体验与开发效率。阅读详情

如何将一张小图片充满 picturebox 的背景?
就是把一张小图片(宽度是1像素)做PictureBox的背景。

给源代码。谢谢！

...全文

C# WinForm模拟流水灯：从硬件思维到软件实现的编程实战事件驱动编程是GUI开发的核心范式，其原理在于通过用户操作或系统事件触发预设的代码逻辑，实现界面与数据的动态交互。这种技术价值在于将复杂的异步流程封装为清晰的事件响应，极大提升了桌面应用的开发效率和用户体验。在工业控制、物联网监控等应用场景中，常需模拟硬件设备的可视化反馈，例如单片机上的流水灯效果。本文以C# WinForm为平台，通过定时器控件和PictureBox数组，构建了一个软件流水灯模拟器，演示了如何利用事件驱动和状态机实现顺序流动、对称闪烁等多种灯光模式，为从硬件思维过渡到软件开发的初学者提供了阅读详情

redsuntv

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

zhh0086 2007-12-19

打赏
举报

高手

东方之珠 2007-12-14

打赏
举报

上面这个代码，要事先在SmallPicture中加载一张小图片。

Private Sub Form_Load()
SmallPicture.Picture=LoadPicture("c:\qq.bmp")
SmallPicture.ScaleMode=3
Picture1.ScaleMode=3
End Sub

东方之珠 2007-12-14

打赏
举报

我试了一下，你9楼那个根本不行。原因是没有用像素座标，我以为你是内行，结果你没有用像素座标！
下面这个代码我已经调试过了，完全没问题。只需在Form1窗体中添加一个命令按钮Command1，2个图片框SmallPicture、Picture1：
Option Explicit

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 Const SRCCOPY = &HCC0020 ' (DWORD) dest = source

Private Sub Command1_Click()
Dim i As Long, j As Long
Dim hs As Long, ws As Long, w As Long, h As Long
hs = SmallPicture.ScaleHeight
ws = SmallPicture.ScaleWidth
h = Picture1.Height
w = Picture1.Width

For i = 0 To h / hs
For j = 0 To w / ws
BitBlt Picture1.hDC, j * ws, i * hs, ws, hs, SmallPicture.hDC, 0, 0, SRCCOPY
Next
Next
End Sub

Private Sub Form_Load()
SmallPicture.ScaleMode = 3
Picture1.ScaleMode = 3
End Sub

东方之珠 2007-12-14

打赏
举报

SRCCOPY=&HCC0020

redsuntv 2007-12-13

打赏
举报

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 Sub Form_Click()
Dim i As Long, j As Long
hs = SmallPicture.Height
ws = SmallPicture.Width
h = Picture1.Height
w = Picture1.Width

For i = 0 To h / hs
For j = 0 To w / ws
BitBlt Picture1.hDC, j * ws, i * hs, ws, hs, SmallPicture.hDC, 0, 0, SRCCOPY
Next
Next
End Sub

按3楼 4楼的方法根本不行.

redsuntv 2007-12-13

打赏
举报

我要的就是一楼这样的东西
感谢!

tingting1123 2007-12-06

打赏
举报

...没什么区别 1象素？楼主有没有搞错？

砸死牛顿的苹果 2007-12-05

打赏
举报

宽度为 "1" 的图像平铺和拉伸有区别吗?

东方之珠 2007-12-05

打赏
举报

哦，错啦， BitBlt Picture1.hdc,j*ws,i*hs,w,h,SmallPicture.hdc,0,0,SRCCOPY 里面的w，h分别改为ws,hs

东方之珠 2007-12-05

打赏
举报

假设小图片框为：SmallPicture 高度为hs,宽度为ws；Picture1高度为h,宽度为w。

代码如下：
dim i as long,j as long
for i=0 to h/hs
for j=0 to w/ws
BitBlt Picture1.hdc,j*ws,i*hs,w,h,SmallPicture.hdc,0,0,SRCCOPY
next
next

东方之珠 2007-12-05

打赏
举报

楼上是将宽度1像素的图片放大充满整个图片框吧，那还看得清吗？楼上误解了楼主的意思吧！
楼主的意思是将宽度1像素的图片一张一张地铺满整个图片框！必须用API函数BitBlt才能解决！

砸死牛顿的苹果 2007-12-05

打赏
举报

'假设背景图片是 e:\1.jpg
Dim p As New StdPicture
Set p = LoadPicture("e:\1.jpg")
Picture1.PaintPicture p, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight

如何将一张小图片充满 picturebox 的背景

相关推荐