My code is VB6 only.
Here is Megatron's for vb5
For VB5, you can create buttons at runtime. It just involves manually using the CreateWindowEx API.
__________________Code:Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Const WS_CHILD = &H40000000 Private BTN As Long Private Sub Form_Load() BTN = CreateWindowEx(0, "Button", "Button1", WS_CHILD, 32, 32, 64, 64, hwnd, 0, App.hInstance, ByVal 0) ShowWindow BTN, 1 End Sub
Megatron
[email protected]
Visual Basic 5 SP3
See the VBFE Library




Reply With Quote