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 长整型和字节数组的转换问题 (Long<>Byte)
Posted by JiaJia 17 March,2009 (0)Comment
用到的API声明：
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Long2Byte
Dim TempLng As Long
Dim TempBytes(0 To 3) As Byte ......
VB为自己的程序设定消息(可接收处理)
Posted by JiaJia 5 March,2009 (0)Comment
用API函数 SetWindowLong 指定处理消息的窗口过程为自定义的函数 WindowProc，捕获消息ID为 WM_USER+1 的自定义消息或系统消息。并且，为了保证窗口能正确的响应消息，需要保存原来默认的窗口过程并在自定义函数WindowProc中调用。 ......
发送端以163为例
一、asp.net版 using System.Web.Mail; //命名空间引用
c#
MailMessage mail = new MailMessage();
mail.To = "shadow103@qq.com"; //接受人的邮箱
& ......
·错误类型
·编程员的错误（比如分母不能是0，参数个数或数据类型不对应）
·环境方面的错误（比如文件太大，磁盘放不下）
·时间上的错误（比如视图给尚未完成加载的窗体设置焦点）
·创建错误处理程序
......
上集中只是显示星期几，不够全面，完善后如下：
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()
......
