|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur man programmerar Animationer i VB6

    Microsoft Visual Basic 6.0 är en dator programmeringsspråk som ger dig verktygen för att utveckla Windows-program . Du kan använda Visual Basic för att utveckla enkla nyttigheter samt avancerade skrivbordet och applikationerna Internet . Skärmsläckare är rörliga bilder eller mönster som visas på datorskärmen när tangentbordet eller musen inte har använts under en angiven tidsperiod . I några få steg kommer du att kunna skapa en skärmsläckare program med Visual Basic . Instruktioner
    1

    Starta Microsoft Visual Basic 6.0 , och klicka sedan på " Standard EXE " i " Nytt projekt " dialogrutan . Högerklicka på formuläret och välj " Egenskaper . " Type " " bredvid " Caption . " Set " ControlBox , " " MinButton " och " MaxButton " till " False ".
    2

    Välj " 0 - ingen " för " BorderStyle " och " 2 - . Maximerad " för " WindowState " Ställ in " BackColor " till " & H0 " Addera 3

    Klicka på " Visa kod " -ikonen . över ditt projekt namn i " Project Explorer " fönstret för att öppna koden fönstret . Kopiera och klistra in följande två funktioner på toppen av din kod fönster :

    Privat Declare Function SetWindowPos Lib " User32 " _ ( ByVal HWND As Long , ByVal hWndInsertAfter As Long , _ByVal x As Long , ByVal Y Som Long , ByVal CX As Long , _ByVal cy As Long , ByVal wFlags As Long ) As Long

    Private Declare Lib Funktion ShowCursor " User32 " _ ( ByVal bShow As Long ) As Long
    4

    Kopiera och klistra in koden nedan för att skapa en ny procedur som kommer att hålla formen på topp :

    Sub AlwaysOnTop ( FrmID som form , OnTop As Boolean ) Const SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const FLAGS = SWP_NOMOVE Or SWP_NOSIZEConst HWND_TOPMOST = - 1Const HWND_NOTOPMOST = -2
    p Om OnTop ThenOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0 , 0 , 0 , 0 , flaggor) ElseOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0 , 0 , 0 , 0 , flaggor ) Avsluta IfEnd Sub
    5

    Klicka på " Design " i " Project Explorer " för att se formuläret . Dubbelklicka på formuläret för att skapa den " Load " händelse . Kopiera och klistra in följande kod i formuläret " Load " händelsen för att hantera skärmsläckare :

    Välj Case LCase ( Left ( Command , 2 ) ) Case " /p " : endcase " /s " Case Else : Me.Hide : frmSettings.Show : Exit SubEnd Välj

    Dim x As IntegerCall AlwaysOnTop ( Me , sant) x = ShowCursor ( False )
    6

    Kopiera och klistra in följande kod i " Ladda ur " händelse av formulär för att visa markören när programmet avslutas :

    Dim x As Integerx = ShowCursor ( sant)
    7

    Kopiera och klistra in följande kod i den " Tangenttryckning " händelse i formuläret för att lasta av skärmsläckaren när användaren trycker på en tangent på tangentbordet :

    Statisk räknas som IntegerCount = Count + 1If Count > 5 ThenUnload MeEnd Om
    8

    Klicka på " Arkiv " -menyn , klicka på " Gör . exe " för att skapa en körbar . Gå till ditt projekt katalog och ändrar " EXE " förlängning för att kopiera filen till " C : \\ Windows \\ System \\ " " SCR . " . Mappen

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man skriver ut i Vb.Net
    ·Ställa Färger i VB.NET
    ·Hur man använder VBS att starta tjänsten automatiskt
    ·Hur man använder en region klass att utesluta en regio…
    ·Hur man använder trädvy kontroll
    ·Vad är en VB.NET Reference
    ·Hur köra en ny fråga en GridView
    ·Vad är Visual Basic 6.0
    ·Callback-funktionen för DLL
    ·Hur du sorterar en String Array i VBA
    Utvalda artiklarna
    ·Hur man tolka en indatasträngen till greve Letters i J…
    ·Hur man skapar ett formulär listruta för datum kredit…
    ·Hur man skriver ut Inkrement nummer på samma linje, me…
    ·Hur du ändrar PHP Color Scheme i CSS
    ·Vilket format är Silverlight
    ·Lägga till en bild i Word VB6
    ·Hur Loop igenom en lista med objekt i Freemarker
    ·Hur Jämför Karaktär Ignorera Fall i Java
    ·Motstridiga typer i C
    ·Hur man använder ScrollBar i VB6
    Copyright © Dator Kunskap http://www.dator.xyz