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
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
就是设计一个计算机模拟考试系统，带有学生和管理员，所以登录窗体和主窗体想分开，登陆学生的显示学生的主窗体，登陆管理员显示管理主窗体，我只会一个窗体用一堆控件，现在享有多个主窗体，不知道怎么做，希望请大 ......
在vb中怎么判断，插入到数据库中的值是重复的，本人才刚接触VB语言，甚是有好多地方还不懂，还请各位大侠们给出代码，谢谢了呀！！！
插入之前select一下阿。
或者写一个组合SQL插入语句，例如
IF not Exist(
& ......
