vb从入门到实践一书作者联系方式，欢迎就书籍内容进行提问

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

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

                                                辛本柱
                                                09.11.1

收藏分享评分

回复引用

订阅 TOP

管理员

Rank: 9 Rank: 9 Rank: 9

2^#

fwbook发表于 2009-11-1 09:45 | 只看该作者

支持。

回复引用

TOP

新手上路

Rank: 1

3^#

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行后怎样写才能让刚创建好的工作薄自动打开？

谢谢！

回复引用

TOP

管理员

Rank: 9 Rank: 9 Rank: 9

4^#

fwbook发表于 2009-12-4 09:25 | 只看该作者

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

回复引用

TOP

新手上路

Rank: 1

5^#

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，需要重新打开调用该文件

人过三十天过午

回复引用

TOP