Posouvání okna

Posouvání okna zodpovězená otázka

Ahoj. Mám tento kód pro posouvání okna:

Private Sub Panel001_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel001.MouseDown
        a = New Point(e.X, e.Y + (Me.Size.Height - Me.ClientSize.Height))
    End Sub
    Private Sub Panel001_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel001.MouseMove
        If e.Button = MouseButtons.Left Then
            Me.Location = New Point(Cursor.Position.X - a.X, Cursor.Position.Y - a.Y)
        End If
    End Sub
    Private Sub Panel001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel001.Click
    End Sub

A vše je ok.

Chtěl bych ale, když najedu na Panel1 myší a chci ho posounout ( to znamená, že ho jakokdyž uchopím ) tak aby se změnila hodnota Opacity = 80%, a když ho posunu a pustím, tak opět bude mít hodnota Me.Opacity = 100%. To vše, aby probíhalo plynule

Poraďte mi prosím. Zkoušel jsem to jen tak: Me.Opacity ... a taky For, ale nějak to neposlouchá ...

nahlásit spam

-1 / 1

odpovědět

Help me... .

nahlásit spam

-2 / 2

odpovědět

Private Sub Panel001_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel001.MouseDown
        a = New Point(e.X, e.Y + (Me.Size.Height - Me.ClientSize.Height))
Me.Opacity = 0.8
End Sub

Private Sub Panel001_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel001.Mouseup
Me.Opacity = 1        
End Sub

nahlásit spam

odpovědět

DotNETcollege: Mohlo by vás zajímat

MAUI - multiplatformní aplikace v .NETu

Úvod do XAML

Vyvíjíme univerzální aplikace pro Windows

Vývoj her pomocí MonoGame

Graficky náročné operace v desktopových aplikacích pomocí SlimDX

Kontejnery, Docker a Azure Kubernetes Service (AKS)

TypeScript

Testování v prostředí .NET - unit testy a integrační testy

Kontinuální integrace pomocí TeamCity

Entity Framework pro pokročilé

otázka připomínka kladné hodnocení záporné hodnocení

Nadpis:

Antispam:

Komu se občas házejí perly?

Příspěvek bude publikován pod identitou anonym.

Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.

Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

dotNETportal.cz