VB中filelistbox,我想做个双击就显示选中图片

显示用picture1控件,该怎么弄啊

举报该问题

推荐答案 2014-04-28

Private Sub File1_Click()

Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End Sub

Private Sub Form_Load()
File1.Path = "E:\Program Files (x86)\Tencent\QQGAME\Res\CreateRole" 'bmp文件位置
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/vtBvvetXW7XzzOttevX.html

相似回答

VB里怎样实现点击一个命令按钮就使Filelistbox里的第一个文件被选中答：这个简单：Private Sub Command1_Click() '单击则选中第一个文件 File1.ListIndex = 0 End Sub Private Sub Command2_Click() '单击则选中下一个文件，到最后一个文件后若单击则转到第一个文件 If File1.ListIndex < File1.ListCount - 1 Then File1.ListIndex = File1.ListIndex + ...

VB做个图片的查看器就是点图片能切换到下一张如此循环答：'窗体form1上画3个command按钮，1个FileListBox文件列表控件，1个PicrureBox图像框控件，1个CommonDialog文件浏览控件 '将以下代码复制到Form1的代码区 Private FileIdx As Long '文件索引号 Private APath As String '图片文件夹 Private Sub Form_Load() '初始化控件 Command1.Top = 0 Command2....

VB读取文件夹里面的图片答：在窗体上添加一个filelistbox然后设置属性，只显示图片。pattern：*.jpg 然后为她设置目录。之后就会列出你需要播放的图片了。你做一个timer，在里面编辑代码，让picturebox显示list里面的图片。显示一个之后，list往下一一个，也就是显示下一个，到最底下之后，又返回第一个。还有显示时间，问题，你可以...

vb中关于filelistbox控件的问题答：SHFileOperation SHFileOp MsgBox "复制完成"End Sub 注意：这是后台的一个拷贝，复制的过程当中软件还能操作，但是你要理解vb 的api函数的一些声明和用法，特别是SHFileOperation的用法。2：FILELISTBOX控件显示文件的时候如何实现双击时删除选定的文件的解决：在frm之中：一个listbox控件 Option Explicit Pri...

VB 6.0中如何在代码中设置FileListBox控件的高度?答：深入探索：在VB 6.0中精细调整FileListBox控件的高度让我们一步步地来设置VB 6.0中的FileListBox控件高度，让用户体验更加流畅。首先，启动你的VB 6.0图标，双击以进入程序（请确保你已找到并启动了VB 6.0）。在新建工程界面，选择"标准EXE"模板，然后点击箭头指示的"打开"选项，创建一个新的工作...

vb中双击listbox中一项使其在文本框中显示的程序答：添加窗体，添加listbox控件list1，添加文本框text控件text1,代码如下：Private Sub Form_Load()For i = 1 To 20List1.AddItem "编号：" & iNext iEnd SubPrivate Sub List1_DblClick()Text1 = List1.List(List1.ListIndex)End Sub运行后，达到你的要求，效果如下：...

Visual Basic中实现带预览的对话框答：程序示例：程序功能说明：在窗体的file1中选择一个图片文件，点选“预览”复选框，image控件就显示相应的图片，label1就显示该图片的大小。新建一个工程，加入以下控件：控件名称属性form form1 borderstyle=3(vbsizedouble)caption=“图片预览对话框"drivelistbox drive1dirlistbox dir1filelistbox ...

用vb.net如何编写图片浏览器的基本步骤功能是:图片的打开、显示、缩放...答：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 =...

vb listbox控件中的某些项如何设置为默认选中?答：如果是单项选择的ListBox，那么只要把选项设为当前选项即可：List1.ListIndex = 5 '把第6项设为默认选中如果是多项选择的ListBox（MultiSelect属性不为0），则可以用Selected属性：List1.Selected(2) = True '第3项默认选中 List1.Selected(4) = True '第5项也默认选中 ...

大家正在搜

为什么excel双击才显示桌面图标双击显示属性双击变成了显示属性为什么快手双击不显示双击应用直接显示属性文档双击打开显示属性双击文档只显示属性 vivo双击亮屏怎么设置方法双击