-- 电脑软件知识 ( http://www.notery.net/bbs/ShowForum.asp?ForumID=24 )
--- 读者交流专帖《Visual Basic 6.0 完全自学手册》 ( http://www.notery.net/bbs/ShowPost.asp?ThreadID=662 )
作者：mugua
发表时间：2007-01-17 23:46:11
大家可在此跟帖交流。分三次印刷，共计11000册。
封面及部分书页帖图 http://www.dbnotary.cn/bbs/ShowPost.asp?ThreadID=660
本书详细介绍以及目录 http://www.mugua.net/mgrj/vbbook.html
作者：bejco
发表时间：2007-01-30 10:08:40
想做一个类似网易相册用的那种批量上传照片的Activex插件，应该怎么实现呢？最好有详细的教程。
主要功能，可以选择多个文件，多线程传输。能够使用session信息，能够跟asp或者.net程序进行交互。比如获取上传文件的路径并写入数据库。多谢！
============
mugua回复bejco，可参考本书第25章 创建ActiveX控件 第17章 Visual Basic网络编程 相关技术。
不过，你的主要涉及到ActiveX DLL技术，而且插件实例我没有做过。
可参考 http://hi.baidu.com/yuewo/blog/category/asp%B7%E2%D7%B0com%D7%E9%BC%FE
作者：mugua
发表时间：2007-02-26 10:11:05
P8 倒数第二行“Gtrl+G”应为“Ctrl+G”
P25 表2.2中Appearance的图示项里两个图片位置反了
P40 中间Dim UserName As String*2中的2应为20
P45 图2.20 求余数运算在不同情况下的结果。见下图1
P56 倒数第4行将整型数“568”应改为“238”
P62 倒数第3行，将顿号改为逗号。
P65 表3.1 各对象属性的主要设置---> 对象TextBox的name属性为frmPwd,应为txtPwd
P68 “语句说明”中“如果步长为负，则初值必须大于等于初值”后面的初值改为“终值”。
P71 图3.26缺少出口箭头。见下图2
P107 5.2.3中3.事件过程调用通用过程中的第2行“调用SaveLog”过程应改为“调用PrintChar”
P169 表7.6 中的“常数”一栏中“圆形”应该是“vbShapeCircle”，不是“vbShapeOval”
P175 第一行65毫秒改为65秒。
P191 图9.7下面的Screen对象应为Clipboard对象。
P286 的确没有提及SetAttr函数，再版会补充这个函数的
P390 图19.1“主键”打印移位。
P471 表24.3下面“在Property过程对中，参数...”，删除“对”字。
P481 Set cmd = frmCmdOK 改为 Set cmd = frm.cmdOK
P567 IsNumberic函数应为IsNumeric，多了字母b。
第25章--平面按钮控件在加载时，出现无法加载2个文件的问题。
E2501（平面按钮控件）.rar
第20章--DataGrid控件工程，在代码窗口中加入如下代码：E2002（DataGrid控件）.rar
图1 图2
作者：§☆月儿★§
发表时间：2007-03-08 20:14:01
这是你们工作室的论坛吗?
============
mugua 回复 §☆月儿★§， “电脑软件答疑”版块可以做为本书的技术交流区。
作者：suipl
发表时间：2007-04-01 20:07:36
错误一处：p25表2.2中Appearance的图示项里两个图片位置反了。
mugua 回复suipl：谢谢您勘误指正，我记录在上面。
作者：suipl
发表时间：2007-04-03 02:16:21
问一下作者，本书p40中间Dim UserName As String*2中的2是否为20之误？
mugua 回复suipl：谢谢你，确实是个错误，应为20，奖励你1000金币。
作者：suipl
发表时间：2007-04-03 21:44:31
引用：谢谢作者奖励，这样读书蛮有趣味……
原文由 suipl 发表于 2007-4-3 2:16:21 :
问一下作者，本书p40中间Dim UserName As String*2中的2是否为20之误？
mugua 回复suipl：谢谢你，确实是个错误，应为20，奖励你1000金币。
作者：vbreader
发表时间：2007-04-21 20:38:51
P.70图3.26是个别书没有印上还是有错误?这里缺个箭头.
=======
mugua 回复vbreader：你所反映的几个问题，我已经整理到前面的勘误记录中，谢谢你。奖励你2000金币。
作者：vbreader
发表时间：2007-04-21 21:04:42
木瓜老师： 您的光盘中 第25章--平面按钮控件在加载时出现下面情况： 
而只有创建相应文件夹和文件时（如下图）才能使用： 
这应该怎么取消呀？
作者：vbreader
发表时间：2007-04-21 21:08:11
木瓜老师：
您的书中的附录C中P.567的IsNumeric函数错印成了IsNumberic。
作者：vbreader
发表时间：2007-04-21 21:10:19
哈哈，“木瓜老师”这个名字再合适不过了吧。您本人觉得呢？
作者：vbreader
发表时间：2007-04-21 23:24:03
“木瓜哥哥”好象更亲切一点
作者：vbreader
发表时间：2007-04-22 08:44:27
发现错误：
P.191图9.7下面的的Clipboard对象印成了Screen对象
作者：vbreader
发表时间：2007-04-23 19:31:35
引用：
mugua 回复vbreader：你所反映的几个问题，我已经整理到前面的勘误记录中，谢谢你。奖励你2000金币。
谢谢木瓜哥哥
作者：vbreader
发表时间：2007-04-28 20:12:30
木瓜哥哥,您书中P.169中的 表7.6 中的“常数”一栏中“圆形”应该是“vbShapeCircle”，不是“vbShapeOval”
mugua 回复vbreader：谢谢你，已经记录了。
作者：vbreader
发表时间：2007-04-28 20:14:49
木瓜哥哥，For...Next语句中的Next语句后的的 循环变量 有什么用呢?
mugua 回复vbreader：Next语句后的的循环变量可以省略。
作者：vbreader
发表时间：2007-04-28 20:17:02
木瓜哥哥,For...Next语句中,Next后的循环变量有什么用处?
作者：vbreader
发表时间：2007-04-28 20:18:13
呀,原来跑下一页去了,我以为没发上,所以................Sorry.....................
作者：vbreader
发表时间：2007-04-28 23:31:47
木瓜哥哥,我还是不明白.
那个循环变量可以省略,那原来有什么用呢?
有时候我读其他不省略那个循环变量就看不明白.
比如说
dim i as integer
dim sum as integer
sum = 0
for i = 1 to 10
sum = sum + i
next i
print sum
那个i没有特殊的作用,就是相当于占位对吗?还有一个问题,Do Events命令怎么用?
======
mugua回复：Next后面的变量没有实际意义，仅仅是便于阅读。
DoEvents语句是转让控制权，以便让操作系统处理其它的事件，此语句宜少应用。
作者：kkle
发表时间：2007-04-30 18:41:26
书买了 支持下木瓜！
作者：vbreader
发表时间：2007-04-30 19:36:01
引用：同意!
原文由 kkle 发表于 2007-4-30 18:41:26 :
书买了 支持下木瓜！
作者：vbreader
发表时间：2007-04-30 22:16:51
木瓜哥哥:
您书中P.107的5.2.3中3.事件过程调用通用过程中的第2行“调用SaveLog”过程是否应改为“调用PrintChar”？
========
mugua回复：谢谢提醒，你是对的。
作者：vbreader
发表时间：2007-05-01 20:08:36
木瓜哥哥,我有个问题
我把你书中的MDI记事本扩展了，加了一个“日积月累”的窗体：
可是试运行的时候，我把“在启动时显示提示”复选框的对勾去掉了，但是再次运行的时候，怎么也调不出这个窗体了，我就在菜单里加了一个菜单项，可是不会编写代码，你能帮帮我吗？
附：我尝试编写下列代码，可是出现错误：
还有，“日积月累”窗体我用的是默认代码。
作者：天空下着雨
发表时间：2007-05-22 09:02:38
P65 表3.1 各对象属性的主要设置---> 对象TextBox的name属性为frmPwd,而源代码中为txtPwd
P45 图2.20 求余数运算在不同情况下的结果--->在立即窗口中 57 MOD 3.5=6 此结果不对，查看程序源代码错误
============
mugua回复：谢谢你的提醒，已经记录到前面。奖励1000金币。
作者：天空下着雨
发表时间：2007-05-31 11:32:18
瓜哥：
用VB如何实现下面结果：
a*b=690421883
求a和b?
===========
mugua回复： Dim i As Integer
Dim j As Integer
For i = 1 To 690421883
For j = 1 To 690421883
If i * j = 690421883 Then Debug.Print i, j
Next
Next
作者：天空下着雨
发表时间：2007-06-04 10:28:52
P110 If dblNumber >= 0 then NumtoStr="正数" --->0应该不为正数吧！
P114 Private Sub Command1_Click() --->属性名Command1与光碟中不匹配，光碟中为cmdPrint.
另外谢谢瓜哥上贴的回复！但不解 i*j=50?
作者：天空下着雨
发表时间：2007-06-04 14:46:29
下面代码不能运行：
Dim i As Integer
Dim j As Integer
For i = 1 To 690421883
For j = 1 To 690421883
If i * j = 690421883 Then Debug.Print i, j
Next
Next
求朋友协助，重编如下：
Dim i As Long
Dim j As Long
Const C = 690421883
For i = 2 To C
j = C / i
If i * j = C Then
Print i & "*" & j & "=" & C
Exit Sub
End If
Next
作者：vbreader
发表时间：2007-06-11 12:38:15
先回复楼上：
Integer是整型变量，690421883这个数太大，所以会溢出，木瓜哥哥可能忽略这一点了，应该用Long长整型就对了
还有发现错误：P.56倒数第4行“将整型数568”应改为“238”
mugua回复：谢谢你，我记录下来。
作者：vbreader
发表时间：2007-06-17 13:54:06
木瓜哥哥，您书中P.195第一行，既然前面说是65535ms，后面怎么会是65毫秒？应该是65秒吧？
mugua回复：页码有没有记错？这个页上没有找到如上语句。
VBreader：的确错了，SORRY，是P.175
mugua回复：谢谢你，的确是65秒。
作者：intbati
发表时间：2007-06-24 10:11:22
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "密码不能为空！", , "提示"
Text1.SetFocus
Exit Sub
End If
With Data1
.Recordset.MoveFirst
Do Until .Recordset.EOF
If .Recordset("zybh") = Label2.Caption Then
.Recordset.Edit
.Recordset("mm") = Trim(Text1.Text)
.Recordset.Update
.Refresh
Exit Do
End If
.Recordset.MoveNext
Loop
End With
czrygl.Data1.Refresh
Unload Me
End Sub
这段代码能把注释都加上吗？我看不懂，解释一下也行，谢谢各位！
mugua回复：你认真学习第20章Data控件。
作者：vbreader
发表时间：2007-06-24 18:59:00
木瓜哥哥：你的光盘中：
这是个错别字呀！ mugua回复：谢谢，下届应为“下界”
作者：§☆月儿★§
发表时间：2007-06-29 17:30:38
大家好,前一段时间购买了自学手册在学习.在学习过程当中有一个小问题,不知该怎样解决(自认为问题不是很大:).如下
a = 1 to 20
b=10 to 20
寻找a,b的共同值,并列出来.请问应该怎样写啊? 我写的C=A=B不对~~
还有个问题,因为我计算的数据较多.想把它列到表格文件里或者文本里,应该怎么做?在书上没找到......请GG,JJ帮帮忙吧,谢谢(有问题是不是可以发在这里呀?)
mugua回复：
Dim a As Integer
Dim b As Integer
For a = 1 To 20
For b = 10 To 20
If a = b Then Debug.Print b
Next
Next
数据存到文本文件里，请参考本书“文件操作”一章。
作者：74559827040
发表时间：2007-11-28 11:57:54
刚买了书 支持一下
作者：stoney
发表时间：2007-12-13 23:23:15
木瓜，你书中P8倒数第二行的“Gtrl+G”是不是应为“Ctrl+G”啊？
mugua回复：的确是“Ctrl+G”谢谢你，奖励你1000金币。我记在勘误记录中。
作者：suipl
发表时间：2008-01-24 14:52:51
引用：哇，哥们，你把书看到这个程度我服了！！！
原文由 stoney 发表于 2007-12-13 23:23:15 :
木瓜，你书中P8倒数第二行的“Gtrl+G”是不是应为“Ctrl+G”啊？
mugua回复：的确是“Ctrl+G”谢谢你，奖励你1000金币。我记在勘误记录中。
作者：翔鹰
发表时间：2008-03-17 16:19:47
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝=====================
'列表框List属性增加列表项目验证代码
'此代码用于验证《Visual Basic 6.0完全自学手册》一书中第153页最后一行至第154页第一行的
'“在代码中也能够改变List属性值，但是这种方法只能够改变项目的文本，而无法增减列表的项目数”
'经验证，上述说法不完全正确，验证说明：List属性除能够改变项目文本外，还能够增加列表的项目数
'但List属性不能减少列表的项目数
'代码设计及编写：翔鹰空间——吴礼道 网名：翔鹰 QQ：399647758
'=============================================================================================
Option Explicit
Dim intList1index() As Integer
'使用List属性添加列表项目代码段开始
Private Sub Command1_Click()
On Error Resume Next
'在列表框最后添加列表项目
List1.List(List1.ListCount) = "添加项目" & List1.ListCount
End Sub
'使用RomveItem方法删除列表项目代码段开始
Private Sub Command2_Click()
On Error Resume Next
If List1.ListCount > 0 Then '列表中有项目时执行删除操作
List1.RemoveItem (List1.ListCount - 1) '删除最后添加的列表项目
'没有列表项目可以删除时弹出提示信息
Else
MsgBox "列表中没有项目可删除！”", vbInformation, "提示信息"
End If
End Sub
'改变列表项目文本代码段开始
Private Sub Command3_Click()
ReDim Preserve intList1index(List1.ListCount)
'列表中没有项目时弹出提示信息
If List1.ListCount = 0 Then
MsgBox "列表中没有项目可供改变！请先添加项目！”", vbInformation, "提示信息"
Else
'没有列表项目被选中时弹出提示信息
If List1.ListIndex = -1 Then
MsgBox "没有列表项目被选中！请选择项目！", vbInformation, "提示信息"
Else
'被选中列表项已经被改变则弹出提示信息
If List1.ListIndex = intList1index(List1.ListIndex) Then
MsgBox "选择项目已经改变！请重新选择项目！", vbInformation, "提示信息"
Else
'改变选择的项目
List1.List(List1.ListIndex) = "改变项目" & List1.ListIndex
'标志为已改变
intList1index(List1.ListIndex) = List1.ListIndex
End If
End If
End If
End Sub
Private Sub Form_Load()
Dim intI As Integer
ReDim Preserve intList1index(List1.ListCount)
For intI = 0 To List1.ListCount
intList1index(intI) = -1 '标志为未改变
Next
End Sub
作者：翔鹰
发表时间：2008-03-20 16:26:51
不好意思！因为弄了很多次都没找到自己回复的东东，所以重复发了几次，版主千万不要误会，我绝对不是恶意发布垃圾。不过你这个很奇怪，一般的这种网页回复是最近日期的在前面可你这是最近日期的反而排到后面去了。搞得我一下找不着北了。所以弄了一大堆重复的东东。不好意思！
| 《 公证服务网 》 |
|
Powered by 公证服务网 © 2008-2025 Script Execution Time:70ms ★给仲老师提意见★ |