| dogtool 于 2010-02-04 02:26 PM 发表评论： |
| 是迅雷5.9官方的最新版的。还是不行不知道为什么？ |
|
| 查看所评论的日志：vb 隐藏其他程序的托盘图标 |
| 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 |
[64] [65] [66] [67] [68] [69] [70] [71] [72] [73] ... [143] 