Dows anyone know how to make the tabstop work on this form with edit and a button control?
VB Code:
'Creates the visible window mlngSetup = CreateWindowEx( _ 0, _ "Database", _ "Setup", _ WS_SYSMENU Or WS_CAPTION, _ lngLeft, _ lngTop, _ 450, _ 301, _ glngMain, _ 0, _ glngApp, _ Null _ ) 'Text Box mlngText(0) = CreateWindowEx( _ WS_EX_CLIENTEDGE, _ "Edit", _ "", _ WS_CHILD Or WS_VISIBLE Or ES_AUTOHSCROLL Or WS_TABSTOP, _ 125, _ 74, _ 305, _ 21, _ mlngSetup, _ 0, _ glngApp, _ Null _ ) 'Button mlngButton(0) = CreateWindowEx( _ 0, _ "Button", _ "&Browse...", _ WS_CHILD Or WS_VISIBLE Or WS_TABSTOP, _ 274, _ 101, _ 75, _ 22, _ mlngSetup, _ 0, _ glngApp, _ Null _ ) ShowWindow mlngSetup, SW_SHOWDEFAULT 'Message loop Do While GetMessage(typMessage, 0, 0, 0) <> 0 TranslateMessage typMessage DispatchMessage typMessage Loop


Reply With Quote
