万卷图书 - Powered by Discuz! Board

标题: vb从入门到实践一书作者联系方式，欢迎就书籍内容进行提问 [打印本页]

作者: skyrising 时间: 2009-11-1 09:43 标题: vb从入门到实践一书作者联系方式，欢迎就书籍内容进行提问

本帖最后由 skyrising 于 2009-11-1 09:45 编辑

大家好：
我是vb从入门到实践一书的作者，辛本柱，网名天空飞翔。很高兴和诸位就书籍内容进行探讨。为了方便学习与讨论，特将本人联系方式留下来。欢迎大家与我关于vb编程的问题进行探讨。
本人10年做项目经历，专注于数据库编程、网络编程、多媒体编程。
我的qq512858077或skyrising@163.com或www.skyrising.com网站。

                                                辛本柱
                                                09.11.1

作者: fwbook 时间: 2009-11-1 09:45

支持。

作者: cfgde2003 时间: 2009-12-3 21:56

刚学VB6.0

买了本：Visual Basic从入门到实践

请问为什么光碟里的“本书教学视频”和“本书源代码运行视频演示”在播放中老是会自动停止？

顺便请教一个问题
下面15行中

1. Dim xlApp As Excel.Application
2. Dim xlBook As Excel.Workbook
3. Dim xlSheet As Excel.Worksheet
4. Set xlApp = CreateObject("Excel.application")
5.    '创建新工作薄
6.       Set xlBook = xlApp.Workbooks.Add
7.          Set xlSheet = xlBook.Worksheets("sheet2")
8.          '向当前工作表的第一行第一列的单元格输出数据
9.          xlSheet.Cells(5, 5) = " & Text2.Text & "
10.       '将工作薄文件保存为d:\服装样品管理\cfg_xlt\ksxxsc\ " & Text2.Text & ".xls"
11.       xlBook.SaveAs FileName:="d:\服装样品管理\cfg_xlt\ksxxsc\ " & Text2.Text & ".xls"
12.    xlBook.Close  '关闭工作薄文件
13.    xlApp.Quit    '结束Excel对象
14. Set xlApp = Nothing '释放xlApp对象的内存空间
15.  MsgBox " 信息 “" & Text2.Text & ".xls”导出成功", 64, " 提示 "

第6行的 Set xlBook = xlApp.Workbooks.Add '创建新工作薄语句。是否可以调用已经创建好的模板文件？
第9行的 xlSheet.Cells(5, 5) = " & Text2.Text & "语句。是否可以连接窗体中的Text控件中Text做为单元格5行5列中的文字？
在第15行后怎样写才能让刚创建好的工作薄自动打开？

谢谢！

作者: fwbook 时间: 2009-12-4 09:25

动画暂停的问题，是需要你按照讲解一块操作。这样，你一边听讲解，一边操作。

作者: skyrising 时间: 2009-12-4 18:42

本帖最后由 skyrising 于 2009-12-4 18:52 编辑

刚学VB6.0

买了本：Visual Basic从入门到实践

请问为什么光碟里的“本书教学视频”和“本书源代码运行视频演示”在播放中老是会自动停止？

顺便请教一个问题
下面15行中

1. Dim xlApp As Excel.Ap ...
cfgde2003 发表于 2009-12-3 21:56

你好，很高兴就这个问题与你交流。
1.光盘在运行时需要进行同步操作可以继续操作，当你任意双击窗体时，弹出提示信息，注意提示信息左侧为相应需要单击命令或按钮、菜单等。
2.调用已存在doc文件需要使用以下代码：
Set objdoc = objword.Documents.Add(App.Path & "\test.doc")，excel于此相同
即可打开指定文件
3.使用该语句即可实现该功能
4.注意你的语句中已经使用set关键字赋值为nothing，需要重新打开调用该文件

作者: cfgde2003 时间: 2009-12-5 23:09

非常感谢!
不过第9行的 xlSheet.Cells(5, 5) = " & Text2.Text & "语句,我试过多次不行啊!

作者: skyrising 时间: 2009-12-6 19:53

6# cfgde2003
xlSheet.Cells(5, 5) = Text2.Text 即可实现

作者: bayqishi 时间: 2010-1-12 14:29

我在图书馆要借这本书，但是没有光碟呀，，请问一下，能不能从网下载啊

作者: str123 时间: 2010-12-9 22:19

支持！！谢谢～～

欢迎光临万卷图书 (http://wanjuanchina.net/)