标题:有没有懂microsoft visual studio2010中使用vb程序设计读取、保存数据,及绘 ...
取消只看楼主
YourHeroorMe
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2016-7-19
结帖率:0
已结贴  问题点数:20 回复次数:4 
有没有懂microsoft visual studio2010中使用vb程序设计读取、保存数据,及绘图
  microsoft visual studio2010中使用vb程序设计中,如何导入、保存txt文件,和如何导入、保存Excel文件。
以及如何调用中望cad2010根据坐标数据进行绘图啊,求编程技巧及模板,感恩不尽。
搜索更多相关主题的帖子: microsoft vb程序设计 cad2010 visual Excel 
2016-07-19 21:27
YourHeroorMe
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2016-7-19
得分:0 
回复 2楼 xiangyue0510
谢谢你的帮助,还存在一些问题
vs2010里面的vb设计跟vb6.0在语法有一些区别,文件的打开与保存,vs2010的vb中不能使用open语句
打开excel文件区别也好大,不能用相似来说
关于调用cad根据坐标进行自动画图然后导出dxf文件,这个网上百度不到,根本不清楚怎么弄
希望有更多人来帮帮忙解决
2016-07-20 09:09
YourHeroorMe
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2016-7-19
得分:0 
打开txt文件,open语句不能用,换其他什么语句啊
里面没有set语句,调用Excel文件跟不好说
        Dim xlApp As New Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
        xlApp.Visible = True
        xlApp.Workbooks.Open("C:\Users\Administrator\Desktop\新建 Microsoft Excel 工作表.xlsx")
        SetAttr(xlApp = CreateObject("Microsoft.Office.Interop.Excel.Application"))
        SetAttr(xlBook = xlApp.Workbooks.Open(1))
报错没有Microsoft.Office.Interop.Excel.Application类型和object运算符
你看看能不能在哪里可以查到怎么调txt文件,和Excel文件么
在图片框里画图可以导出为dxf格式的么

2016-07-20 15:10
YourHeroorMe
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2016-7-19
得分:0 
回复 5楼 YourHeroorMe
打开txt文件,open语句不能用,换其他什么语句啊
里面没有set语句,调用Excel文件跟不好说
        Dim xlApp As New Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
        xlApp.Visible = True
        xlApp.Workbooks.Open("C:\Users\Administrator\Desktop\新建 Microsoft Excel 工作表.xlsx")
        SetAttr(xlApp = CreateObject("Microsoft.Office.Interop.Excel.Application"))
        SetAttr(xlBook = xlApp.Workbooks.Open(1))
报错没有Microsoft.Office.Interop.Excel.Application类型和object运算符
你看看能不能在哪里可以查到怎么调txt文件,和Excel文件么
在图片框里画图可以导出为dxf格式的么
2016-07-20 15:12
YourHeroorMe
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2016-7-19
得分:0 
恩恩,已经会调用和保存txt文件了
        Dim str1 As String
        FileOpen(1, "C:\Users\Administrator\Desktop\x.txt", OpenMode.Input)
        Do Until EOF(1)
            Input(1, str1)
            TextBox1.Text = TextBox1.Text + str1
        Loop
        FileClose(1)
打开和保存Excel文件还有一些问题
2016-07-21 09:13



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-467060-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.314710 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved