怎么画波浪线？有没有画波浪线的控件？

Question

怎么画波浪线？有没有画波浪线的控件？

Answer 1

Option ExplicitPrivate Sub Form_Load()
    Wave 0, 1000, 5000
End Sub
Private Sub Wave(X As Integer, Y As Integer, intLen As Integer)
    Dim i As Integer
    Me.CurrentX = X
    Me.CurrentY = Y
    For i = X To X + intLen
        Me.Line -(i, 20 * Sin(i / 25) + Y)
    Next
End Sub

Answer 2

wangyy123(wyy) :搞笑啊你!呵呵!I 服了 YOU!

Answer 3

chewinggum(口香糖·dotnet转型中) ：老大，我可能说到让你们误会了!
我说的是波动很大的波浪啊¬¬>......

Answer 4

海岸线海岸线海岸线海岸线海岸线海岸线海岸线海岸线海岸线海岸线海岸线海岸线   WW      WW      WW      WW      WW      WW      WW      WW   
 W    W  W    W  W    W  W    W  W    W  W    W  W    W  W    W   
W      WW      WW      WW      WW      WW      WW      WW      W楼主看看这个波浪大不大啊？

Answer 5

//chewinggum(口香糖·dotnet转型中) ：老大，我可能说到让你们误会了!
//我说的是波动很大的波浪啊¬¬>......发挥主观能动性，改一改我的程序不就可以了
Option ExplicitPrivate Sub Form_Load()
    Wave 0, 1000, 5000
    Me.AutoRedraw = True
End Sub
Private Sub Wave(X As Integer, Y As Integer, intLen As Integer)
    Dim i As Integer
    Me.CurrentX = X
    Me.CurrentY = Y
    For i = X To X + intLen
        Me.Line -(i, 500 * Sin(i / 100) + Y)
    Next
End Sub

Answer 6

chewinggum(口香糖·dotnet转型中) ：谢谢，我会了!!
这就结帐!