问题描述
- VB6语句改成C#该怎么写
-
Dim dFile() As Byte
dFile = iRs.Fields("FData").Value‘二进制数据库字段
Dim smFile As ADODB.Stream
Set smFile = New ADODB.Stream
smFile.Type = adTypeBinary
smFile.Open
smFile.Write dFile
smFile.SaveToFile App.Path & "Tb.dat", adSaveCreateOverWrite
Dim ozip As Object
Set ozip = CreateObject("KDZIP.ZIP")
If Dir(App.Path & "Temp", vbDirectory) = "" Then '文件夹不存在
MkDir App.Path & "Temp" '在应用程序根目下,创建文件夹Backup
End If
ozip.DeCompress App.Path & "Tb.dat", App.Path & "TempItemImg.bmp"
Shell "rundll32 url.dll,FileProtocolHandler """ & App.Path & "TempItemImg.bmp" & """", vbNormalFocus
smFile.Flush
smFile.Close
Set ozip = Nothing
解决方案
无非就是图片以二进制压缩形式存在数据库中,你的代码读取出来,然后解压得到文件,最后调用rundll32
第一个步骤:
http://www.jb51.net/article/36148.htm
http://yisean.iteye.com/blog/542687
第二个步骤,因为你有KDZIP.ZIP,所以你同样可以引用这个库,调用DeCompress
创建目录在C#中是Directory.Create
最后一个步骤,Process.Start代替Shell
http://blog.csdn.net/gaiazhang/article/details/9170393
解决方案二:
有语言转换器软件,可以试试。例如VB TO VB.NET , VB.NET TO C#、
时间: 2024-12-24 08:13:08