- SeeJoPlayer Anroid 视频播放器源码 安卓系统简单的视频播放器源码 供大家学习
- VVirtualCameri VirtualCamera 虚拟视视频设备 超级好用 很多地方都可以用到
- AlphaBlend-CSharp alpha blend two color transparence
- Thomas_couette 采用Thomas方法计算不可压缩Couette流的fortran程序
- DePhe Unpacker/deobfuscator version 1.0.0 to Phoenix.
- huxiao 提出了一种适合拖曳线列阵鱼雷自导系统的新的被动水声探测盲自适应波束形成器
文件名称:Project1
-
所属分类:
- 标签属性:
- 上传时间:2012-11-16
-
文件大小:2.24kb
-
已下载:0次
-
提 供 者:
-
相关连接:无下载说明:别用迅雷下载,失败请重下,重下不扣分!
介绍说明--下载内容来自于网络,使用问题请自行百度
vb 读取EXCEL中的趋势图比如D盘下有一名为graph的Excel文件。里面有一个直方图。现在新建一个窗体,窗体上放置一个PictureBox,一个按钮。单击按钮,将读取D:/graph.xls中的直方图到图片框-Private Sub Command1_Click()
Dim mXlsApp As Excel.Application 应用
Dim mXlsBook As Excel.Workbook 工作薄
Dim mXlsSheet As Excel.Worksheet 工作表
Set mXlsApp = New Excel.Application
Set mXlsBook = mXlsApp.Workbooks.Open("D:\graph.xls")
Set mXlsSheet = mXlsBook.Worksheets(1)
以下代码读取Excel中图表到图片框
mXlsSheet.ChartObjects(1).Chart.CopyPicture 读取图表到剪贴板
Picture1.Picture = Clipboard.GetData 粘贴数据到图片框
Clipboard.Clear 清除剪贴板数据
mXlsBook.Close
mXlsApp.Quit
Set mXlsSheet = Nothing
Set mXlsBook = Nothing
Set mXlsApp = Nothing
End Sub
Dim mXlsApp As Excel.Application 应用
Dim mXlsBook As Excel.Workbook 工作薄
Dim mXlsSheet As Excel.Worksheet 工作表
Set mXlsApp = New Excel.Application
Set mXlsBook = mXlsApp.Workbooks.Open("D:\graph.xls")
Set mXlsSheet = mXlsBook.Worksheets(1)
以下代码读取Excel中图表到图片框
mXlsSheet.ChartObjects(1).Chart.CopyPicture 读取图表到剪贴板
Picture1.Picture = Clipboard.GetData 粘贴数据到图片框
Clipboard.Clear 清除剪贴板数据
mXlsBook.Close
mXlsApp.Quit
Set mXlsSheet = Nothing
Set mXlsBook = Nothing
Set mXlsApp = Nothing
End Sub
(系统自动生成,下载前可以参看下载内容)
下载文件列表
Form1.frm
Project1.vbp
MSSCCPRJ.SCC
Project1.vbw
Project1.vbp
MSSCCPRJ.SCC
Project1.vbw
本网站为编程资源及源代码搜集、介绍的搜索网站,版权归原作者所有! 粤ICP备11031372号
1999-2046 搜珍网 All Rights Reserved.