animierte Gif auf Desktop

Schnipsel, Ideen und Lösungsvorschläge

animierte Gif auf Desktop

Beitragvon 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) 52-mal heruntergeladen
besenmuckel
Foriker
 
Beiträge: 35
Registriert: Di 4. Nov 2014, 21:11

Zurück zu Schnipsel / HOWTO's

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast

cron