• Home
 · 
• Custom Controls/Forms/Menus
 · 
• This sample program demonstrates how to add controls on a form using only code at run-time.

This sample program demonstrates how to add controls on a form using only code at run-time.

This sample program demonstrates how to add controls on a form using only code at run-time.

API Declarations


'Note: this program is my own work and please don't take credit for it
'For any suggestions and comments, just e-mail me at [email protected]
'this sample program demonstrate on how to add controls on the form using codes
'it also demonstrate on how to restart your pc within your programs.


'Note: This is the declaration section of form1-name it frmtimer


Option Explicit

'declares the controls
Private WithEvents txttime As TextBox
Private WithEvents mytimer As Timer
Private WithEvents mylabel As Label
Private WithEvents cmdclose As CommandButton
Private WithEvents StatusBar1 As StatusBar

Private Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, _
ByVal dwReserved As Long) _
As Long

Const EWX_REBOOT = 2

'*******************************

'Note: Declaration Section of form2-name it frmgoodbye
Option Explicit

Private WithEvents mytimer As Timer
Private WithEvents mylabel As Label






Rate This sample program demonstrates how to add controls on a form using only code at run-time.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub form_load()
    Set txttime = Controls.Add("vb.textbox", "txttime")
    Set mytimer = Controls.Add("vb.Timer", "mytimer")
    Set mylabel = Controls.Add("vb.label", "mylabel")
    Set cmdclose = Controls.Add("vb.commandbutton", "cmdclose")
    Set StatusBar1 = Controls.Add("MScomctlLib.sbarctrl.2", "statusbar1")
    With cmdclose
        .Caption = "&Close"
        .Visible = True
        .Top = 2000
        .Left = (frmtimer.ScaleWidth - cmdclose.Width) \ 2
    End With
        
    With mylabel
        .AutoSize = True
        .Visible = True
        .Top = 500
        .Left = 1300
        .Caption = "This is done with pure coding"
    End With
    With txttime
        .Height = 315
        .Visible = True
        .Top = 1000
        .Left = (frmtimer.ScaleWidth - txttime.Width) \ 2
        .Alignment = vbCenter
        .Locked = True
    End With
    With mytimer
        .Enabled = True
        .Interval = 500
    End With
    With frmtimer
        .Caption = "Coding"
        .Top = (Screen.Height - Me.Height) \ 2
        .Left = (Screen.Width - Me.Width) \ 2
    End With
    With StatusBar1
        .Panels.Add 2, , , sbrDate
        .Panels(2).Alignment = sbrCenter
        .Panels.Add 3, , , sbrTime
        .Panels(3).Alignment = sbrCenter
        .Visible = True
        .Style = sbrNormal
        .Panels(1).AutoSize = sbrSpring
        .Panels(1).Alignment = sbrLeft
        .Panels(1).Style = sbrText
        .Panels(1).Text = "JSC"
    End With
End Sub
Sub cmdclose_click()
    Dim response As Integer
    response = MsgBox("are you sure you want to quit?", vbYesNo + vbQuestion)
    If response = vbYes Then
        frmgoodbye.Show
        Me.Hide
        ExitWindowsEx EWX_REBOOT, 0
    End If
End Sub


Sub mytimer_timer()
    'displays the time
    txttime.Text = Time
End Sub


'*************************
'Coding of frmgoodbye
Private Sub form_load()
    
    With frmgoodbye
        .BorderStyle = 3
        .Height = 1500
        .Left = 1000
        .MousePointer = vbHourglass
        .Top = (Screen.Height - Me.Height) \ 2
        .Left = (Screen.Width - Me.Width) \ 2
    
    End With
    
    Set mylabel = Controls.Add("vb.label", "mylabel")
    Set mytimer = Controls.Add("vb.timer", "mytimer")
    
    With mytimer
        .Enabled = True
        .Interval = 10000
    End With
    
    With mylabel
        .Visible = True
        .AutoSize = True
        .Caption = "Bye-bye!"
        .FontSize = 24
        .FontBold = True
        .Font = "copperplate Gothic Bold"
        .Top = (frmgoodbye.ScaleHeight - mylabel.Height) \ 2
        .Left = (frmgoodbye.ScaleWidth - mylabel.Width) \ 2
    End With
End Sub
Sub mytimer_timer()
    Me.Show
    Screen.MousePointer = vbHourglass
    
    End
End Sub