田草博客

互联网田草博客网友交流QQ群：11740834 需注明申请加入原因微信公众号：ByCAD 邮箱：tiancao1001x126.com
首页 \| 普通 \| 电脑 \| AutoCAD \| VB/VB.NET \| FLash \| 结构 \| 建筑 \| 电影 \| BIM \| 规范 \| 软件 \| ID

评论列表

tiancao1001
所发表的评论

[17] [18] [19] [20] [21] [22] [23] [24] [25] [26] ... [37]

tiancao1001 于 2010-02-04 03:17 PM 发表评论：

是你应该去找出你使用的迅雷在托盘显示的名称

查看所评论的日志：vb 隐藏其他程序的托盘图标

tiancao1001 于 2010-02-04 08:37 AM 发表评论：

这个是通过“迅雷5”等字符串查找窗体的，你确定用户使用的是迅雷那个版本，他的字符串是什么，然后修改程序就可以了

查看所评论的日志：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开发短信收发程序

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

tiancao1001 于 2010-01-13 09:24 AM 发表评论：

你去研究一下AutoCAD.net就知道怎么回事了

查看所评论的日志：学会了用Jig拽东西了

tiancao1001 于 2010-01-06 03:25 PM 发表评论：

一注基础通过，新年又有新任务了，自己给自己祝福一下吧

查看所评论的日志：田草日志

tiancao1001 于 2009-12-28 02:20 PM 发表评论：

这个东西搜狗推广用的东西，360可以检测到会恢复

查看所评论的日志：注册表中的 OpenHomePage

tiancao1001 于 2009-11-24 04:50 PM 发表评论：

隐藏日志的评论

查看所评论的日志：请教 vb.net 向cad发送一个命令后，得到cad执行命令后在命令行输出的内容？？

[17] [18] [19] [20] [21] [22] [23] [24] [25] [26] ... [37]