VB —万年历实例 (2)
上集中只是显示星期几，不够全面，完善后如下：
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()
Dim c As Date
c = Time
lbl3.Caption = CStr(c)
End Sub
——————————————————
Private Sub cmd_Click()
If txt1.Text = "" Then
MsgBox "请输入年月日！", , "错误！"
lbl2.Caption = ""
Exit Sub
End If
Timer1.Enabled = True
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
&n
相关文档：
VB为自己的程序设定消息(可接收处理)
Posted by JiaJia 5 March,2009 (0)Comment
用API函数 SetWindowLong 指定处理消息的窗口过程为自定义的函数 WindowProc，捕获消息ID为 WM_USER+1 的自定义消息或系统消息。并且，为了保证窗口能正确的响应消息，需要保存原来默认的窗口过程并在自定义函数WindowProc中调用。 ......
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 ......
·定义完善的变量具有明确规定的数据类型和作用域
·要正确使用变量，必须使用表义性强的变量名来说明这些变量，并且必须为它们赋予焦点
·编程原则
·定义有焦点的变量（服务于一个定义明确的目的）
·为变量赋予表义性强的名字
......
关于曹师兄找工作：
在找工作过程中：
1、 观察力。面试时看见中南融通的横幅“最小化你和客户的距离，最大化你和客户的利益”，顺而和面试官讨论他们公司的文化和理念，会对你应聘有很大帮助。找工作时的笔试基础都差不多，重要的是和老总的面试，公司更注重的是你是如何做人的和你对业务的理解。所以，在以后 ......
