文明旅游图片素材:介绍一个VB教程,或可以下载VB教程的网站

zheng0823 用户不厚道,推荐网站得时候还要顺便宣传一下.......
目前VB顶尖专家得网站是 www.vbgood.com 这个是学VB的人公认的,www.mndsoft.com是一个VB相当专业的源代码站 http://www.vbaspnew.com/ 网站内容太杂不适合初学者

算了吧!
要看的话，我这里今天刚做了一个,你先看看吧!
告诉我这个是干什么的?怎么样???哈哈!
我的QQ:245714387
这里只有一个from1窗体,一个工程文件,我只给出你窗体文件的代码了,你自己看吧,很短的,看明白了,告诉我!!我再给你找!!
Private Sub Form_Load()
jishu = 0: lukuan = 100: x2 = 0: y2 = 0: x3 = 16: y3 = 15
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Print X; Y
Dim temp1, temp2, temp3, temp4 As Double
Picture1.Circle (X, Y), 30 '画出一个圆圈标识所选中的点
If jishu = 0 Then
x1 = X: y1 = Y: jishu = jishu + 1
ElseIf jishu = 1 Then
x2 = X: y2 = Y: jishu = jishu + 1
ElseIf jishu = 2 Then
x3 = X: y3 = Y: jishu = jishu + 1
Else
x1 = x2: y1 = y2
x2 = x3: y2 = y3
x3 = X: y3 = Y
End If
On Error GoTo tishi

'计算x4,y4点的坐标
y4 = y1 + Sqr(lukuan ^ 2 / ((y2 - y1) ^ 2 / (x2 - x1) ^ 2 + 1))
x4 = (y2 - y1) / (x2 - x1) * (y1 - y4) + x1 '(y2 - y1) / (x2 - x1)为斜率
'计算x5,y5点的坐标
x5 = ((y3 - y1) / (x3 - x1) * (y2 - y4 + (y2 - y1) / (x2 - x1) * x4) + x2) / ((y3 - y1) / (x3 - x1) * (y2 - y1) / (x2 - x1) + 1) '(y3-y1)/(x3-x1)为斜率
y5 = y4 + (y2 - y1) / (x2 - x1) * (x5 - x4) '(y2 - y1) / (x2 - x1)
'计算x6,y6点的坐标
x6 = 2 * x2 - x5
y6 = 2 * y2 - y5
'计算x7,y7点的坐标
x7 = 2 * x1 - x4
y7 = 2 * y1 - y4
'计算x8,y8点的坐标
y8 = y2 + Sqr(lukuan ^ 2 / ((y3 - y2) ^ 2 / (x3 - x2) ^ 2 + 1))
x8 = (y3 - y2) / (x3 - x2) * (y2 - y8) + x2 '(y3 - y2) / (x2 - x1)为斜率
'计算x9,y9点的坐标
x9 = x2 + x3 - x8
y9 = y2 + y3 - y8
'计算x10,y10点的坐标
x10 = 2 * x3 - x9
y10 = 2 * y3 - y9
temp1 = x5: temp2 = y5
temp3 = x6: temp4 = y6

If jishu > 2 Then
If jishu > 3 Then '实现无缝连接,把开始的交点存储起来
x4 = temp1: y4 = temp2
x6 = temp3: y6 = temp4
End If
Picture1.Line (x7, y7)-(x6, y6)
Picture1.Line (x4, y4)-(x5, y5)
Picture1.Line (x5, y5)-(x10, y10)
Picture1.Line (x6, y6)-(x9, y9)
End If
Exit Sub
tishi: MsgBox ("您所选的路线不能与Y轴平行!")
End Sub

http://my.xunlei.com/index.htm中搜索 VB 教程 ,太多,下载选用吧!

任子尧真帅，天天玩vbs