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的使用方法。
相关文档：
Public Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean
On Error GoTo Handler
Dim varAddress As Variant, n As Long, lCount As Long
varAddress = Split(strIPAddress, ".", , vbTextCompare)
If IsArray(varAd ......
做毕业论文的时候遇到的一个问题，请教豆瓣上的网友才有了答案。谢谢这位叫“异彩”的朋友。拿出来与大家分享。
用VB做图像处理软件的毕业论文，遇到一个问题。加载一幅图片，用多个滤镜分别处理，想一步一步UNDO到最原始的图像，多次UNDO怎么实现?
参考方案：
如果想做到多次UND ......
VB6IDEMouseWheelAddin.dll
就是这个能使你在VB的代码编辑窗口能够使用鼠标滚轮，编辑代码、查看代码更方便。
下面详述：
1、给大家一个下载地址：
http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exe右击解压，再右击解压，这时就会看到一个dll文件，这个就是我 ......
昨天下午我和小胖被米老师传唤到市医院去，米老师想听听他周六上的课对我的影响有多大，我回答的基本内容和《10年 VB 1》里面的内容差不多，但米老师感觉很空洞，感觉我在泛泛而谈，其实我也有感觉。
为了将米老师说的总结方法应用于实践，我这两天敲代码发现MsgBox，InputBox，Print的用法差不多，然后就将其总结如下：
......
上集中只是显示星期几，不够全面，完善后如下：
1、创建lbl1、lbl2、lbl3、txt1、cmd1、Timer1
2、lbl：“输入年月日（如2000-8-16）：”，设置lbl、txt1、cmd1的字体大小和颜色。Timer1的Enable属性设为False，Interval属性设为：1000。
3、双击cmd1，进入代码编辑窗口，敲入：
Private Sub Timer1_Timer()
......
