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
สรุปโดย 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.
ซอร์สโค้ด
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
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine