Visual Basic :: Last One I Promise

Position On Screen
Hi,

When the user selects any cell in column #2 in my Data Grid control I want a combo box to be placed in the exact position of that cell (same left, top, height, width as the cell clicked).

I already know how to make the combo box appear at the same left, height, and width, but I cant figure out how to make it appear at the right top (y-axis position).

How do you find out the top position of the current row the user is currently in???

Thanx

Screen Position
I have compiled a program every time it starts up it is in the bottom right hand corner of the screen.
Is there a way of making it start into a full screen every time ?

Form Screen Position
I am wanting to detect (ie. fire an event) when a user has finished moving a form around the screen. I want the user to be able to click on the capiton bar, move the form and then when the form has finished moving output the new form co-ordinates in a message box or debug window. I can gather the co-oridinates before but getting them after is the problem. Any ideas?

Starting Screen Position
When I run my VB Program the bottom is cut off by the monitor and I have to move it up. Is there any way to set the program to automatically open at the top of the screen instead of the middle?

Get The Screen Position Of The Cursor
Hi

I am trying to find a way to make the mouse cursor move to the keyboard cursor position in an application. For example, I use an application called Enterprise Guide, and I control this application using Dragon naturally speaking as I have a disability that makes using the keyboard quite difficult.

I often have to say the name of an object to make to be the active or highlighted object. However to do something such as drag and drop in Dragon NaturallySpeaking , I need to have the mouse at the same position that I want to drag from.

I know there are functions such as GetCursorPos - but this appears only to work in terms of the mouse position. What I would like to do is to find the coordinates of the current active highlighted object. An example of this could be, in windows explorer, if your mouse position is on the right-hand side of your screen, but you have a folder highlighted in the left pane. How could you move the mouse cursor to the location where the highlighted object is?

I would appreciate any suggestions, or any links to any sites that may assist me.

Thank you for your help

Doug

How To Position The VB Exe At The Center Of The Screen Always?
Dear All,

When I double click an VB exe, I want the form EXE should always appear at the center of the screen rather than randomly appear each time when I click the exe to lauch the application.
I 've tried form layout window to position the screen center. But first few times it looks ok, if I close and open the same exe for a couple of times, its postition started moving diagnally down little bit and starting from left top again.

Please advise me for the above issue.

Regrads
N.Surendran

Screen Position Of The InputBox
I'm using VB6 Prof. When you call the InputBox it appears centered in the screen but it covers part of my Control Array of Check Boxes, making it difficult for the user to see just what to select. Is there any way to move this InputBox Down into the lower right hand section of the screen? If I could changel the "Top" and "Left" properties it would do it. Thanks in advance for any help. JungleJim.

Control Position On Screen
Any fast way to find a controls screen position other then getting the Left value of each parent all the way down to the form?

I want to replace the pixels in my picture box with the pixels of the DesktopDC but i gotta figure out the pixel position.

Mouse Position In Screen
(1) I need to detect mouse position on the screen.

(2) I also need to find out whether you are dragging the mouse.

I guess you need to use a API function for that.

Can u tell me how this is done……

Janaka.

Position Form To The Top Right Of The Screen??
how can I position a form to the top right of the screen, independent of the screen resolution??

And keep in count the form width ?

Thanks.

HELP! Check For A Programs Position On Screen
how can i run a check as my main form is moved to see if it is within 50 pixels away from the left side of the screen and as you move it if it is, then make it jump or dock to the left side?

i also need it to dock to the top and right of the screen but i think i can figure those out once i learn how to check while i'm moving th form.

the only way i can think of is by using a timer but is there any other way?

Get Screen Coords Of Caret Position In RTB
Looks like they don't have that (GetCaretPos) API there anymore...
Do you have another link?

Get Screen Coords Of Caret Position In RTB
Hi all,

Does anyone know how to do this.. I'm not talking about the screen coordinates of the mouse in the RTB, thats easy.. but the current screen coordinates of the caret where the user is typing..

Thanks,

FreakOz.

Change Msgbox Screen Position?
app x has a messagebox which pops up from items in an array, each time. user then locates the entity, and modified it, then hit's ok in msgbox, which goes to the next entity, and so on. well the user, has to move the message box, to work on the creen- is there a way to position a message box on show, like you position a form?

Saving A Forms Screen Position
Hi again...

I would like to save my forms position after the user has re-positioned it and then to have it load next time my program is run.

I have tried saving the forms position in Form_terminate as a .dat file
but the position that keeps getting written to the file is the forms top and left as stated at design time in the form properties.

is there a 'form move' event that i can code ??

Any help will be muchos appreciated..

TIA.
Osk.

Position Form At Top Centre Of Screen.
Subject says it all. Any suggestions?

My project starts up as maximized but when I press the "normal" button (the one between the maximize and minimize) the form is located in the centre of the screen.

Form's Position In Relation To The Screen
I actually have two questions for you brilliant minds to ponder on...

1) How can I capture a mouse click anywhere on the screen?
2) How can I find the location of a form (or any other window) in realation to the screen. For instance, it's left most edge and it's upper most edge.

Thank you for your help,
Squirrelly1

Detecting Mouse Position On The Screen
I would like to show my form if the mouse moves to the top corner of the screen. Is this possible? If so How? Thanks for any replies

Loading Form's Screen Position
while i'm waiting on the webbrowser to load some stuff..i know how to make my form appear..but how do i make it appear on top of my webbrowser control..in the center..and stick there?

Common Dialogue Screen Position
I am using the API method as described by John Percival on the vb-search site. I want to position the common dialogue box in the center of the screen as opposed to the top left corner of the screen. Does anyone know of a parameter to allow me to accomplish this goal? How can I control where the box appears on the screen?

Thanks,
Brian

Window Position Vs Screen Size
I'm using the SetWindowPos API to open an instance of Word exactly the same size as a control on my form and in exactly the same place as that control (don't ask me why - odd users...). Problem is, I have to apply different factors depending on the screen resolution. For example, this factor of 12 works with my resolution of 1280*1024 and large fonts:

VB Code:
Option Explicit Private Declare Function SetWindowPos Lib "user32" _ (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal y As Long, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Sub cmdWord_Click() Dim blnAlreadyOpen As Boolean Dim lngHWnd As Long Dim appWord As Word.Application Const klngHwndTopmost = -1 Const klngHwndNoTopmost = -2 Const klngSwpNoActivate = &H10 Const klngSwpShowWindow = &H40 Const klngLEFT_ADJUST As Long = 50 Const klngTOP_ADJUST As Long = 335 Const klngFACTOR As Long = 12 '# If Word is already open, refer to it; otherwise open it blnAlreadyOpen = (FindWindow("OpusApp", vbNullString) <> 0) If blnAlreadyOpen Then Set appWord = GetObject(, "Word.Application") Else Set appWord = CreateObject("Word.Application") End If '# Get the handle of the Word instance lngHWnd = FindWindow("OpusApp", vbNullString) '# Set the position and activate it SetWindowPos lngHWnd, klngHwndNoTopmost, _ (Me.Left + txtSizeTest.Left + klngLEFT_ADJUST) / klngFACTOR, _ (Me.Top + txtSizeTest.Top + klngTOP_ADJUST) / klngFACTOR, _ txtSizeTest.Width / klngFACTOR, txtSizeTest.Height / klngFACTOR, _ klngSwpNoActivate Or klngSwpShowWindow appWord.Visible = True appWord.Activate End Sub
... but it doesn't work when I reduce it to 800*600 with small fonts - Word is too large when it opens.

Any idea how to find out the resolution and adjust for it?

Thanks...

How To Arrange Position Windows In The Screen?
i have to arrange a lot of .exe files in the screen so as to send mouse click..how do i accomplish it..plus its a redistributable program that i am building..now i want it to work with every screen size..is there a way to do it ?

Change Screen Position Of Msgbox
hi, the subject says it all:

i would like to be able to specify where on the screen a msgbox will appear (namely top centre)

thanks

How To Got A X && Y Position At The Screen And S309PictureBox Question???
Could anyone help me, cause I am losing to much time to finding a solution to got a X and Y position on th pocket PC screen.
And how can I put another object(ex: icon) on the frontground of the S309picturebox, because no matter what I put it's always stay behind/background of the picture, so I can not see the icon or textbox.

Thank u

Position Of Picture Box In A Windows Screen
Help me friends,
i have a problem, how to get coordinate X & Y in pixel scale of our object controls such as form or picture box. I want to know where top & left properties of picture box in our windows screen.
Our screen can be in different resolution.

Calender View Control Position On Screen
Hi All

I click a number of buttons to open a calender view

Can anyone tell me how to get my calender view to always open next to the button i pressed to open it

thanks

Gibbo

Returning Screen Position Of Objects In Pixels...
how do i return the position of an object in pixels instead of twips?

Form Screen Position - Monitor Size
How would I set the form position to the the bottom right of the screen area.. I am basically thinking of the different sizes of monitor's and resolutions...

The Left and Top properties can be set of course, but...

Thanks in advance

'click' On Button Based On Screen Position
is there vb code where after setting the focus on a window i can then 'click' on an X/Y screen coordinate position?

Screen Position To Form Control Math.... HELP!
I am using the

Private Declare Function GetCursorPos Lib "user32" (lpPoint As _
POINTAPI) As Long

Private Type POINTAPI
x As Long
y As Long
End Type
Dim a As POINTAPI
Dim b As Long
Dim c As Long

API to read the position of the mouse.
Now I need my form to use twips since I dynamically am adjusting position of all form controls on form resize and I tried pixels and it was a mess.

Now I use the mouse position in conjunction with Microsoft HTML Object library pointing to the currently loaded page in the webbrowser control.

Say a link is on the page. I use the mouse X,Y to check if it is over a link.
BUT
The API returns positions that to not work with the browser.
I will be like 30 pixels above a link and it thinks I am on it.
I tried adjusting it and it still didn't work.

Is there some math solution to get the returned X and Y to be X and Y for the browser control? Wouldn't it have to account for different screen resolutions and form sizes?

The code attached is in VB 5.

Thank you for any help

Mike

Resetting Image Position When It Reaches End Of The Screen?
I was wondering how I would reset the images position to 0 when it reaches the edge of the screen. I tried this:

VB Code:
If bomb_yellow.Left = 3480 Thenbomb_yellow.Left = 0End If

3840 is the furthest position on the screen. Am I on the right track even?

Initial Startup Screen Size/position?
hi,

I've been running into this problem every once in awhile with my end-users.

The problem has to do with the screen size of my application the first time they launch it. I do save the last screen size and location upon exiting the program, but when they run the program for the first time, it obviously runs with the settings that were saved when I compiled the program.

I am using a 21" monitor with a 1024x768 resolution. I usually just make the main window small enough to view everything and keep it in the center of my screen when I compile it. But I guess customers with smaller screens or lower resolution are saying that my program is off to the far right of their screen when they first start it up.

So I guess my question is, what is the standard/accepted practice for the window size and position when you compile your programs?

Any help would be appreciated..

Dan

How To Use VB6.0 To Make A Tray (the Position At The Screen Right Botton)
I want to make its ico in the tray.
how can i do?
please help me.

How Can I Obtain The Screen Position Of A Webbrowser Element?
I have one element of the webbrowser document, an I need to draw the border of this element in the screen so I need know its position. How can I do in Visual Basic?

Thanks

Finding All Links Absolute Position X,Y Relatively To The Screen In VB6 WebBrowser
Finding all links absolute position X,Y relatively to the screen in VB6 WebBrowser
There is a Visual Basic 6 application with WebBrowser in it.
This application is about statistical information on what html tags were loaded, where they are being located - it's position X,Y

For example I want to find Document.getelementsbytagname("a") link and anchor position on the screen, how do I do it?
There is example in JS, that I could inject into webpage by scriptcontrol but could I do in in VB6 itself?
function getElementPosition(elemId)
{
var elem = document.getElementById(elemId);

var w = elem.offsetWidth;
var h = elem.offsetHeight;

var l = 0;
var t = 0;

while (elem)
{
l += elem.offsetLeft;
t += elem.offsetTop;
elem = elem.offsetParent;
}

return {"left":l, "top":t, "width": w, "height":h};
}

Trying by vb6 in webbrowser

Dim WithEvents doc As HTMLDocument
Dim elem As IHTMLElement
Set doc = ie.document

For x = 0 To doc.getElementsByTagName("a").length - 1

Set elem = doc.getElementsByTagName("a")(x)

I want convert this nonsense
'"-PParent=" & elem.offsetParent.offsetParent.tagName & "=" & elem.offsetParent.offsetParent.id & _
'"-3Parent=" & elem.offsetParent.offsetParent.offsetParent.tagName & _
'"-4Parent=" & elem.offsetParent.offsetParent.offsetParent.offsetParent.tagName & _
'"-4Parent=" & elem.offsetParent.offsetParent.offsetParent.offsetParent.id

To while loop, but I can't figure it out how

While (TypeOf elem Is IHTMLElement)
parentall = "-Parent Tag=" & elem.offsetParent.tagName & _
elem.id & ",l=" & elem.offsetLeft & ";t=" & elem.offsetTop & _
Set elem = elem.offsetParent
Wend

Next x

Finding All Links Absolute Position X,Y Relatively To The Screen In VB6 WebBrowser
Finding all links absolute position X,Y relatively to the screen in VB6 WebBrowser
There is a Visual Basic 6 application with WebBrowser in it.
This application is about statistical information on what html tags were loaded, where they are being located - it's position X,Y

For example I want to find Document.getelementsbytagname("a") link and anchor position on the screen, how do I do it?
There is example in JS, that I could inject into webpage by scriptcontrol but could I do in in VB6 itself?
function getElementPosition(elemId)
{
    var elem = document.getElementById(elemId);

    var w = elem.offsetWidth;
    var h = elem.offsetHeight;

    var l = 0;
    var t = 0;

    while (elem)
    {
        l += elem.offsetLeft;
        t += elem.offsetTop;
        elem = elem.offsetParent;
    }

    return {"left":l, "top":t, "width": w, "height":h};
}

Trying by vb6 in webbrowser

Dim WithEvents doc As HTMLDocument
Dim elem As IHTMLElement
Set doc = ie.document

For x = 0 To doc.getElementsByTagName("a").length - 1

Set elem = doc.getElementsByTagName("a")(x)

I want convert this nonsense
'"-PParent=" & elem.offsetParent.offsetParent.tagName & "=" & elem.offsetParent.offsetParent.id & _
'"-3Parent=" & elem.offsetParent.offsetParent.offsetParent.tagName & _
'"-4Parent=" & elem.offsetParent.offsetParent.offsetParent.offsetParent.tagName & _
'"-4Parent=" & elem.offsetParent.offsetParent.offsetParent.offsetParent.id

To while loop, but I can't figure it out how

While (TypeOf elem Is IHTMLElement)
parentall = "-Parent Tag=" & elem.offsetParent.tagName & _
elem.id & ",l=" & elem.offsetLeft & ";t=" & elem.offsetTop & _
Set elem = elem.offsetParent
Wend

Next x

Its Easy I Promise!
Guys

Can you please help me!

with str computer I want to put in several server names not just one. How can I do this?

I know local is strcomputer = "."

Thanks

Promise Not To Laugh?
I didn't back up my VB patches when I rebuilt my computer......
you said you would't laugh!!!

Can someone give me a patch to determine the OS name on the current machine along with the version number?

Thanx,
Grandpa

I don't believe I did that!!!

Need Help With Code! (Last Time, I Promise :))
Code:
Private Sub txt_height_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub 'to allow back space
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0 ' intercept and disallow any key not a numeric
End If
End Sub

I scraped up this code that only allows Numerical data to be inputted into a text box.

I ran into a problem as I need to have decimal numbers be inputted into the box and it doesn't allow them (eg 5.7).

Help is MUCH appreciated!

Antony

*edit* Also, I have run into one small problem. I am going to disable a command button... I can do this no problem, but the problem is that I want it to be enabled as soon as a numberical figure is entered into a particular text box. I have no idea how to do it

Last Monthview Question...Promise
If this code makes every Sunday of the MonthView control BOLD....

VB Code:
Private Sub MonthViewClinic_GetDayBold(ByVal StartDate As Date, ByVal Count As Integer, State() As Boolean) Dim i As Integer i = vbMonday While i < Count State(i - MonthView1.StartOfWeek) = True i = i + 7 WendEnd Sub

How do I make every weekday bold?
I'm trying here but not having much luck....yet.

Another Winsock Question (only 1, Last One I Promise!)
on the control, LocalIP is always the ip addess of my network card. how can i change it to get the IP of my internet
connection?

thanks

Last Question For Today ! I Promise!
hummm... I can create an objext that point to word or excel. Something like this:

dim w1 as word.application
set w1=new word.application

but!!.... How can I point the object w1 to an alredy opened word. I saw something like this once... it used a function called getobject or something like that..... Does anybody remember?

Last Stored Proc Ques. I Promise
okay here it is and depending on the response I may change everything to stored procedures:
If I call the sp like so:
cnn1.execute "sp_whatever"
will VB wait until the sp is done processing to continue or does it simply go on down the line
regards
jcd
and thank you very much

Ok Final Question I Promise....of The Night
ok I have been trying to do something for the longest time and I cant figure it out
ok I got a combox with a list of 1-28 in it witch account for all my teams
then I have a get procedure where you find out what each team's name is for example team 1 is buffalo and team 2 is indianoplis and so on and so on.
What I want to do is when I click the drop box I want to see those names not 1-28 follow.....

I thought about trying

if team = 1 then
team = buffalo

but then I thought alot of my routines would be messed up i.e
CPlayerAddOff = ((team * 60) + (player * 2) + 11)
so is there a way I can keep a value to team so I can do like above but in the list box it would say buffalo indy new york and so on.

I think it is a listview call from change but not sure how to word it.

Thanks ever so much, I promise after this Ill be gone for the night

Thanks,
Matt

if team = 1 then
team = buffalo

Alright Last Thread I Promise! - Listview Stuff
ok so i have neearrly finished this project but this reports thing is screwing me up the backside!

1) I have a form full of checkboxes and textboxes - each of their array numbers correspond.
i.e. checkbox(1 )is next to text(1)

2) the checkboxes have captions that correspond to a field name in the database and the user presses a button to view the value of that field in the corresponding textbox.

3) I have a button that passes the checkbox captions to a list view on another form based on the following criteria:

-> the text box corresponding has a NULL value
-> the checkbox is checked.

WHAT I NEED:

1) for the value of the corresponding text box to be passed to the column next to the caption name.

2) This script doesnt seem to be working, no errors.. I need the command to go through and check EVERY text box and checkbox based on the afore mentioned criteria...

VB Code:
Private Sub makeit_Click() Dim iLimCB As Integer, iNdx As Integer iLimCB = Check1.UBound If Check1(indx).Value = 1 And Text1(indx) = "" Then Form1.ListView1.ListItems.Add , , Check1(indx).Caption End IfEnd Sub

why doesnt it work?

I hope all that makes sense to someone
Wow i can't wait til this thing is done! thanks in advance guys xx

How? Intercept Output To Screen From 3rd Party Apps Or Find "real" Cursor Position
I am trying to automate a process (with 3rd party app) using VB 5.0.

I would like to be able to determine either:

The location of the cursor in the app window (not the mouse position!)

or

scrape the app screen text for a particular value. Any Ideas?

Any help would be greatly appreciated

Noel Devost
Senior Programmer/Systems Analyst
Sudbury Regional Hospital Corp
ndevost@hrsrh.on.ca

Last One I Promise - Screen Position