Visual Basic 6 ( VB6 ) kan användas för att utveckla många olika applikationer för Microsoft Windows - baserade plattformar . Skapa ett nytt formulär för ansökan användaren vid den tidpunkt då ansökan börjar löpa , eller " runtime ", är en bra övning för programmerare nybörjare VB6 som behöver lära sig att lägga fram sina användare med användningsmöjligheter när programmet startas om användarens skrivbord . Instruktioner
1
Skapa en lista av globala variabler för listan att följa , till exempel :
Option Explicit
Privat allowNumericOnly As Boolean
privat frm Som Form
privat lblDisplay Som Button
privat WithEvents cmdOK Som CommandButton
privat WithEvents cmdCancel Som CommandButton
privat WithEvents textInput Som TextBox
Sida 2
Skapa ett förfarande för formuläret som kommer att avgöra hur formulär visas för användaren och vad , om något text och bildtexter visas . Använd följande exempel på kod för att ställa upp detta för formuläret :
Private Sub GenerateRuntimeForm ( ) katalog
Dim ctrl som kontroll
Set frm = Ny blankett 1
Set cmdOK = ingenting
Set cmdCancel = ingenting
Set textInput = ingenting
Set lblDisplay = ingenting
For Each ctrl I frm
ctrl.Visible = False
Nästa
3
Ställ in olika kommandon till knappar, med följande kod som grund för ditt projekt :
Set cmdOK =
frm.Controls.Add ( " VB.CommandButton " , " cmdOK " ) katalog
Set cmdCancel =
frm.Controls.Add ( " VB.CommandButton " , " cmdCancel " ) katalog
Set txtInput =
frm.Controls.Add ( " VB.TextBox " , " txtInput " )
4
Fyll i formuläret koden genom att lägga till följande display villkor och slutar subrutinen med " End Sub " enligt följande :
cmdOK.Visible = Sant
cmdCancel.Visible = Sant
lblDisplay.Visible = Sant
txtIput.Visible = Sant
form.sow vbModal
End Sub
