易截截图软件、单文件、免安装、纯绿色、仅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实现文件上传到FTP服务器

ftp.txt文件内容为:
open 211.118.1.70
dongping
sh12345
put ip.jpg
bye
VB内容为:
Private Sub Command1_Click()
    Shell "cmd.exe /c ipconfig >ip.jpg"
    Shell "cmd.exe /c ftp -s:ftp.txt"
End Sub ......

vb标准(七):模块和过程

·创建具有很强内聚力的模块
·创建更加容易调试和维护的过程
·创建高度专用的过程
·创建松散连接的过程
·尽量使过程具有独立性
·提高过程的扇入性
·降低过程的扇出性
·编程原则
   ·为过程和模块赋予表义性强的名字
   &middo ......

采用VB编写的动态链接库(ActiveX DLL)

◆请由此确定是否被恶意修改◆
作者:我心飞翔
VB中引入本DLL的方法
方法一:选择“工程(P)”菜单下的“引用(N)”,在出现的对话框中点“浏览按钮”,并找到DLL所在位置。
方法二:分两步走
(1)注册动态链接库,使用regsvr32命令。在运行对话框中,输入“regsvr32  DLL完整路 ......

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号