Setting a Button location !!!!

[BLUE_SEA]

How do I set/change the location of a Button located within its Parent Window via the API ?

I can easily set the position of a Parent Window via the SetWindowPos or MoveWindow APIs but I can't make it work for a child window (ie Button)

I have used many other supporting functions in the process like GetWindowRect, ClientToScreen... but with no luck

Anyone has an answer out there ?

Thanks.

[Hack]

Moved from CodeBank

[BLUE_SEA]

Sorry moved where ?

Thanks.

[Hack]

Sorry moved where ?

Thanks.

Here...the ClassicVB section.

[bushmobile]

I had no trouble using moving a button in calculator. What are you trying to move and what code have you tried so far?

Private Declare Function MoveWindow Lib "user32" ( _
                ByVal hwnd As Long, _
                ByVal x As Long, _
                ByVal y As Long, _
                ByVal nWidth As Long, _
                ByVal nHeight As Long, _
                ByVal bRepaint As Long) As Long
                
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
                ByVal lpClassName As String, _
                ByVal lpWindowName As String) As Long
                
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
                ByVal hWnd1 As Long, _
                ByVal hWnd2 As Long, _
                ByVal lpsz1 As String, _
                ByVal lpsz2 As String) As Long
 
Private Sub Command1_Click()
    Dim lHwnd As Long
    Dim lHwndChild As Long
    
    lHwnd = FindWindow(vbNullString, "Calculator")
    lHwndChild = FindWindowEx(lHwnd, 0&, "Button", "Backspace")
    MoveWindow lHwndChild, 0, 0, 100, 100, True
End Sub

[BLUE_SEA]

Thanks bushmobile,

I want to move the OK button when I resize the Standard VB InputBox so if for example I change the width of the InputBox Window the Ok Button should then move so that it stays always at the same distance from the InpuBox right border .

Any Idea ?

Thanks.

[bushmobile]

If this is your app, then the easiest thing to do is create your own InputBox. I've attached an example:

[BLUE_SEA]

If this is your app, then the easiest thing to do is create your own InputBox. I've attached an example:

Thanks again but this Custom InputBox doesn't have the option to change its own size . I specifically want to be able to resize it and for the OK and Cancel buttons to remain in the same location in relation to the inputbox right border.

Any thoughts ?

Thank you.

[bushmobile]

that custom input box was just an example. It's a form that you have full control over (rather the the normal inputbox that you don't). Just resize/reposition your controls in the Form_Resize event.

[BLUE_SEA]

Thanks,

I really need to get this working with the standard VB InputBox not with a userform as I am doing this for educational purposes.

Any chance anyone ??

BLUE_SEA

[bushmobile]

Here's some threads about customising the standard MessageBox (same principle will apply for the InputBox):

http://www.vbforums.com/showpost.php...58&postcount=4
http://www.vbforums.com/showthread.php?t=329373

As you can see, it ain't easy.