作者:Oo输不掉的气质 | 来源:互联网 | 2023-09-15 13:58
vb.net在100个picturebox控件上画同样的图,有什么简便的方法没,除了复制100遍代码我做了一个示例,在3*4的picturebox上画圆,你可以通过该参数来达到10
vb.net在100个picturebox控件上画同样的图,有什么简便的方法没,除了复制100遍代码
我做了一个示例,在3*4的picturebox上画圆,你可以通过该参数来达到100个圆。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For j As Integer = 0 To 2
For i As Integer = 0 To 3
Dim nPic As New PictureBox
With nPic
.Size = New Size(100, 100)
.Location = New Point(i * 150 + 20, j * 150 + 20)
.ImageLocation = "C:\Users\Xiansr\Pictures\丝绸\20121142591274218.jpg"
.Load()
End With
Me.Controls.Add(nPic)
Dim gm As Graphics = Graphics.FromImage(CType(Me.Controls.Item(i + (j * 4)), PictureBox).Image)
gm.DrawArc(Pens.White, 25, 25, 50, 50, 0, 360)
Next
Next
End Sub
VB程序设计数字拼图 游戏
用vb作游戏,呵呵,我以前听说有几个大型游戏就是用vb做的,不过现在都不用了,还是.net比较全面
VB.NET做拼图游戏需要的控件,如何让小图片移动
给你提供一个思路,
你既然知道BITBLT,基础不会太差的,我就简单明了的说下.
从你的问题看,最简单的方法,其实只需要一个picturebox.
然后定义一个4*3的Image数组img(3,2).横4纵3.
img(0,0)装入第一张图片,
img(1,0)装入第二张图片,
img(3,0)不使用.
以此类推,img(3,1)也不使用,
####但是,img(3,2)虽然不装入图片,
####其功能却和你思路中的"没图片的picturebox"相同.
我们可以定义两个变量x
,
y
As
Integer
初始的时候x=3,y=2,应该看出来了吧?这两个变量用来保存空白image的位置,方便你移动图片.
有了这种结构,剩下的工作就很简单了.
写一个方法来处理按键消息.例如:
如果此时x=1,y=1,用户按下了"上键",那么img(x,y)和Image(x,y-1)交换.然后y=y-1
如果此时x=1,y=1,用户按下了"左键",那么img(x,y)和image(x-1,y)交换.然后x=x-1
其实就是移动空白位置的方法.但是要注意,img(3,0),img(3,1),img(3,2)这三个特殊位置要做特殊处理.
最后,写个for循环,把img数组显示到picturebox上面就可以了.
很简单吧?不知道我说得是否清楚?
希望对你有所帮助.
VB.NET怎么将两张PNG图片合并成一个张,并保存成背景透明的图片。
用GDI
先建一个6400*4800的Image 类的位图图像 作为GDI画板
然后用Drawimage方法,加载小图像,并按坐标位置画进去
然后保存成文件
我有一个相似功能的VB.net代码,可以给你参考