请看下,我想填充三角形的颜色,Private Declare Sub FloodFill Lib "GDI32" (ByVal hDC As Long,ByVal x As Long,ByVal y As Long,ByVal crColor As Long)Public pi,xb As SinglePrivate Sub Form_Load()pi = 3.14159265358979t.Scale (-t.Width / 2,t.Heig

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/26 03:38:31
请看下,我想填充三角形的颜色,PrivateDeclareSubFloodFillLib"GDI32"(ByValhDCAsLong,ByValxAsLong,ByValyAsLong,ByValcr

请看下,我想填充三角形的颜色,Private Declare Sub FloodFill Lib "GDI32" (ByVal hDC As Long,ByVal x As Long,ByVal y As Long,ByVal crColor As Long)Public pi,xb As SinglePrivate Sub Form_Load()pi = 3.14159265358979t.Scale (-t.Width / 2,t.Heig
请看下,我想填充三角形的颜色,
Private Declare Sub FloodFill Lib "GDI32" (ByVal hDC As Long,ByVal x As Long,ByVal y As Long,ByVal crColor As Long)
Public pi,xb As Single
Private Sub Form_Load()
pi = 3.14159265358979
t.Scale (-t.Width / 2,t.Height / 2)-(t.Width / 2,-t.Height / 2)
End Sub
Public Function dx(ddmc,ddx,xzjd) '顶点名称,顶点x,旋转角度
If ddmc = "a" Then
dx = ddx + xb * Cos((xzjd - 15) * pi / 180)
Else
dx = ddx + xb * Cos((xzjd + 15) * pi / 180)
End If
End Function
Public Function dy(ddmc,ddy,xzjd) '顶点名称,顶点y,旋转角度
If ddmc = "a" Then
dy = ddy + xb * Sin((xzjd - 15) * pi / 180)
Else
dy = ddy + xb * Sin((xzjd + 15) * pi / 180)
End If
End Function
Private Sub t_Click()
wr = 25
lr = 20
wrk = 20
bh = 5
bs = 70
xb = 900
wr1 = wr * bs
lr1 = lr * bs
wrk1 = wrk * bs
lrk1 = lrk * bs
l1 = l * bs
gg1 = gg * bs
bh1 = bh * bs
wrqdj = (180 - wrj / 2) / 180 * pi
wrzdj = (180 + wrj / 2) / 180 * pi
lrqdj = (180 - lrj / 2) / 180 * pi
lrzdj = (180 + lrj / 2) / 180 * pi
If bh + lr < wr Then
ox = -t.Width / 4 + wr1 / 2
Else
ox = -t.Width / 4 - (bh1 + lr1) / 2 + wr1
End If
oy = 0
px = ox + bh1 - (wr1 - lr1)
py = 0
ex = t.Width / 4
ey = 0
Dim wrddx,wrddy,lrddx,lrddy '外R和内R的注示箭头顶点的坐标
wrddx = ox + wr1 * Cos((180 - wrj / 4) * pi / 180)
wrddy = oy + wr1 * Sin((180 - wrj / 4) * pi / 180)
lrddx = px + lr1 * Cos((180 + lrj / 4) * pi / 180)
lrddy = py + lr1 * Sin((180 + lrj / 4) * pi / 180)
t.Line (wrddx,wrddy)-(dx("a",wrddx,180 - wrj / 4),dy("a",wrddy,180 - wrj / 4))
t.Line -(dx("b",wrddx,180 - wrj / 4),dy("b",wrddy,180 - wrj / 4))
t.Line -(wrddx,wrddy)
Dim x As Long,y As Long
x = t.ScaleX(wrddx + xb / 4 * 3 * Cos((180 - wrj / 4) * pi / 180),vbUser,vbPixels)
y = t.ScaleY(wrddy + xb / 4 * 3 * Sin((180 - wrj / 4) * pi / 180),vbUser,vbPixels)
t.FillColor = vbBlack
t.FillStyle = 0
FloodFill t.hDC,x,y,0
End Sub
这是我的程序一部份,三角形的颜色填充不好,请指教

请看下,我想填充三角形的颜色,Private Declare Sub FloodFill Lib "GDI32" (ByVal hDC As Long,ByVal x As Long,ByVal y As Long,ByVal crColor As Long)Public pi,xb As SinglePrivate Sub Form_Load()pi = 3.14159265358979t.Scale (-t.Width / 2,t.Heig
你的(x,y)根本不在三角形当中!
x = t.ScaleX(wrddx + xb / 4 * 3 * Cos((180 - wrj / 4) * pi / 180),vbUser,vbPixels)
y = t.ScaleY(wrddy + xb / 4 * 3 * Sin((180 - wrj / 4) * pi / 180),vbUser,vbPixels)
t.PSet (X,Y),vbRed '加这句仔细看小红点的位置!

请看下,我想填充三角形的颜色,Private Declare Sub FloodFill Lib GDI32 (ByVal hDC As Long,ByVal x As Long,ByVal y As Long,ByVal crColor As Long)Public pi,xb As SinglePrivate Sub Form_Load()pi = 3.14159265358979t.Scale (-t.Width / 2,t.Heig 在flash中填充三角形内部颜色 CDR中怎么把线段闭合成可以填充颜色的图形~比如三角形是用3根线段画的,但是这样的图不能填充颜色,怎么把他们闭合成可填充颜色的呢? matlab fill画三角形颜色填充我想用fill对三角形进行填充,由于X和Y都是三个点,所以C值变成了RGB值,怎样才能让C值对应每个点呢?原来画4个点的时候就是渐变的,想在三个点的时候也这样, matlab fill画三角形颜色填充我想用fill对三角形进行填充,由于X和Y都是三个点,所以C值变成了RGB值,怎样才能让C值对应每个点呢?原来画4个点的时候就是渐变的,想在三个点的时候也这样, 如何去掉文字后面的填充颜色? 如何使用几何画板中给三角形填充颜色 在word中任意画一个三角形如何填充颜色 coreldraw里,我想把两个物体的颜色填充成一样的颜色,请问它们的快捷键是什么我已经填充好一个物体了,但是第二个物体我也想和第一个是一样的颜色 各位请看下这个是什么颜色?(就算是我色盲吧...)一: 二: (右下角的那颜色) 三角形怎么算平方米上边是11米,下边是15米,高是11.8米.我想知道这个三角形的平方米是多少.请看这个图 帮我算下 多少平方米, ps一张图!把中间的3改成13,13这个数字里面的三角形像原图那样用三角形填充,三角形的颜色和原图一样! CDR在一个平面图中怎样填充另种颜色如图国旗与旗杆都是红色的了,我想把旗杆改为另一种颜色,本人CDR新手, AI文字如何填充渐变色?我想问下AI里面的文字如何才能填充渐变色呢?请辞教.一行文字转成曲线后再填充渐变,结果是每个文字填充了一次渐变色,而不是整行文字只填充一次渐变色!我想知道的 CAD2008两个同心圆填充差集部分意思就是CAD中两个同心的圆,我想把大圆内小圆外的部分填充颜色,我想知道的是只有孤岛外部填充一种方法吗?普通填充能做到吗? CDR快速填充颜色我记得以前有个快捷键:就是我第一次填充了黄色,然后我选中一个图形,按下快捷键后图形就直接填充黄色了(就是直接填充上一次的填充色的快捷键)? ps怎样画三角形啊?除了钢笔工具,我不会用钢笔工具的。,要画成可以填充颜色的那种哦。就像选筐工具那样,画出一个虚线三角形,然后进行填充。 photoshop怎么填充颜色?