Visual Basic 6 Maken ( VB6 ) kan worden gebruikt om vele verschillende toepassingen voor Microsoft Windows - based computing -platforms te ontwikkelen . Het creëren van een nieuw formulier voor de aanvraag gebruiker op het moment dat de aanvraag begint te lopen , of "runtime , " is een goede praktijk oefening voor beginnende VB6 programmeurs die moeten leren om hun gebruikers te presenteren met opties voor toepassingen op het moment dat de toepassing gelanceerd op desktop van de gebruiker . Instructies
1 Maak een lijst van de globale variabelen voor de lijst te volgen , bijvoorbeeld : Option Explicit
Prive allowNumericOnly zoals Van Boole
prive frm Zoals Vorm prive lblDisplay
Zoals Button prive WithEvents cmdOK
Zoals deCommandButton
prive WithEvents cmdCancel Zoals deCommandButton
prive WithEvents textInput Zoals TextBox
Pagina 2 Maak een procedure voor de vorm die zal bepalen hoe het formulier wordt weergegeven aan de gebruiker en wat de eventuele tekst en bijschriften zal verschijnen . Gebruik het volgende voorbeeld van de code om dit op te zetten voor uw formulier : Private Sub GenerateRuntimeForm ( )
Dim ctrl Zoals Controle
Set frm = New Form 1
Set cmdOK = Nothing
Set = Nothing
Stel textInput = Nothing
voor Elke ctrl In frm < br = niets Set lblDisplay
cmdCancel > = False
volgende
3 ctrl.Visible Stel de verschillende commando's voor de knoppen , met behulp van de volgende code als basis voor uw project : < br Set cmdOK = frm.Controls.Add
( " VB.CommandButton " , " cmdOK " ) Set cmdCancel = frm.Controls.Add
( > " VB.CommandButton " , " cmdCancel " ) Set
txtInput = frm.Controls.Add
( " VB.TextBox " , " txtInput " )
4 Vul het formulier code door de volgende weergave voorwaarden en het beëindigen van de subroutine met " End Sub " als volgt :
= True
cmdCancel.Visible = True
lblDisplay.Visible = True
txtIput.Visible = True
form.sow vbModal
End Sub
|
