易截截图软件、单文件、免安装、纯绿色、仅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为自己的程序设定消息(可接收处理)


VB为自己的程序设定消息(可接收处理)
Posted by JiaJia 5 March,2009 (0)Comment
  用API函数 SetWindowLong 指定处理消息的窗口过程为自定义的函数 WindowProc,捕获消息ID为 WM_USER+1 的自定义消息或系统消息。并且,为了保证窗口能正确的响应消息,需要保存原来默认的窗口过程并在自定义函数WindowProc中调用。 ......

VB图像处理多次undo如何实现

做毕业论文的时候遇到的一个问题,请教豆瓣上的网友才有了答案。谢谢这位叫“异彩”的朋友。拿出来与大家分享。
  用VB做图像处理软件的毕业论文,遇到一个问题。加载一幅图片,用多个滤镜分别处理,想一步一步UNDO到最原始的图像,多次UNDO怎么实现?
 
 
参考方案:
 
如果想做到多次UND ......

vb标准(五):变量

·定义完善的变量具有明确规定的数据类型和作用域
   ·要正确使用变量,必须使用表义性强的变量名来说明这些变量,并且必须为它们赋予焦点
·编程原则
   ·定义有焦点的变量(服务于一个定义明确的目的)
   ·为变量赋予表义性强的名字
   ......

VB无所不能之五:建立“标准”DLL动态链接库文件(1)

VB无所不能之五:建立“标准”DLL动态链接库文件(1)
作者:钟声
博客地址:http://blog.csdn.net/useway
 
        动态链接库经常被认为是VC或者Dephi的专利,DLL文件可以将你编写的函数动态的发布,并可以被其他程序很方便的调用。
    &n ......

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() ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号