tiancao1001 于 2011-02-18 08:36 AM 发表评论: |
|
查看所评论的日志:vb编写的自动点击工具,替代繁琐的手工操作。 |
tiancao1001 于 2011-01-20 10:02 AM 发表评论: |
|
查看所评论的日志:田草日志 |
tiancao1001 于 2010-12-03 07:59 PM 发表评论: |
楼井的最小宽度? 建筑防火设计规范 GB 50016-2006
7.4.8 公共建筑的室内疏散楼梯两梯段扶手间的水平净距不宜小于150mm。
条文说明: 7.4.8 本条规定主要考虑火灾发生后,消防人员进入失火建筑的楼梯间后,能迅速利用两梯段之间150mm宽的空隙向上吊挂水带展开救援作业,以节省时间和水带,减少水头损失,方便操作。 |
|
查看所评论的日志:田草日志 |
tiancao1001 于 2010-12-02 08:24 PM 发表评论: |
预制混凝土檩条的间距约为500~800,檩条的支承长度不小于80mm,山墙悬挑不大于500mm。 |
|
查看所评论的日志:田草日志 |
tiancao1001 于 2010-11-29 10:03 PM 发表评论: |
一键关闭所有IE窗口 taskkill /im iexplore.exe /f |
|
查看所评论的日志:田草日志 |
tiancao1001 于 2010-11-29 09:51 PM 发表评论: |
Option Explicit
Private Sub Command1_Click() Command1.Enabled = False WebBrowser1.Navigate2 Text1.Text End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim x As Long List1.Clear If Not WebBrowser1.Busy Then DoEvents End If For x = 0 To WebBrowser1.Document.Links.length - 1 List1.AddItem WebBrowser1.Document.Links.Item(x) Next x Command1.Enabled = True End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) Label3 = Text End Sub |
|
查看所评论的日志:VB 读取网页源码并分析其中的URL |
tiancao1001 于 2010-11-28 03:40 PM 发表评论: |
|
查看所评论的日志:田草日志 |
tiancao1001 于 2010-11-25 10:59 PM 发表评论: |
|
查看所评论的日志:田草日志 |