皮皮网

1.vbԴ?源码?6
2.VB6.0,(1)网页源代码读取不完整,(2)源代码中的一段数据如何赋给一变量?

vbԴ??6

       1）

       启动visual basic6.0 ，打开一个新的源码pos软件源码标准工程。

       2）

       在窗体上Form1上添加6个标签空间（Label） 2个命令按钮（CommandButton）和1个计时器（Timer）。源码下载网站源码搭建命令按钮的源码考试刷题源码Caption属性分别为“启动”“停止”

       Timer1的Interval属性为

       Label1 Label2 Label3的Caption属性分别为“开始时间”“结束时间”“经过时间” Timer1的Enable属性为False

       3）代码

       Dim Starttime As Variant

       Dim End time As Variant

       Dim Elapsed As Variant

       Private Sub cmdStart_Click()

       '显示开始时间

       lblStart.Caption=Time$

       Starttime=Now

       '启动时钟控件

       Timer1.Enabled=Ture

       End Sub

       Private Sub cmdStop_Click()

       '记录停止时间

       Endtime=Now

       '关闭时钟控件

       Timer1.Enabled=False

       '显示经过时间

       lblApaed.Caption=Format(Endtime-Starttime,"hh:mm:ss"

       End Sub

       Private Sub Timer1_Timer()

       lblStop.Caption=Time$

       End Sub

       以上是用VB6.0实现的

VB6.0,(1)网页源代码读取不完整,(2)源代码中的一段数据如何赋给一变量?

       给你说一下思路

       用inet控件就是有时候会取不全,这个没啥办法,唯一的办法就是换别的

       比如用WebBrowser,XmlHttp,Socket都可以

       第二个问题,复杂但是实用的方法是用正则表达式

       简单的方式是用Instr和mid配合