vb.net拼图,vb拼图游戏设计与代码

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

相关问答

Q1: VB程序设计数字拼图 游戏

用vb作游戏，呵呵，我以前听说有几个大型游戏就是用vb做的，不过现在都不用了，还是.net比较全面

Q2: 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上面就可以了.

很简单吧?不知道我说得是否清楚?

希望对你有所帮助.

Q3: VB.NET怎么将两张PNG图片合并成一个张，并保存成背景透明的图片。

用GDI

先建一个6400*4800的Image 类的位图图像 作为GDI画板

然后用Drawimage方法，加载小图像，并按坐标位置画进去

然后保存成文件

我有一个相似功能的VB.net代码,可以给你参考