|  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 storleksändra en Visual Basic formulär för att passa skärmen

    När du designar ett formulär i Visual Basic , bestämmer du på en idealisk storlek och bygga formen därefter. Såvida du begränsa användare från storleksändring din blankett , bör du ta hänsyn till vad som händer med det om en användare re- storlekar skärmen eller hur ditt formulär visas för användare med olika skärmupplösningar än din egen . Du kan skriva en sub som re- storlekar formuläret och dess kontroller och ring sub när du behöver . Instruktioner
    1

    Öppna din projektets kod fönster . Deklarera en ny privat Sub och skapa två variabler för att hålla X-och Y -värden för re- size :

    Private Sub ResizeForm ( ByVal Form ) katalog

    Dim XSize As Integer
    < p > Dim YSize As Integer
    2

    Ange följande rader , den första för att undvika ett program krasch för de kontroller som inte kan ändra storlek och den andra för att förhindra re - storlek uppstår om blanketten är redan minimeras eller maximeras :

    On Error Resume Next
    p Om Form.WindowState < > 0 Then Exit Sub
    3

    Ange följande linjer för att ställa in den re - sized formen ursprung ( övre vänstra hörnet av formuläret ) till det övre vänstra hörnet av skärmen , och att förstora själva formuläret :

    Me.Top = 0

    Me.Left = 0

    Me.Height = Me.Height * YSize

    Me.Width = Me.Width * XSize
    4

    Enter följande rader till slinga genom kontrollerna som finns i formuläret för att ändra deras storlek , och avslutar sub . Detta kommer att ändra storlek bredder och höjder på flera kontroller samtidigt hålla sina inriktningar intakt :

    För i = 0 Att Me.Controls.Count - 1

    Me.Controls ( i) . Vänster = Me.Controls (I). Vänster * XSize

    Me.Controls (I). Top = Me.Controls (I). Top * YSize

    Me.Controls (I). Höjd = Me.Controls (I). Höjd * YSize

    Me.Controls (I). Bredd = Me.Controls (I). Bredd * XSize

    Nästa jag
    < p > End Sub

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur Infoga VB till Flash 8
    ·Komma åt VBA på Hämta externa data
    ·Felsökning av en VBA med någon tom sida
    ·Komma åt Seriella & Parallella portar med hjälp av Vi…
    ·Hur man skapar Word-dokument från ASP
    ·Hur får man ett värde på HKEY_CLASSES_ROOT i Visual …
    ·Skriva ut Into en Etiketter Bildtext i Visual Basic 6.0…
    ·Hur du fyller Barer i Visual Basic
    ·Hur man skapar en databas med hjälp ProgressBar och VB…
    ·Hur konvertera heltal till Datum Värde Visual Basic
    Utvalda artiklarna
    ·VB.NET Miljö : Teckensnitt och färger
    ·Hur konvertera binära data till en decimal i Perl
    ·JavaScript-funktioner för att acceptera namngivna para…
    ·Hur du aktiverar Server Control Använda Javascript
    ·Hur man berättar DB2 till Avrunda ett tal
    ·Hur man upptäcker en händelse med WIA Vänta
    ·COBOL Tutorial
    ·Hur får Window Names i Visual Basic
    ·Vad är IndexError i Python
    ·Hur man installerar DBD - MySQL för PPM
    Copyright © Dator Kunskap http://www.dator.xyz