UC知道问几段简单的vb.net代码
来源：百度知道 编辑：UC知道 时间：2024/07/07 16:38:41
这是我之前的提问，vbnet图片浏览器，还差删除和查看图片信息两段代码，希望有心人帮忙，同样高分~~
删除是指从电脑上彻底删除，放到了回收站那一种，而不止是在picturebox里的清除。
图片信息显示图片的基本信息就好了，宽高，像素，修改时间之类。
很寒的说，我会看会改，可就是不会写。。。
一楼的，郁闷死。。
二楼的，你就抄了我之前提问的打开的那段代码。。。
话说连错了的一个地方你都抄了呃。
说明一下，删除和查看图片信息都是按钮事件，删除的要求以上已说明，图片信息则希望是按下按钮可以弹出新的窗体显示信息。
ChikaIto ，查看图片信息可以用，不过删除那段，还是不行。。。。
不知可否帮忙修改一下？因为涉及到API，所以有点复杂～
没有报错，但是按下按钮啥反应都没有，真的什么都没有，就像没有按一样。不知道为什么啊。
啊 对 我忘了 打开文件的时候把得到的文件名放到这个变量里strFilename
是报错还是出现什么问题 我测试过可以啊 因为图片打开之后源文件是被使用的 所以我先拷贝了一个副本 再把原来的释放掉 这样才能删除
要删除到回收站好像没有什么现成的方法，我用了API
Imports System.IO
Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices
Public Class Viewer
Dim strFilename As String = String.Empty '存储文件名
'定义一些API及所需常量、结构，删除到回收站所需的，如需永久删除文件则可以不定义
Public Const FO_DELETE As Integer = &H3
Public Const FOF_NOCONFIRMATION As Short = &H10
Public Const FOF_ALLOWUNDO As Short = &H40
Declare Unicode Function SHFileOperation Lib "shell32.dll" (<[In](), Out()> ByVal sfo As SHFILEOPSTRUCT) As Int32
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Public Class SHFILEOPSTRUCT
Public hwnd As IntPtr
Public wFunc As UInt32
Public pFrom As String
Public pTo As String