收录日期:2018/08/17 01:42:58 时间:2016/05/20 18:27:39 标签:API
大家想想谢谢
坐标运算
多图层合并
please show me the code
做个窗体移动
Private Sub fbHead_Click(Index As Integer)
    Dim i As Integer
    Dim j As Integer
    Dim n As Integer
    Dim nTotal As Integer
     
    n = Index - m_nPanelIndex
    If n = 0 Then
        Exit Sub
    End If
    
    nTotal = picPanel(0).Height - PIC_PANEL_COUNT * fbHead(0).Height

    For i = 0 To nTotal Step HEAD_STEP
        If n < 0 Then '下移 m_nPanelIndex> index
            For j = m_nPanelIndex To Index + 1 Step -1
                picPanel(j).Top = picPanel(j).Top + HEAD_STEP
            Next j
        Else '上移 index> m_nPanelIndex
            For j = m_nPanelIndex + 1 To Index
                picPanel(j).Top = picPanel(j).Top - HEAD_STEP
            Next j
        End If
    Next i
    m_nPanelIndex = Index


    For j = 0 To PIC_PANEL_COUNT - 1
    '   fbHead(j).Clear
    Next
End Sub
up
up
两种方法:
将图片的长度扩大一倍,然后从头滚动到底,再从头滚动,看上去就是平滑滚动

或者用PaintPicture或Bitblt,自己切割图片,再画上去。

建议后者
谢谢大家
aa
用算法写 例如 Xscan 别动不动就图片
up
至少在Win2000登录的滚动条是图片。

我把它改成彩虹带了。
楼上的朋友你是怎么做的呢?
up
up
pigpag(噼里啪啦) ,怎么办到的,我出50分