Delphi浏览查看BMP图片文件,本程序要用到剪贴板,打开图片后将其装入tab中显示,如果tab目前对应clipboard并且在简帖版中的位图可用,则设置图片的属性可见,同时本程序还实现了图片的复制和剪切功能,通过拷贝和删除实现剪切: begin // 装入tab对应的页 TabNum := TabControl1.Tabs.IndexOf (Clipboard); if TabNum = 0 then //如果存在图片,则删除它 Tabs.Delete
代码如下: Dim im as Image=Image.FromFile (“C:/picture.bmp”) ‘获得Image System.Windows.Forms.Clipboard.SetDataObject(im, True) ‘复制到剪贴板
Dim xlApp As Excel.Application = New Excel.Application() Dim xlBook As Excel.Workbook
Dim