Create Controls at Runtime and Capture Events
This code will show you how to easily Create Controls at runtime and Capture there events 'With-out' useing API :). This code will show you how to add a command button and display a message box when its clicked. Please Vote and Post Comments!!
AI
Shrnutí AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Zdrojový kód
Public WithEvents Command1 As CommandButton
Private Sub Command1_Click()
MsgBox "Button Pressed"
End Sub
Private Sub Form_Load()
Set Command1 = Me.Controls.Add("VB.CommandButton", "Command1", Me)
With Command1
.Visible = True
.Width = 900
.Height = 900
.Left = Me.Width / 2 - .Width / 2
.Top = Me.Height / 2 - .Height / 2
.Caption = "Test Button"
End With
End Sub
Původní komentáře (3)
Obnoveno z Wayback Machine