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.ListCount1 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
VB图片移动问题Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCodeImage1.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
vb.net PictureBox透明图片移动是抖动怎么解决 。窗体或picturebox属性里设置双缓冲
timer1刷新频率别太高VB.NET图片晃动,移动像素点可以大点
在VS2008中,如何让VB.net中的图片动起来不是语言让图片动起来的,而是图片本身就能动,例如gif格式图片本身就是动画 。如果你讲的是图片在网页上移动,而不是图片本身内容的动作,那么不是vb.net的功能必须用java脚本来实现 。
VB.net 里窗体背景设置为gif 格式图片后,图片不动怎么办?其实方法是去解析GIF文件,如果楼主觉得麻烦,可以到网上去下个别人做好了的GIF控件(类) 。
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上面就可以了.

推荐阅读