vb画多边形问题（有代码）
Dim firstmousedown As Boolean '为True时表示是第一次发生Mousedown事件]
Private Type point
X As Double
Y As Double
End Type
Dim oldpoint As point '记录前一个点
Dim firstpoint As point '第一个点
Dim a As point
Private Sub picture1_DblClick()
Picture1.Line (firstpoint.X, firstpoint.Y)-(oldpoint.X, oldpoint.Y)
firstpoint.X = oldpoint.X
firstpoint.Y = oldpoint.Y
oldpoint.X = oldpoint.X
oldpoint.Y = oldpoint.Y
Print oldpoint.X
End Sub
Private Sub Form_Load()
firstmousedown = True
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If firstmousedown = True Then
firstpoint.X = X
firstpoint.Y = Y
End If
Line1.X1 = X
Line1.Y1 = Y
Line1.X2 = X
Line1.Y2 = Y
Line1.Visible = True
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If firstmousedown = True Then
Line1.X1 = firstpoint.X
Line1.Y1 = firstpoint.Y
Line1.X2 = X
Line1.Y2 = Y
Else
Line1.X1 = oldpoint.X
Line1.Y1 = oldpoint.Y
Line1.X2 = X
Line1.Y2 = Y
End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If firstmousedown = True The
相关问答：
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
用VB怎么只针对windows自带的文件的右键添加菜单 如（.txt .doc)
这个是只针对以这两个为扩展名的文件操作
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[随便起名]\command]
@= ......
vb将winsock控件封装到dll问题 有什么好的思路？ 如果用Socket API呢？
例如，像下面这样封装Winsock控件，行的通？
创建ActiveX dll，添加窗体frmClient，加入WinSock控件wskClient。
类代码：
Option Expli ......
