vb的实例源码
怎么样用vb画等腰三角形?
怎么样用vb画等腰三角形?
代码示例:
Private Sub Command1_Click()
ScaleMode = vbPixels
Me.Cls
PSet (Me.ScaleWidth / 2, 5), RGB(255, 0, 0)
PSet (5, Me.ScaleHeight - 5), RGB(0, 255, 0)
PSet (Me.ScaleWidth - 5, Me.ScaleHeight - 5), RGB(0, 0, 255)
Line (Me.ScaleWidth / 2, 0)-(5, Me.ScaleHeight - 5), RGB(255, 0, 0)
Line (Me.ScaleWidth / 2, 0)-(Me.ScaleWidth - 5, Me.ScaleHeight - 5), RGB(0, 255, 0)
Line (5, Me.ScaleHeight - 5)-(Me.ScaleWidth - 5, Me.ScaleHeight - 5), RGB(0, 0, 255)
End Sub