animierte Gif auf Desktop

Eigene oder Gemeinschaftsprojekte, Klassen, Module, Codeschnipsel, HowTos, ...
Antworten
besenmuckel
Foriker
Beiträge: 34
Registriert: Di 4. Nov 2014, 21:11
Kontaktdaten:

animierte Gif auf Desktop

Beitrag von besenmuckel » Mi 13. Apr 2016, 00:52

Hier ein kleines Beispiel das die Form nicht viereckig sein muss.
MovieBox und Menue im Code erstellt. Man kann die MovieBox aber auch auf die Form packen und das Menue mit den MenueEditor erstellen.
Linksklick verschieben, Rechtsklick beenden.

Code: Alles auswählen

' Gambas class file

Private $MX As Integer
Private $MY As Integer
Private welt As Object
' Linksklick verschieben!
' Rechtsklick  beenden!

Public Sub Form_Open()

  FMain.Center
  welt = New MovieBox(Me) As "welt"    ' Objekt erstellen.
  Me.Border = False
  Me.Mask = True
  Me.Picture = Picture["maske.png"] ' dies ist die Maske fuer Hintergrund.
  FMain.Height = 225
  FMain.Width = 225
  welt.Path = "erde.gif"   ' dies ist das gif, was auf den Bereich der Maske angezeigt wird!
  welt.Move(0, 0, Me.ClientWidth, Me.ClientHeight)
  welt.Playing = True

End

Public Sub mnuEnde_Click()

  welt.Playing = False
  Me.Close

End

Public Sub welt_MouseDown()

  $MX = Mouse.ScreenX - Me.X
  $MY = Mouse.ScreenY - Me.Y

End

Public Sub welt_MouseMove()

  Me.Move(Mouse.ScreenX - $MX, Mouse.ScreenY - $MY)

End

Public Sub Form_Menu()

  Dim menus, item As Menu

  menus = New Menu(Me)    ' Neues Menu anlegen
  item = New Menu(menus) As "Ausmacher"   ' Neuer Eintrag im Menu, "Ausmacher" ist der Funtionsname der aufgerufen werden soll
  item.Text = ("ENDE")   ' Text für Menupunkt
  menus.Popup()    ' Menu anzeigen

End

Public Sub Ausmacher_Click()

  Me.Close

End

hier noch die Maske und das Gif
maske.png
erde.gif

Weltkugel-0.0.1.tar.gz
(910.74 KiB) 49-mal heruntergeladen

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste