在vb.net下怎么制作一个图片浏览器,根据用户选择的文件夹,程序自动搜索改文件夹下的图片文件。
怎么制作一个图片浏览器,根据用户选择的文件夹,程序自动搜索改文件夹下的图片文件,并在窗口中显示图片及其文件名,用户用鼠标后键盘进行循环翻图。有代码吗?说真的。我还没学过。...
怎么制作一个图片浏览器,根据用户选择的文件夹,程序自动搜索改文件夹下的图片文件,并在窗口中显示图片及其文件名,用户用鼠标后键盘进行循环翻图。
有代码吗?说真的。我还没学过。谢谢。 展开
有代码吗?说真的。我还没学过。谢谢。 展开
3个回答
展开全部
Public Class Form1
Private TPS As Integer
Private TPPath() As String '定义不确定元素个数组,及动态数组
Private Sub LoadPhoto()
'将图片路径及图片名加载到数组
Dim JS As Integer '计数用
For Each foundFile As String In My.Computer.FileSystem.GetFiles(CurDir() & "\职员图片")
TPS = TPS + 1 '将图片数存入变量中
Next
ReDim TPPath(TPS - 1) '确定数组大小
For Each FoundFile As String In My.Computer.FileSystem.GetFiles(CurDir() & "\职员图片")
'将图片路径存入数组
TPPath(JS) = FoundFile
JS = JS + 1
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadPhoto()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = TPPath.Length '获取数组大小
Label1.Text = TPPath(1) '获取数组中第2个元素的值
End Sub
Private TPS As Integer
Private TPPath() As String '定义不确定元素个数组,及动态数组
Private Sub LoadPhoto()
'将图片路径及图片名加载到数组
Dim JS As Integer '计数用
For Each foundFile As String In My.Computer.FileSystem.GetFiles(CurDir() & "\职员图片")
TPS = TPS + 1 '将图片数存入变量中
Next
ReDim TPPath(TPS - 1) '确定数组大小
For Each FoundFile As String In My.Computer.FileSystem.GetFiles(CurDir() & "\职员图片")
'将图片路径存入数组
TPPath(JS) = FoundFile
JS = JS + 1
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadPhoto()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = TPPath.Length '获取数组大小
Label1.Text = TPPath(1) '获取数组中第2个元素的值
End Sub
展开全部
微软MSDN官方示例代码(VB2010.net):
http://msdn.microsoft.com/zh-cn/library/dd492135(VS.100).aspx
http://msdn.microsoft.com/zh-cn/library/dd492135(VS.100).aspx
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
选择文件夹后把文件夹路径保存在变量dir中,穷举下面的文件和文件夹,把扩展名为图片格式的文件的名称存入一个数组中(这样dir + \ +名称就是文件路径)。然后设置窗体的鼠标和键盘事件,根据数组顺序变化显示的图片(窗体上起码得有个picturebox控件啦)
总体思路就是这样。
我晕那,下午传的没上来……………………
你到csdn上搜 vb.net 图片浏览器吧,百度好像有毛病,附件弄不上来,网址也更新不出来
总体思路就是这样。
我晕那,下午传的没上来……………………
你到csdn上搜 vb.net 图片浏览器吧,百度好像有毛病,附件弄不上来,网址也更新不出来
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |