📄 apierror.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Author" content="KJ Wang">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>VB6 与 Windows API 讲座 - 错误更正!</title>
</head>
<body bgcolor="#FFFFFF" link="#0000EE" vlink="#000080"
alink="#FF0000">
<h2 align="center"><a href="vbapi.htm"><font color="#800000">Visual
Basic 6.0 与 Windows API 讲座</font></a></h2>
<h2 align="center"><font color="#800000">错误更正</font></h2>
<hr>
<p><a href="vbapi.zip"><font color="#800000">下载更正(更新)後的范例程式</font></a></p>
<hr>
<p><font color="#800000">更正日期：98/05/26</font></p>
<hr>
<blockquote>
<p><font color="#0000FF">p.207, 第一段程式</font></p>
<blockquote>
<p>原书内容:</p>
<blockquote>
<p>ret = RegEnumKey(hKey, <font color="#0000FF">Index</font>,
Name, Len(Name))</p>
</blockquote>
<p>更正结果:</p>
<blockquote>
<p>ret = RegEnumKey(hKey, <font color="#FF0000">Idx</font>,
Name, Len(Name))</p>
</blockquote>
</blockquote>
</blockquote>
<p><font color="#800000">更正日期：98/12/18</font></p>
<hr>
<blockquote>
<p><font color="#0000FF">p.51, 中段程式</font></p>
<blockquote>
<p>原书内容：</p>
<blockquote>
<p>1. 传递「字串常数」<br>
SetComputerName "新的电脑名称"<br>
<br>
2. 传递「非固定长度字串变数」<br>
Dim Name As String<br>
Name = "新的电脑名称"<br>
SetComputerName</p>
</blockquote>
<p>更正结果：</p>
<blockquote>
<p>1. 传递「字串常数」<br>
SetComputerName "新的电脑名称"<br>
<br>
2. 传递「非固定长度字串变数」<br>
Dim Name As String<br>
Name = "新的电脑名称"<br>
SetComputerName <font color="#FF0000">Name</font></p>
</blockquote>
</blockquote>
</blockquote>
<blockquote>
<p><font color="#0000FF">p.59</font></p>
</blockquote>
<blockquote>
<blockquote>
<p>原书内容：</p>
<blockquote>
<p>使用DBCS + SBCS:VB 3.0版、VB 4.0 16-bit版<font
color="#FF0000"><strike>(只能使用於Windows 3.1)</strike></font>、Windows
3.1及其API、Windows 95/98及其API。</p>
</blockquote>
<p>错误说明：VB 4.0 16-bit
版所开发的程式可以於 32-bit 作业系统(95/98、NT)
执行，但使用 VB 4.0 16-bit 版来开发程式无法使用
32-bit 作业系统所特有的功能。</p>
</blockquote>
<p><font color="#0000FF">p.80, 程式部分</font></p>
<blockquote>
<p>原书内容：</p>
<blockquote>
<p>' 呼叫例一:lpKeyName叁数传入「字串」型别资料
"programs"<br>
Length = GetProfileString("windows",
"programs", "", S, 80,
"test.ini")<br>
<br>
' 呼叫例二: lpKeyName叁数传入「长整数」型别资料
0&<br>
Length = GetProfileString("windows",
0&, "", S, Len(S))</p>
</blockquote>
<p>更正结果：</p>
<blockquote>
<p>' 呼叫例一:lpKeyName叁数传入「字串」型别资料
"programs"<br>
Length = Get<font color="#FF0000">Private</font>ProfileString("windows",
"programs", "", S, 80,
"test.ini")<br>
<br>
' 呼叫例二: lpKeyName叁数传入「长整数」型别资料
0&<br>
Length = Get<font color="#FF0000">Private</font>ProfileString("windows",
0&, "", S, Len(S)<font color="#FF0000">,
"test.ini"</font>)</p>
</blockquote>
</blockquote>
<p><font color="#0000FF">p.405</font></p>
<blockquote>
<p>本页中所有的 Capture 属性，应改成 Caption
属性。</p>
</blockquote>
<p><font color="#0000FF">ch04\PlaySnd.vbp 程式</font></p>
<blockquote>
<p>原程式内容：</p>
</blockquote>
<blockquote>
<blockquote>
<p><font size="2">Private Sub Command1_Click()</font></p>
</blockquote>
<blockquote>
<blockquote>
<p><font size="2">Dim wavFile As String,
soundFlag As Long<br>
<br>
wavFile = File1.Path<br>
If Right(File1.Path, 1) <> "\"
Then wavFile = wavFile & "\"<br>
</font><font color="#0000FF" size="2">wavFile =
File1.filename</font><font size="2"><br>
<br>
soundFlag = IIf(optASYNC.Value, SND_ASYNC,
SND_SYNC)<br>
If chkLOOP Then soundFlag = soundFlag Or SND_LOOP<br>
If chkNOSTOP Then soundFlag = soundFlag Or
SND_NOSTOP<br>
<br>
txtReturn = sndPlaySound(wavFile, soundFlag)</font></p>
</blockquote>
</blockquote>
<blockquote>
<p><font size="2">End Sub</font></p>
</blockquote>
<p>更正结果：</p>
<blockquote>
<p><font size="2">Private Sub Command1_Click()</font></p>
<blockquote>
<p><font size="2">Dim wavFile As String,
soundFlag As Long<br>
<br>
wavFile = File1.Path<br>
If Right(File1.Path, 1) <> "\"
Then wavFile = wavFile & "\"<br>
</font><font color="#0000FF" size="2">wavFile = </font><font
color="#FF0000" size="2">wavFile &</font><font
color="#0000FF" size="2"> File1.filename</font><font
size="2"><br>
<br>
soundFlag = IIf(optASYNC.Value, SND_ASYNC,
SND_SYNC)<br>
If chkLOOP Then soundFlag = soundFlag Or SND_LOOP<br>
If chkNOSTOP Then soundFlag = soundFlag Or
SND_NOSTOP<br>
<br>
txtReturn = sndPlaySound(wavFile, soundFlag)</font></p>
</blockquote>
<p><font size="2">End Sub</font></p>
</blockquote>
</blockquote>
<p><font color="#0000FF">ch08\ScrCap.vbp 程式<br>
ch15\ScrCap.vbp 程式<br>
ch15\ScrCap2.vbp 程式<br>
ch15\ScrCap3.vbp 程式<br>
ch15\ScrCap4.vbp 程式</font></p>
<blockquote>
<p>原程式内容：</p>
</blockquote>
<blockquote>
<blockquote>
<pre><font size="3">Private Sub mSaveFile_Click()
On Error Resume Next
With CommonDialog1
.DialogTitle = "储存档案"
.Filter = "点阵档(*.bmp)|*.bmp"
.CancelError = True
</font><font color="#0000FF" size="3"> .ShowOpen</font><font
size="3">
If Err.Number <> cdlCancel Then
SavePicture picCopy</font><font color="#0000FF" size="3">.Picture</font><font
size="3">, .filename
End If
End With
End Sub</font></pre>
</blockquote>
<p>原程式内容：</p>
<blockquote>
<pre><font size="3">Private Sub mSaveFile_Click()
On Error Resume Next
With CommonDialog1
.DialogTitle = "储存档案"
.Filter = "点阵档(*.bmp)|*.bmp"
.CancelError = True
</font><font color="#0000FF" size="3"> </font><font
color="#FF0000" size="3">.ShowSave</font><font size="3">
If Err.Number <> cdlCancel Then
SavePicture picCopy</font><font color="#FF0000" size="3">.Image</font><font
size="3">, .filename
End If
End With
End Sub</font></pre>
</blockquote>
</blockquote>
</blockquote>
<hr>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -