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的使用方法。
相关文档：
全面控制 Excel
首先创建 Excel 对象，使用ComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
1) 显示当前窗口：
ExcelID.Visible := True;
2) 更改 Excel 标题栏：
ExcelID.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelID.WorkBooks.Add;
4) 打开已存在� ......
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 ......
·创建具有很强内聚力的模块
·创建更加容易调试和维护的过程
·创建高度专用的过程
·创建松散连接的过程
·尽量使过程具有独立性
·提高过程的扇入性
·降低过程的扇出性
·编程原则
·为过程和模块赋予表义性强的名字
&middo ......
关于曹师兄找工作：
在找工作过程中：
1、 观察力。面试时看见中南融通的横幅“最小化你和客户的距离，最大化你和客户的利益”，顺而和面试官讨论他们公司的文化和理念，会对你应聘有很大帮助。找工作时的笔试基础都差不多，重要的是和老总的面试，公司更注重的是你是如何做人的和你对业务的理解。所以，在以后 ......
VB无所不能之五：建立“标准”DLL动态链接库文件（1）
作者：钟声
博客地址：http://blog.csdn.net/useway
动态链接库经常被认为是VC或者Dephi的专利，DLL文件可以将你编写的函数动态的发布，并可以被其他程序很方便的调用。
&n ......
