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的使用方法。
相关文档：
VB 字节数组和字符串的转换问题 (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
一、 前言
数据类型转换在编程中经常用到，VB6提供了一整套类型转换的函数。但是，在进行类型转换时，有时候仅仅依靠VB提供的函数是不能达到自己的目的的。因此，需要考虑用其他的方法来完成数据类型转换。本文� ......
VB为自己的程序设定消息(可接收处理)
Posted by JiaJia 5 March,2009 (0)Comment
用API函数 SetWindowLong 指定处理消息的窗口过程为自定义的函数 WindowProc，捕获消息ID为 WM_USER+1 的自定义消息或系统消息。并且，为了保证窗口能正确的响应消息，需要保存原来默认的窗口过程并在自定义函数WindowProc中调用。 ......
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 ......
昨天晚上，米老师把我叫到办公室。问我学了一周感觉如何，我当时很汗颜。米老师身体不好，电脑版班么多学生，他可以让自己轻松一点儿，但他没有。作为几十个学生的免费老师，做为人父人夫，老师尚且知道我学了一周成果怎样呢，但我自己却没有想过，很惭愧。犯任何错误第一次可以原谅，但绝不应该让它出现第二次，学了一周， ......
昨天下午我和小胖被米老师传唤到市医院去，米老师想听听他周六上的课对我的影响有多大，我回答的基本内容和《10年 VB 1》里面的内容差不多，但米老师感觉很空洞，感觉我在泛泛而谈，其实我也有感觉。
为了将米老师说的总结方法应用于实践，我这两天敲代码发现MsgBox，InputBox，Print的用法差不多，然后就将其总结如下：
......
