Question

我想隐藏并以美丽，不间断的方式展示侧面板您使用了多种方法，包括更改面板宽度也使用方式来改变位置

 `Increase the width


          `    For i = 0 To 100 Step 10

            Panel1.Width = i
            Application.DoEvents()
            Me.Refresh()
        Next`  
decrease the width

    For i = 100 To 0 Step -10
            Panel1.Width = i
        Next
the code to change location 
        hide panel

Do Until Panel1.Location.X = 1020
        Panel1.Location = New Point(Panel1.Location.X + 10, 60)
        Application.DoEvents()
        Me.Refresh()
    Loop

show panel

`Do Until Panel1.Location.X = 830
            Panel1.Location = New Point(Panel1.Location.X - 10, 60)
            Application.DoEvents()
            Me.Refresh()
        Loop`

`

你使用的所有方法都没有快速运动和间歇性是否有一个特殊的库来移动东西我使用visual studio 2008 问题视频enter link description here

Answer 1

我使用WPF而不是Windows Forms应用程序来制作漂亮的动画，也许你可以试试WPF。使用WPF，您可以使用动画更改不透明度，位置，宽度...，查看https://msdn.microsoft.com/de-de/library/ms752312(v=vs.110).aspx

Answer 2

经过大量研究我在后台工作人员中使用了因子，并在其中添加了滞后代码，这是完整的代码

const CreateTodoScreen = props => {
    return (
        <KeyboardAvoidingView style={{flex: 1}} behavior={Platform.OS === "ios" ? "padding" : null} enabled={true}>
            <View style={{flex: 1, justifyContent: 'flex-end'}}>
                <TextInput placeholder={"e.g. call Alex"} style={{borderBottomWidth: 2, borderBottomColor: 'black'}}/>
            </View>
        </KeyboardAvoidingView>
    )
};

后台工作人员代码

 Dim slide = False  ' check slide state left or right
        Private Sub Roundbutton1_Click_1(sender As Object, e As EventArgs) Handles Roundbutton1.Click
                    CheckForIllegalCrossThreadCalls = False
                    BackgroundWorker1.RunWorkerAsync()   
                End Sub

在visual basic dot net中移动面板的最佳方法是什么？

2 个答案: