VB.NET图片晃动 vb怎么用命令按钮使图片移动

用vb.net如何编写图片浏览器的基本步骤功能是：图片的打开、显示、缩放、旋转。

窗体上放一个PictureBox，两个CommandButton，一个FileListBox

Private Sub Command1_Click()

If File1.ListIndex = 0 Then

ShowPic File1.ListCount - 1

Else

ShowPic File1.ListIndex - 1

End If

End Sub

Private Sub Command2_Click()

If File1.ListIndex = File1.ListCount - 1 Then

ShowPic 0

Else

ShowPic File1.ListIndex + 1

End If

End Sub

Private Sub Form_Load()

File1.Visible = False

File1.Pattern = "*.jpg;*.gif" '可以浏览的文件类型，使用分号隔开

File1.Path = App.Path '改成你需要浏览的目录，比如"C:\Pic"

If File1.ListCount 1 Then '目录中图片在两张以上可以浏览

ShowPic 0

Exit Sub

ElseIf File1.ListCount = 1 Then '目录中只有一张图片时只显示这一张

ShowPic 0

End If

Command1.Enabled = False

Command2.Enabled = False

End Sub

Private Sub ShowPic(Index As Long)

File1.ListIndex = Index

Picture1.Picture = LoadPicture(File1.Path "\" File1.List(Index))

End Sub

如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！

vaela

相关问答

Q1: VB图片移动问题

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode  Image1.Tag Then '第二次按下某键可以不执行语句

        Select Case KeyCode

            Case 37 '左

                Image1.Picture = LoadPicture("C:\图片A.jpg")

                Image1.Left = Image1.Left - 50

            Case 38 '上

                Image1.Picture = LoadPicture("C:\图片C.jpg")

                Image1.Top = Image1.Top - 50

            Case 39 '右

                Image1.Picture = LoadPicture("C:\图片B.jpg")

                Image1.Left = Image1.Left + 50

            Case 40 '下

                Image1.Picture = LoadPicture("C:\图片D.jpg")

                Image1.Top = Image1.Top + 50

        End Select

        Image1.Tag = KeyCode

    End If

End Sub

Private Sub Form_Load()

    Image1.Tag = 1

End Sub

Q2: vb.net PictureBox透明图片移动是抖动怎么解决。

窗体或picturebox属性里设置双缓冲

timer1刷新频率别太高VB.NET图片晃动，移动像素点可以大点

Q3: 在VS2008中，如何让VB.net中的图片动起来

不是语言让图片动起来的，而是图片本身就能动，例如gif格式图片本身就是动画。如果你讲的是图片在网页上移动，而不是图片本身内容的动作，那么不是vb.net的功能必须用java脚本来实现。

Q4: VB.net 里窗体背景设置为gif 格式图片后，图片不动怎么办？

其实方法是去解析GIF文件，如果楼主觉得麻烦，可以到网上去下个别人做好了的GIF控件（类）。

Q5: 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图片晃动的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb怎么用命令按钮使图片移动、VB.NET图片晃动的信息别忘了在本站进行查找喔。