Visual Basic Forum for Visual Basic Programmers VB

[Tsudeki]

Okay maybe they aren't static..but they certainly stay in the same spot(though they do move per se...anyway)...here's what I'm having problems with..

I want to keep a control in the upper right hand corner of my program and I want it to stay there when the form is resized. I've thought of using a picture box and aligning it to the right but that may cause problems with what I need it for though I'm not going to rule out the picture box, so..any suggestions are welcome ^^;

Thanks in advance..

[Gilad_r]

you got 3 options that will work without the control jumping (afaik)
- use the picbox and place the control there. what problems would accur by using it? maybe we can overcome them...
- capture the WM_PAINT message sent to the parent window, and then draw the window yourself...
- create the control with the CCS_RIGHT style (this will also cause the control to be stretched to the height of the window though...)

hope this will help you
Gilad
_________________
"you should make amends with you" (Incubus)

[Tsudeki]

Okay let's say I use the picture box, here's the problem:

There really isn't any..with the picture box that is, I suppose I'll use it

The other problem would be the text box. I have it to resize with the window, however, my resizing function seems to work less than perfectly. For instance, if the text box is 1000 twips from all sides of the form, when the form is maximized, it becomes more around 2500 twips or more from the sides of the form. How can I keep it at 1000 twips from the edge(on all sides) when resizing?

[P.T.A.M.]

Can you post the code you have so far (For resizing the textbox) ?

To keep a button in the top left corner, can't you do this? Why do you need a pic box :

[vb:1:11331e39bc]Private Sub Form_Resize()
Command1.Move Me.ScaleWidth - Command1.Width, 0
End Sub[/vb:1:11331e39bc]
_________________
No one is completely useless. They can at least be an example of what to avoid.

[Gilad_r]

*EDIT*

[Tsudeki]

I wanted to keep that control in the upper right of the form, not upper left, since upper left woulda been simple since it stays there anyway @_@...

This resize code isn't my own, since I've never really comprehended the resizing stuff, I got this from planet-source-code.com and it works well as long as your control actually touches the border of the form, however I don't want it to touch the border anymore...

[vb:1:c204fb48a0]Public Sub ResizeControl(inControl As Control, pfrmIn As Form)
On Error Resume Next
Dim i As Long
Dim widthfactor As Single, heightfactor As Single
Dim minFactor As Single
Dim yRatio, xRatio, lTop, lLeft, lWidth, lHeight As Long

yRatio = PerHeight(pfrmIn)
xRatio = PerWidth(pfrmIn)
i = FindControl(inControl, pfrmIn.Name)

If inControl.Left < 0 Then
lLeft = CLng(((ControlRecord(i).Left * xRatio) \ 100) - 75000)
Else
lLeft = CLng((ControlRecord(i).Left * xRatio) \ 100)
End If

lTop = CLng((ControlRecord(i).Top * yRatio) \ 100)
lWidth = CLng((ControlRecord(i).Width * xRatio) \ 100)
lHeight = CLng((ControlRecord(i).Height * yRatio) \ 100)

If TypeOf inControl Is Line Then
If inControl.X1 < 0 Then
inControl.X1 = CLng(((ControlRecord(i).Left * xRatio) \ 100) - 75000)
Else
inControl.X1 = CLng((ControlRecord(i).Left * xRatio) \ 100)
End If

inControl.Y1 = CLng((ControlRecord(i).Top * yRatio) \ 100)
If inControl.X2 < 0 Then
inControl.X2 = CLng(((ControlRecord(i).Width * xRatio) \ 100) - 75000)
Else
inControl.X2 = CLng((ControlRecord(i).Width * xRatio) \ 100)
End If

inControl.Y2 = CLng((ControlRecord(i).Height * yRatio) \ 100)
Else
inControl.Move lLeft, lTop, lWidth, lHeight
inControl.Move lLeft, lTop, lWidth
inControl.Move lLeft, lTop
End If
End Sub[/vb:1:c204fb48a0]

[P.T.A.M.]

[P.T.A.M.]

How about something simple like this?

[vb:1:37753fedb8]Private Sub Form_Resize()
Text1.Move 1000, 1000, Me.ScaleWidth - 2000, Me.ScaleHeight - 2000
End Sub[/vb:1:37753fedb8]
_________________
No one is completely useless. They can at least be an example of what to avoid.

[Tsudeki]

[vb:1:1378e73826]Private Function PerWidth(pfrmIn As Form) As Long
Dim i As Long

i = FindForm(pfrmIn)
If i < 0 Then i = AddForm(pfrmIn)

PerWidth = (pfrmIn.ScaleWidth * 100) \ FormRecord(i).ScaleWidth
End Function

Private Function PerHeight(pfrmIn As Form) As Single
Dim i As Long

i = FindForm(pfrmIn)
If i < 0 Then i = AddForm(pfrmIn)

PerHeight = (pfrmIn.ScaleHeight * 100) \ FormRecord(i).ScaleHeight
End Function

Private Function FindControl(inControl As Control, inName As String) As Long
Dim i As Long

FindControl = -1
For i = 0 To (MaxControl - 1)
If ControlRecord(i).Parrent = inName Then
If ControlRecord(i).Name = inControl.Name Then
On Error Resume Next

If ControlRecord(i).Index = inControl.Index Then
FindControl = i
Exit Function
End If
On Error GoTo 0

End If
End If
Next i
End Function[/vb:1:1378e73826]

Sorry about that, here's the other stuff that code uses.

And yes, your code does do that apparently lol, in your post you put that it "makes it stay in the top left"...so I got confused @_@ sorry..

[P.T.A.M.]

Oh, my mistake... Typing mistake that is How about the textbox resizing code?
_________________
No one is completely useless. They can at least be an example of what to avoid.

[Tsudeki]

You know what...forget it. <_< I solved my problem by doing this:

[vb:1:1a0bf32ba3]Private Sub Form_Resize()

lblClose.Move Me.ScaleWidth - Label9.Width, 0
txtOne.Width = Me.ScaleWidth - 200
txtOne.Height = Me.ScaleHeight - 200

End Sub[/vb:1:1a0bf32ba3]

<_<;; ^_^; Turned out to be a pretty easy thing lmao...~_~;;;;; sorry for all the fuss @_@...

[Gilad_r]

any ideas on my issue?
_________________
"you should make amends with you" (Incubus)

[P.T.A.M.]

Well I think all the Move event does is set the left/top/width/height properties... You can do it seperatelly also... Have you tried it?
_________________
No one is completely useless. They can at least be an example of what to avoid.

[Gilad_r]

you mean the move method? yes i did try it, it's where i put the code that makes the difference: on WM_MOVE works better than on WM_MOVING but still not as perfect as on WM_SIZE or WM_SIZING...
i also tried on WM_PAINT but that's the worst of it all.
_________________
"you should make amends with you" (Incubus)

[P.T.A.M.]

I am getting confused (once again)... Why must you subclass? Could you explain the problem again? I'm obviously missing something :ermm:
_________________
No one is completely useless. They can at least be an example of what to avoid.