Dator
 |  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 >> Computer Programspråk >> Content

    Hur Center en röstbrevlåda i Visual Basic

    Microsoft Visual Basic -kontroller kan du visa programmets meddelanden i ett användarvänligt formulär dialogruta . Du använder meddelanderutor när du vill be användaren en fråga eller att visa ett felmeddelande och informera användaren om möjliga lösningar på problemet . De koordinerade parametrarna för ett formulär ger dig möjlighet att bestämma sin position i det öppna fönstret . Genom att placera ett meddelande rutan i mitten av ett Visual Basic formulär , kan du göra texten mer synliga för användaren . Instruktioner
    1

    Klicka på Start i Windows och klicka sedan på " Microsoft Visual Studio . "
    2

    Klicka på " File " och klicka sedan på " Ny " för att skapa standard " Form1 . " formen
    3

    Lägg till följande kod i det öppna fönstret :

    Typ RECT

    Vänster As Long

    Top Som lång

    Right As Long

    Botten As Long

    End Typ

    Public Declare Function SetWindowPos Lib " User32 " ( ) katalog

    Public deklarera Funktion GetWindowRect Lib " User32 " ( ByVal HWND _As Long , lpRect Som RECT ) As Long

    Funktion WinProc2 ( ByVal lMsg As Long , ByVal wParam As Long , _ByVal lParam As Long ) As Long

    Dim rectForm Som RECT , rectMsg Som RECT

    Dim x As Long , y As Long

    'On HCBT_ACTIVATE , visar MsgBox centrerad över Form1
    p Om lMsg = HCBT_ACTIVATE sedan

    "få koordinaterna för formen och meddelanderutan

    " för att avgöra i mitten av formuläret plats

    GetWindowRect Form1.hwnd , rectForm

    GetWindowRect wParam , rectMsg

    x = ( rectForm.Left + ( rectForm.Right - rectForm.Left ) /2 ) - _

    ( ( rectMsg.Right - rectMsg.Left ) /2 )

    y = ( rectForm.Top + ( rectForm.Bottom - rectForm.Top ) /2 ) - _

    ( ( rectMsg.Bottom - rectMsg.Top ) /2 ) katalog

    ' Placera MsgBox

    SetWindowPos wParam , 0 , x, y , 0 , 0 , _

    SWP_NOSIZE Eller SWP_NOZORDER Eller SWP_NOACTIVATE
    Funktion

    End

    Private Sub Command2_Click ( ) katalog

    Dim hInst As Long

    Dim Thread As Long

    'Visa meddelanderutan

    " MsgBox " Detta meddelande rutan är placerad vid ( 0,0 ) . "

    End Sub
    4

    Tryck på " F5 "för att köra programmet .
    5

    Klicka på " Kommando2 " knappen på formuläret för att visa meddelandet i mitten av formen . Klicka på " OK " för att stänga meddelanderutan .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Nackdelarna med index på beräknade kolumner
    ·Hur du ändrar en JTable s Cellfärg
    ·Hur Byt COBOL
    ·Hur man gör en digital klocka
    ·Hur man skriver testfall för en webbsida
    ·Hur Automatisera FTP nedladdningar
    ·Syntax för en funktion
    ·Lägga till attribut till en XMLNode
    ·Hur konvertera binära Word MSB och LSB till decimal
    ·Hur man skriver ett Connection String som en klass fil
    Utvalda artiklarna
    ·Hur hittar man det största antalet i en Array
    ·Hur man gör ett spel sidscrollande i Java
    ·Beskrivning av Visual Basic
    ·En Process Explorer Script
    ·Hur man kan få en frågevärdet
    ·Vad är händelsestyrd Bubblande
    ·Hur man öppnar en TPB
    ·Hur man gör ett program med Microsoft Visual C
    ·Skriva ut till en specifik skrivare i VB.NET
    ·Konvertera en Float till en int i C #
    Copyright © Dator Kunskap http://www.dator.xyz