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的使用方法。
相关文档:
Option Explicit
'==================================================
' 函数: ReturnSM
'
' 功能: 返回字符串中没个字符的拼音声母第一个字母
'
' 注意: 该函数只能处理3755个常用汉字(B0 - D7)
' 若超出函数的范围将返回常数 ERR_RESULT$
'
' 入口: Str 待处理的字符串
'
Public Function ReturnSM$(ByVal S ......
Asc 函数
返回一个 Integer,代表字符串中首字母的字符代码。
语法:
Asc(string)
必要的 string 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何字符,则会产生运行时错误。
说明:在非 DBCS 系统下,返回值范围为 0 – 255 。在 DBCS 系统下,则为 -32768 &ndas ......
·错误类型
·编程员的错误(比如分母不能是0,参数个数或数据类型不对应)
·环境方面的错误(比如文件太大,磁盘放不下)
·时间上的错误(比如视图给尚未完成加载的窗体设置焦点)
·创建错误处理程序
......
VB无所不能之五:建立“标准”DLL动态链接库文件(1)
作者:钟声
博客地址:http://blog.csdn.net/useway
动态链接库经常被认为是VC或者Dephi的专利,DLL文件可以将你编写的函数动态的发布,并可以被其他程序很方便的调用。
&n ......