VB里面怎么定义窗体的坐标?
定义窗体的最左上角为(0,100)最右下角为(100,0)要怎么定义怎么在VB里面画圆和其他图形?SubForm_Click()DimjAsDouble,k,o,r,tj...
定义窗体的最左上角为(0,100)最右下角为(100,0)
要怎么定义
怎么在VB里面画圆和其他图形?
Sub Form_Click()
Dim j As Double, k, o, r, t
j = 360 / 36
For I = 1 To 36
k = Sin(j * I) * 1000
o = Cos(j * I) * 1000
If p <> I Then
For p = I + 1 To 37
r = Sin(j * p) * 1000
t = Cos(j * p) * 1000
Form1.Line (k, o)-(r, t)
End If
End Sub
这两个FOR要怎么个结束语 展开
要怎么定义
怎么在VB里面画圆和其他图形?
Sub Form_Click()
Dim j As Double, k, o, r, t
j = 360 / 36
For I = 1 To 36
k = Sin(j * I) * 1000
o = Cos(j * I) * 1000
If p <> I Then
For p = I + 1 To 37
r = Sin(j * p) * 1000
t = Cos(j * p) * 1000
Form1.Line (k, o)-(r, t)
End If
End Sub
这两个FOR要怎么个结束语 展开
展开全部
用窗体的LEFT(左)和TOP(顶、上)属性定义其左上角的坐标,用其WIDTH(宽)和HEIGHT(高)属性定义其右下角的坐标
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
scale (0,100)-(100,0)
画圆:circle(x,y),r (x,y)圆心坐标,r为半径
直线: line(x1,y1)-(x2,y2)(加上,b则为矩形)
以上逗号均为英文。
在End if后加两个Next(一行一个)
画圆:circle(x,y),r (x,y)圆心坐标,r为半径
直线: line(x1,y1)-(x2,y2)(加上,b则为矩形)
以上逗号均为英文。
在End if后加两个Next(一行一个)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
答错了,参考楼上的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询