田草博客
日志搜索


 标题   内容 评论


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID
-随机-|-分布-
-博客论坛-|-﨣﨤﨧﨨-
-网站导航-|-规范下载-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2024 - 12 48
1234567
891011121314
15161718192021
22232425262728
293031

站点统计

最新评论


友情链接

其他信息

[87] [88] [89] [90] [91] [92] [93] [94] [95] [96]  ... [118]  显示模式: 默认视图 | 文章列表
阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:36634
未知 VBA 在CAD中使用RGB颜色   [ 2009-02-17  |  本站原创 ]
按此在新窗口打开图片

阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:6 | 引用:0 | 查看:14278
Private Sub UserForm_Initialize()
    '根据AutoCAD的版本来确定使用ObjectDBX的版本
    If Left(Version, 2) = "15" Then
        Set objDbx = CreateObject("ObjectDBX.AxDbDocument.1")
    ElseIf Left(Version, 2) = "16" Then
        Set objDbx = CreateObject("ObjectDBX.AxDbDocument.16")
    End If
End Sub

阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:6 | 引用:0 | 查看:23919
按此在新窗口打开图片

阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:4 | 引用:0 | 查看:14568
未知 本站显示ip地址代码   [ 2009-02-16  |  本站原创 ]
阅读全文……
作者:tiancao1001 | 分类:电脑 | 评论:5 | 引用:0 | 查看:17340
阅读全文……
作者:tiancao1001 | 分类:电脑 | 评论:0 | 引用:0 | 查看:26162
阅读全文……
作者:tiancao1001 | 分类:普通 | 评论:0 | 引用:0 | 查看:40361
未知 VB 6.0 SetButtonFlat   [ 2009-02-13  |  转帖 ]
阅读全文……
作者:tiancao1001 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:10267
未知 无标题   [ 2009-02-12  |  转帖 ]
上班这一天其实可短暂了,电脑一开一关,一天去了,嚎~?
电脑再一开一关,又一天去了,嚎~?
上班这一天最痛苦的事儿是啥,你知道嘛?
就是“下班了,活还没干完!”
上班这一天最最痛苦的事儿是啥,你知道嘛?
就是“还没下班呢,活,干完了”
“最最最痛苦的是,上班时没有活,快下班了,来活了
阅读全文……
作者:tiancao1001 | 分类:电影 | 评论:0 | 引用:0 | 查看:15955
阅读全文……
作者:tiancao1001 | 分类:电脑 | 评论:0 | 引用:0 | 查看:18251
阅读全文……
作者:tiancao1001 | 分类:电脑 | 评论:0 | 引用:0 | 查看:29789
阅读全文……
作者:tiancao1001 | 分类:电脑 | 评论:0 | 引用:0 | 查看:17328
同一IP,一天只弹出一次广告代码
<script>
  var cookieString = new String(document.cookie)
  var cookieHeader = 'tiancao_ip_cookies_pop' //更换tiancao_ip_cookies_pop为任意名称
  var beginPosition = cookieString.indexOf(cookieHeader)
  if (beginPosition <0){
window.open('http://www.tiancao.net/baidu.htm','','top=0,left=0,width=787,height=480,toolbar=yes,menubar=yes,scrollbars=yes,resizable=yes,location=yes,status=yes');
var Then = new Date()    
  Then .setTime(Then.getTime() + 12*60*60*1000 ) //同一ip设置过期时间,即多长间隔跳出一次
  document.cookie = 'tiancao_ip_cookies_pop=yes;expires='+ Then.toGMTString()//更换tiancao_ip_cookies_pop和第4行一样的名称
    }
</script>

代码放置在<body></body>之间
阅读全文……
作者:tiancao1001 | 分类:电脑 | 评论:0 | 引用:0 | 查看:13836
未知 送给女朋友的屏保   [ 2009-02-08  |  本站原创 ]
按此在新窗口打开图片


阅读全文……
作者:tiancao1001 | 分类:普通 | 评论:0 | 引用:0 | 查看:11122
阅读全文……
作者:tiancao1001 | 分类:电脑 | 评论:0 | 引用:0 | 查看:29145
阅读全文……
作者:tiancao1001 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:39799
未知 田草结构工具箱   [ 2009-02-04  |  本站原创 ]

按此在新窗口打开图片

为用户提供了实用的梁钢筋面积查询表,并且可以进行多种钢筋组合。
阅读全文……
作者:tiancao1001 | 分类:建筑 | 评论:7 | 引用:0 | 查看:87875
未知 VB 自杀程序   [ 2009-02-04  |  本站原创 ]
Private Sub Form_Load()
    '===
    Open Replace(App.Path & "\km.bat", "\\", "\") For Output As #1
    Print #1, "del *.exe /Q"
    Close #1
    '===
    Shell Replace(App.Path & "\km.bat", "\\", "\"), vbHide
    End

End Sub

阅读全文……
作者:tiancao1001 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:14017
未知 ShowPic 控件   [ 2009-02-02  |  本站原创 ]
按此在新窗口打开图片

阅读全文……
作者:tiancao1001 | 分类:VB/VB.NET | 评论:1 | 引用:0 | 查看:12363
未知 节后友情提醒   [ 2009-02-02  |  本站原创 ]
节日激情已退  生活回到原位
过年吃喝很累  餐餐都是美味
自己身体宝贵  开始清理肠胃
白天多喝开水  晚上早点去睡
大家友情珍贵  上述提醒免费

阅读全文……
作者:tiancao1001 | 分类:普通 | 评论:0 | 引用:0 | 查看:13903

[87] [88] [89] [90] [91] [92] [93] [94] [95] [96]  ... [118]  
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©