| tiancao1001 于 2010-02-04 03:19 PM 发表评论： |
也就鼠标放到迅雷图标上 显示的内容
 |
|
| 查看所评论的日志：vb 隐藏其他程序的托盘图标 |
| 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 发表评论： |
|
| 查看所评论的日志：注册表中的 OpenHomePage |
[17] [18] [19] [20] [21] [22] [23] [24] [25] [26] ... [37] 