VB 文件下载Demo
'窗体 Private WithEvents Cdf As Cls_DownLoad Private Sub Form_Load() Set Cdf = New Cls_DownLoad End Sub Private Sub Cdf_entDLFileDowning(sRemot...
VB 版本检查升级模块
'模块 '模块名称UpdateModule Function UpdateCheck() '升级检查 Dim NUrl As String Dim NFile As String Dim ExeLen As String Dim ServerUrl as string ServerUr...
文件关联
如何在 VB6.0中 创建自己的文件类型 在Windows中，当我们双击一个.txt文件的时候，“记事本”程序会自动打开，并且显示.txt文件的内容；当我们将一个.txt文件拖到“记事本”的图标上的时候，“记事本”程序也会自动打开，并且显示.txt文件的内容。在Windows中，这种技术称为“...
VB 打开和保存文本
Private Sub SaveText_Click()Dim i As LongCommonDialog1.CancelError = TrueOn Error GoTo ErrHandlerCommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*...
VB程序开发发布升级
VB程序开发发布升级 1、代码开发 2、皮肤模块(1) 调用SkinH_VB6.dll加载皮肤； 3、验证模块(1) 添加验证模块 4、升级模块(1) 启动时生成版本代码；(2) 将update.exe复制到软件目录下(3) 用远程软件更新管理器将软件的版本信息上传到服务器 5、安装包模块(1) 使...
VB 计算两个时间差
Private Sub Command1_Click()Text2.Text = Now()End SubPrivate Sub Command2_Click()MsgBox DateDiff("s", Text1.Text, Text2.Text)End SubPrivate Sub Form_L...