9

多くのモバイル OS で使用される効果と同じように、winforms フォームを「シェイク」してユーザー フィードバックを提供したいと考えています。

ウィンドウの位置を設定したり、行ったり来たりすることはもちろんできForm1.Location.Xますが、この方法の効果はひどいです。もう少し流暢なものが欲しいです。または、画面全体を振る方法はありますか?

.net 4.5 を使用して Windows 7 のみをターゲットにします。

アップデート

Hans と Vidstige の両方の提案を使用して、次のことを思いつきました。これは、ウィンドウが最大化されている場合にも機能します。2 つの回答を選択できたらいいのにと思います。ただし、ハンスの答えはすべての重要な点に当てはまります。

2つのフォームMainFormとShakeForm

メインフォーム コード

 Private Sub shakeScreenFeedback()

        Dim f As New Shakefrm
        Dim b As New Bitmap(Me.Width, Me.Height, PixelFormat.Format32bppArgb)

        Me.DrawToBitmap(b, Me.DisplayRectangle)

        f.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        f.Width = Me.Width
        f.Height = Me.Height
        f.ShowInTaskbar = False

        f.BackgroundImage = b
        f.BackgroundImageLayout = ImageLayout.Center
        f.Show(Me)
        f.Location = New Drawing.Point(Me.Location.X, Me.Location.Y)

        'I found putting the shake code in the formLoad event didn't work
        f.shake()
        f.Close()

        b.Dispose()

    End Sub

ShakeFormコード

Public Sub shake()
    Dim original = Location
    Dim rnd = New Random(1337)
    Const shake_amplitude As Integer = 10
    For i As Integer = 0 To 9
        Location = New Point(original.X + rnd.[Next](-shake_amplitude, shake_amplitude), original.Y + rnd.[Next](-shake_amplitude, shake_amplitude))
        System.Threading.Thread.Sleep(20)
    Next
    Location = original

End Sub
4

4 に答える 4