田草博客

互联网田草博客


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

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID

评论列表

所有评论
[64] [65] [66] [67] [68] [69] [70] [71] [72] [73]  ... [143]  
greathhu 于 2010-02-04 12:20 AM 发表评论:
内容太精彩了.
麻烦给我传一份:
greathhu@163.com
谢谢!

查看所评论的日志:AutoCAD VBA 二次开发教程源码
tiancao1001 于 2010-02-04 08:37 AM 发表评论:
这个是通过“迅雷5”等字符串查找窗体的,你确定用户使用的是迅雷那个版本,他的字符串是什么,然后修改程序就可以了
查看所评论的日志:vb 隐藏其他程序的托盘图标
dogtool 于 2010-02-03 10:21 PM 发表评论:
这怎么没有效啊,隐藏不了。
查看所评论的日志:vb 隐藏其他程序的托盘图标
tiancao1001 于 2010-01-29 05:46 PM 发表评论:
接收飞信
  AddHandler Fetion.SDK_ReceiveMessage, AddressOf sdk_SDK_ReceiveMessage


 Public Sub sdk_SDK_ReceiveMessage(ByVal sender As Object, ByVal fe As NullStudio.Fetion_SDK.Event.SDK_ReceiveMessageEventArgs)
        Me.TextBox_ReceiveMessage.Text = Me.TextBox_ReceiveMessage.Text & _
                                            fe.Contact.DisplayName & vbCrLf & _
                                            "    " & fe.Message & vbCrLf
    End Sub
查看所评论的日志:Visual Basic 2005 飞信SDK开发短信收发程序
thunderming 于 2010-01-27 04:35 PM 发表评论:
楼主的程序我用过了,但是接收不到消息啊。
SDK_ReceiveMessage事件好像没有触发啊。怎么回事?
查看所评论的日志:Visual Basic 2005 飞信SDK开发短信收发程序
icecooler 于 2010-01-26 08:52 PM 发表评论:
yinxiaozhu@hhu.edu.cn
发给我一份,谢谢!
查看所评论的日志:AutoCAD VBA 二次开发教程源码
tiancao1001 于 2010-01-21 05:08 PM 发表评论:
下面的代码效果和AngleFromXAxis是一样的 
Public Function P2P_Angle(ByVal PT1 As Point3d, ByVal PT2 As Point3d) As Double
        'Pt1为坐标原点
        Dim DX As Double
        Dim DY As Double
        DX = PT1.X - PT2.X
        DY = PT1.Y - PT2.Y
        Dim A45 As Double = Math.Atan(1) '45度角
        If DX = 0 Then '垂直线 
            If DY < 0 Then
                P2P_Angle1 = A45 * 2 '90度
                P2P_Angle1 = A45 * 6 '270
            End If
        ElseIf DX < 0 Then
            If DY <= 0 Then
                P2P_Angle1 = Math.Atan(DY / DX)  '第一象限(包含x轴正方向0度)
            Else
                P2P_Angle1 = A45 * 8 - Math.Atan(-DY / DX) '第四象限
            End If
        ElseIf DX > 0 Then
            P2P_Angle1 = Math.Atan(DY / DX) + A45 * 4 '第二、第三象限(包含x轴负方向180度)
        End If
    End Function
查看所评论的日志:.Net的Entity到VBA的AcadEntity
wuliping1002 于 2010-01-13 03:21 PM 发表评论:
大哥你的工具箱为什么只能装一次啊,我不小心卸载后就不能再安装了,怎么办啊
查看所评论的日志:田草CAD工具箱(VBA)安装程序(2009.04.13)
[64] [65] [66] [67] [68] [69] [70] [71] [72] [73]  ... [143]  
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©