易截截图软件、单文件、免安装、纯绿色、仅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的使用方法。


相关文档:

asp.net,c#,vb,vbs,js各个语言的邮箱发送源代码

发送端以163为例
一、asp.net版   using System.Web.Mail; //命名空间引用 
c#
        MailMessage mail = new MailMessage();
        mail.To = "shadow103@qq.com";  //接受人的邮箱
     & ......

VB中获得汉字的首音码(包含二级字库)

Option Explicit
'==================================================
' 函数: ReturnSM
'
' 功能: 返回字符串中没个字符的拼音声母第一个字母
'
' 注意: 该函数只能处理3755个常用汉字(B0 - D7)
' 若超出函数的范围将返回常数 ERR_RESULT$
'
' 入口: Str 待处理的字符串
'
Public Function ReturnSM$(ByVal S ......

vb标准(六):命名约定


·匈牙利标记法
   ·使用3字符前缀来表示数据类型和控件类型
   ·3个字符可以实现充分多变性,并使前缀合乎逻辑和直观
·表示变量的作用域
   ·可以并且应该使用前缀来表示变量的作用域 ......

给VB增加一个滚轮,让VB编代码的时候更方便


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

VB百例总结(1)

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