易截截图软件、单文件、免安装、纯绿色、仅160KB

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写注册表启动项


    Private Sub Form_Load()
        Set w = CreateObject("wscript.shell")
        w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EX ......

VB检查合法IP地址

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增加一个滚轮,让VB编代码的时候更方便


VB6IDEMouseWheelAddin.dll
就是这个能使你在VB的代码编辑窗口能够使用鼠标滚轮,编辑代码、查看代码更方便。
下面详述:
1、给大家一个下载地址:
http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exe右击解压,再右击解压,这时就会看到一个dll文件,这个就是我 ......

VB百例总结(1)

昨天晚上,米老师把我叫到办公室。问我学了一周感觉如何,我当时很汗颜。米老师身体不好,电脑版班么多学生,他可以让自己轻松一点儿,但他没有。作为几十个学生的免费老师,做为人父人夫,老师尚且知道我学了一周成果怎样呢,但我自己却没有想过,很惭愧。犯任何错误第一次可以原谅,但绝不应该让它出现第二次,学了一周, ......

VB 曹师兄面试 纪律与学习

关于曹师兄找工作:
在找工作过程中:
1、 观察力。面试时看见中南融通的横幅“最小化你和客户的距离,最大化你和客户的利益”,顺而和面试官讨论他们公司的文化和理念,会对你应聘有很大帮助。找工作时的笔试基础都差不多,重要的是和老总的面试,公司更注重的是你是如何做人的和你对业务的理解。所以,在以后 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号