Visual Basic :: Give Back Focus

How To Give Focus To Activex Component On Form Focus?
Using the Reflections ActiveX component (Reflections is a popular Terminal Editor for connecting with old Alpha/VMS servers), I have a Form with this internal terminal editor ActiveX that obviously needs to have focus to type in.

I've tried setting Form_GotFocus and Form_Click to give focus to the activex component but to no avail. The only thing that works is if I set Form_Repaint to give focus, then it works fine. But repaint causes the window to constantly try to bring itself in front of other Microsoft apps like Word and Outlook and other VB apps when I drag them in front of it. And it keeps flashing in the task bar when I move something non-MS in front of it.

Is there a better way to keep focus on the activex terminal session when the form gets focus without using repaint?

Give Me My Memory Back!
Anyone know of a good way to retreive memory after an object is set to nothing.

My application creates lots of winsock objects while it's running but when they're finished, closing the connection and setting them to equal nothing seems to bleed the memory away.

Any ideas?

Cr1spy.

PE How To Give Back OEP To Original EXE
HI all,
I'm looking for some code to allow me to Jump from Original Entry Point of an EXE to Another one Inside it , how can i do it with VB5/6 ? Any Idea.

I know that ASM can do it easy with the Jump command JMP.But i want a Pure VB code inside first program so that after executing from OEP1 completely, jumps to the OEP2 of the EXE inside it and Execute it.

Exactly like what wrappers Do and what i'm planning to DO, a VB Wrapper.

Thanks for ur help and best regards

Opening A Form But Not Give It The Focus (or Quick Tell Me Wich Form Has The Focus)
Opening a form but not give it the focus (or quick tell me wich form has the focus). Is this possible??

VB6 - Give Control Back To User While Retrieving Data
I have a VB6 application that attaches to a legacy backend(Cobol) and I'm having issues with giving control back to the user.

Current application calls a legacy transaction that delivers back 50 of x records back and the VB app displays them in a list box.

The problem is that x records might be 1000 so it has to call the transaction 20 times to get all of them. This takes roughly 30-45 seconds to obtain all records. During this 45 seconds, the user has an hour glass and can't do anything which isn't very friendly.

What I would like is that the VB app calls the transaction once, get's the first 50 records, gives control back to the user and then proceeds to get the next 50, put in list box, get 50, put in list box, etc..

I've been out of VB development for a couple years and my mind has gone blank on the methods used for this.

Any direction to what this is called, methods used, etc would be greatly appreciated.

Give Another App. Focus
Hey all,

Another silly but frustrating thing I can't seem to find a sulotion for. 8)

My VB app performs a few necessary system changes before a second app is initialised. That all works perfectly and the second app is called successfully via the folowing code:

Private Sub InvokeApp()
Shell "IOCV1.2.exe"
Unload Me

End Sub

My problem is the the second app initialises minimised to the task bar when called like this.

Is there any way to pass focus to another app from vb, not just another form?

Thanks

Fiba

Give Powerpoint The Focus
I have made a simple VB6 app that has command buttons to control a projector via mscomm.

I would like to know how to return the focus back to powerpoint's active presentation automatically, as if you have press the PowerPoint show button on the taskbar.

Suppose all in need to know is "how to contol the taskbar" to automatically press the correct taskbar button to return the focus back to PPt.

Any ideas?

Resolved - Give Focus To A Tab
I have an SS tab strip on a form. How do I give focus to the 3rd tab when an event occurs, ie a command button is pressed?

Also can I disable a single tab as the enabled property applies to all the tabs?

Give A Label The Focus
I need to make some labels work like a combination of option buttons and check boxes (don't ask).

I've got it working, except for the fact that the labels can't receive focus.

I really don't need them to have the focus, BUT, I would like to focus to leave the previous control when I click on the label.

Ideas on the best way to do this? Should I put the labels in a picturebox or something, and give the picturebox the focus if the user clicks a label?

Thanks,

Elizabeth

Give Focus To MDIChild From Different App.
Hi everyone,
What I'm trying to do isss. Give an MDIChild window keyboard focus by hwnd.
This MDIChild isn't part of my application.
Therefore SetFocus api won't work.
ie:Code:Declare Function SetFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As LongCode:The SetFocus function sets the keyboard focus to the specified window. The window must be associated with the calling thread’s message queue.Any idea's ? Tried using SendMessage to send a WM_SETFOCUS.. That was a no no..
Same for api SetActiveWindow. Window must be associated with the calling thread's message queue.
Tried sending a WM_CHILDACTIVATE no go...
Can I use WM_ACTIVATEAPP ? Don't have vb here to try, but can't stop thinking.
So I'll try it when I get home. The exact situation is hard to explain sorry.

Any input is greatly appreciated....
Thanks
$hep

Give App Maximized Focus
I am using the following code (that was posted yesterday) to open a specific access report. The part I'm hung up on is getting the report in Access to have the maximized focus. Can the Shell Function be used for this? I tried using it to launch Access and have it maximized, but not to open a specific report.

Any help is greatly appreciated.

public Sub RunReport(strDatabase as string, strReport as string)

Dim dbAccess as Object

on error GoTo ErrorHandler

set dbAccess = new Access.Application

dbAccess.OpenCurrentDatabase strDatabase

dbAccess.DoCmd.OpenReport strReport, acPreview

dbAccess.DoCmd.Maximize

set dbAccess = nothing

Exit Sub
ErrorHandler:
If Err.Number = 2501 then resume next

End Sub

Can't Give Focus To The Form
Hi, someone gave me the very helpful code below for assigning arrow keys to functions in a program. It works great in isolation, but when I loaded it into my program with buttons on the form the buttons always take focus instead of the form itself. Therefore pressing the arrow buttons simply scrolls through the button focuses instead of triggering the Msgboxes that are indicated in the code. I tried adding KeyAscii = 0 before the select case but no avail. Form's KeyPreview property is set to TRUE. This is such a simple matter in PERL (just a single "bind" command), but it seems to be a nightmare in VB. Thanks for your help.

private Sub Form_KeyUp(KeyCode as Integer, Shift as Integer)
Select Case KeyCode
Case vbKeyLeft
Msgbox "You pressed left"
Case vbKeyRight
Msgbox "You pressed right"
Case vbKeyUp
Msgbox "You pressed up"
Case vbKeyDown
Msgbox "You pressed down"
Case else
Msgbox "You pressed another key"
End Select
End Sub

How Can I Give InputBoxes Focus???
Hi,

After making an exe file, ImputBoxes in my app do not have focus. They are shown and the curser is flashing in the text InputBox and I have to click on it to give it focus.

After lost focus on a combo, if a condition is not true I have the code, "Call Command1_Click"

Private Sub Command1_Click()

NEW_Value = InputBox("Please enter the New Value.")

This works ok in IDE, the inputBox has focus but not from the exe.

How can I give the inputBox focus when called?

Any help appreciated.

Regards,

Alan

Give A New Word.Application The Focus
How do I give my new Word.Application the focus. This code only runs word in the background:

Dim wrd As Word.Application
Set wrd = New Word.Application
wrd.Documents.Open filename

Can't Give Textbox On Another Form Focus
I get an "Invalid procedure call or argument" error on line
frmForm1.Text1.SetFocus

Code:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
msh.Rows = 0
lst1.Clear
lst2.Clear
If gCalledForm = "frmForm1" Then
frmForm1.Text1.SetFocus
ElseIf gCalledForm = "frmForm2" Then
frmForm2.Text2.SetFocus
End If
gCalledForm = vbNullString
Unload Me
End Sub
How can I give the Textbox focus on these forms when closing another form?

Thanks

How To Load A New Form - But Not Give It Focus?
Anyone know?
If I wanted to show form2, like a regular form but not give it focus.. how can I do that?

form2.show, form1.setfocus
is not an option because i have like 10 windows and i dont want form1 getting focus when form3 has current focus (for example)

How To Show A New Form, But Not Give It Focus?
Dim frm as Form
frm.Show

that shows the form, but gives it focus

Dim frm as Form
Load frm
that does not show the form, (thus does not give it focus)

How can you show a form and not give it focus?

How Do I Give MSFlexGrid Focus Programmatically?
I have a form with a tab control, a separate MSFlexGrid control sits on each tab.

I have coded the FlexGrids to understand the Right Mouse button, so that the user can navigate by both buttons and use the Right Mouse to "pop up" other forms based on the values in the grid. Left Mouse is basically used for data entry...

My problem is this: Upon loading the form or tabbing between the different MSFlexGrids; only the left mouse button will give the MSFlexGrid its initial focus. Right click will not respond at all until a Left-click has occurred. So, the user has to Left-Click then Right-Click the first time that they need to use the Right Mouse button.

I'd like the grid to respond to the right click immediately upon opening the form or selecting the tab. Right now I've faked it out by Hooking the Mouse event and sending a left click to the grid...but that gets me into a whole host of other problems...usually when that happens, I know I'm doing it the hard way. What is the easy way to do what I need to do?

Thanks,
MagicT

Opening A Form But Not Give It The Focus
Opening a form but not give it the focus. Is this possible. Like MSN messenger.

Give Focus To Winamp Window
I would like to know how to give focus(Higlight) Nulsoft's Winamp window with its ever changing caption...

Any Help?

Andy

Give My Application The Focus At Startup
I'm having a problem giving my application the focus at startup. One of my aims is to not allow the user to see any part of windows in the background. As such my application runs first in the registry. However, following this explorer.exe runs and causes my app to lose the focus. Another part of my app is that the touch screen is disabled, meaning the user is stuck. I have tried me.focus after a nominal 10 seconds to no avail. What can I do?

Help!

Thanks,
Tim

Find And Give Focus To Another Applications Window
I have an application that has 2 full screen report windows open.
lets say "Report A" and "Report B" are the window titles.
I need to have a simple program that swaps between the two windows every 10 seconds.

Any help is appriciated

Thank you
garrett

I Need To Highlight Some Text, But Give Focus To Another Form.
Hi, I need to highlight some text in a textbox but have focus on a different form. If I just select the text in the textbox and then say Form2.SetFocus, the selection is no longer visible. Does anybody now how to get around that?

Thank you in advance

Give Added Lines To A Multline Textbox Focus?
hey guys I use this code to add new lines to my text10 textbox.

Text10.Text = Text10.Text & vbNewLine & "Scanning in progress...Please Wait.."

But what happens is after so many lines are added, I have to scroll down to see them, is there a way so when a new line is added the user can see it, like the textbox will auto scroll to it or something?

Thank you.

How To Reset Focus Back To Vb?
Hi All,

I am a novice at VB and am trying to write a program that will run a MS Access macro. Here's what i have so far...

Dim MSAC As Access.Application
Dim db_name As String

Private Sub Command1_Click()

db_name = "C:Database.mdb"

MSAC.OpenCurrentDatabase ("C:Database.mdb")
MSAC.Visible = True

MSAC.DoCmd.RunMacro "Macro1"

SendKeys "password"

End Sub

Macro1 run a series of queries that pulls from an SQL server via ODBC linked tables, which requires login and password.

the problem occurs when the runmacro line executes, the focus is set to MS Access, and VB will not continue to run unless the login and password is entered.

but the purpose of this program is to automate that login process by using sendkeys commands.

How do i reset the focus back to VB so that it will continue to the sendkey commands to MS Access?

Thanks so much
hosackies

Problem: Form Not Getting Focus Back
hi,
my situation when i click on a command button on a form, another is shown

Code:
Load frmBatchOpt
frmBatchOpt.Show vbModal

but when i close the form called, the previous is not getting focus, it's title bar remains dim (i've used unload me for the frmbatchopt form to unload it)

can anyone help ?

Setting Focus Back On A Field
In my UserForm the date input is made of 3 fields (TextBox): one for the day (MaxLength-Property=2), one for the month (MaxLength=2) and one for the year (MaxLength=4). When entering the fourth digit in the year field an Exit-Event is started which composes the date with the entered day's and month's digits. A date validation is then executed (in then Exit-Event/Function) and i would like the focus to be set back in then day-field if the composed date is not valid (with the setfocus-Method use in the year-field Exit-Event). But I can't!
The focus doesn't stay in the day-field, it leaves it and jumps forward two field afer the year-field.

Bringing Focus Back To EXE After External App Is Called
OK leme try and explain this one.

I've got a form in my project which is called modally.
This form shows thumbnail pictures.
If the user double clicks a thumbnail Microsoft Photo Editor is loaded.
When the user quits Microsoft Photo Editor I want my prog to be there, waiting for them to click another one.

Unfortunately its not. They have to ALT-TAB back to it (or click it in the status bar).

Is there a way I can force the focus back to my program after the user has quit the Photo Editor ?

If it helps, I'm using the ShellExecute command to call the Photo Editor.

What's The Function That's Used To Bring Back The Lost Focus??
Hi! What's the function that is used to bring the back the lost focus for those objects such as combo box, text box, radio button, etc...

Thanks...

Form Focus Problem -- Move To Back??
Greetings,

I'm having a perplexing problem related to the focus/appearance of some active forms. I have an app that loads multiple instances of the same form to display different DB records. In the development environment, everything works fine. I can click on the various forms I've opened, and everything's cool.

However, when I created an .EXE file for the project, the forms started acting "goofy"? They open up fine, but they appear to do the opposite of OnTop? In other words, when they load, they load behind any existing forms. If I click on them, instead of moving to the front, they seem to move to the back?

Am I doing something wrong here? Is there a property I've screwed up that is causing me this grief?

Any help is greatly appreciated!!

Dave

Setting Focus Back On A Field (right Version!)
In my UserForm the date input is made of 3 fields (TextBox): one for the day (MaxLength-Property=2), one for the month (MaxLength=2) and one for the year (MaxLength=4). When entering the fourth digit in the year field an Exit-Event is started which composes the date with the entered day's and month's digits. A date validation is then executed (in then Exit-Event/Function) and i would like the focus to be set back in then day-field if the composed date is not valid (with the setfocus-Method use in the year-field Exit-Event). But I can't!
The focus doesn't stay in the day-field, it leaves it and jumps forward two field afer the year-field.
I don't know exactly which VB-version I'm using,
it's the one integrated in MS-Excel 97.

How To Bring Back Focus On The Main Application When Shell Command Was
hi to all,
i need some help in vb6. i created a main application that calls another application via shell command. the main application is a plug-in from a mother application. if the mother application is terminated, the main application as well as the other applications executed via shell must also be terminated. i was able to check if the mother application is terminated in the main application so i can terminate it as well. but the problem lies if the other application is in focus not the main application. i need to go back to the main application before i can tell that the mother application was terminated. is there someone out there who could help me set the focus on the main application if the mother application is terminated even if there are other application executed via shell command? please help and thanks in advance.

Once Form Opened, How To Shift Back Focus On Sheet While Form Is Still Open?
Hi,

Once I run my macro and my form is opened, the focus is entirely on the form and I cant select my excel workbook( or any workbook for that matter).

Is there any way that my macro is still runnin, i.e. form is still open (maybe a minimize option..) while i can select and change some values in my workbook..

I tried the myworksheet.activate but it doesnt solve the problem. Any help?

Thanks...

Give Me A Code Example. I Will Give You A Big Gold Medals <:-)
Dose anyone try the SmartMenuXp control?
how to use right-click to popup an XP menu on our VB6
I have tried it but there must be some mistake somewhere.
oh sleep badly!!!

Back To Back Dependent Stored Procedures
I have two stored procedures that save data from an online credit application to a SQL Server 2000 database. The first procedure saves basic application data to an application table and outputs the application ID. The second procedure uses the resulting application ID and saves applicant data to an applicant table. I am using two tables since any one application can have two applicants (i.e., primary and co-applicant). The applicant table is the "many" relationship to the application table's "one" relationship.

The VB.Net code that I use to call the stored procedures is as follows (note: this is after I have set up the database connection and all the parameters, etc.):

' Execute the first stored procedure to save application data to the application table.

cmdApplication.ExecuteNonQuery()

' Obtain application ID from above stored procedure (paramAppID) and fill a declared temporary variable (tmpAppID).

tmpAppID = CInt(paramAppID.Value)

' Use the tmpAppID variable as the application ID for the second stored procedure.

Dim paramAppID2 As New SqlParameter("@AppID",SqlDbType.Int, 4)
paramAppID2.Value = tmpAppID
cmdApplicant.Parameters.Add(paramAppID2)

' Execute the second stored procedure to save the applicant data to the applicant table.

cmdApplicant.ExecuteNonQuery()

' Close the database connection.

conApplicaiton.Close()

If there is a problem saving data to either the application table or the applicant table, I want the entire transaction rolled back (as though it were never done).

************
Given the above scenario, what is the best method for rolling back the transaction upon failure? Please provide an example. Thank you in advance.

************

Note: I have seen the VB.Net "Try..Catch" method. However, I am not sure of how to rollback the transaction upon failure.

Game Over, Man!

Playing Mpg/avi Files Back To Back Seamlessly
Can anyone please tell me how I can play mpg (or avi it doesn't matter)
files in VB and also how to play two different mpg files one after the other
seamlessly so you can't see the join?

I want to create lots of animations in mpg or avi format of a spinning coin.
The coin will have a number from 0 to 9 on the face. As the coin spins it
will show a different number each time a face is presented to the viewer. I
am going to do this by creating little animations in Cinema 4D then use VB
as a random number generator and have the program select random numbers and
spin the coins to show a different random number from 0 to 9 each time it
goes around. Obviously as I will have 10 mpg files, each one an animation of
a spinning coin with numbers 0 to 9 on them I will need to play each one,
one after the other, without there being any delay in-between each file.

Can anyone tell me how this can be done, or if indeed there is another
solution?

Thanks,

Mike

Printing Report Back To Back
Hello,

   I use VB 6 and Crystal Reports 8.0. nad SQL 2K.

    I need to print pages from 1 to 50 on back to back, i,e., page1 on the front and page 2 on the back of page1 and page3 on the front page 4 on the back of page 3 ,so on.

   The printer is capable of print int back to back. Is there any specific coding in VB for doing this.

Thanks.

Maintain Line Of Focus After Focus Is Lost On A Listbox ?
I have two listboxes on my firm.
In the first, one selects which Report DLL to use, and then when that is selected, my app creates a new instance of that DLL and loads up all available reports into the second listbox.

So you click on the first listbox, and the blue line select thang goes across that line to show you have selected something.
Just like any other listbox does.

But then you select an item for the second listbox, and the blue line disappears from the first listbox.

So when you're looking at the screen, if you don't remember which DLL you selected, you wouldn't actually know which DLL the second box is referring to.

Ideally the first listbox should retain that blue line while at the same time the second listbox should aswell.

Any thoughts ?

Form Got Focus Or Lost Focus Don't Work
Hi, I have a form that I can't get the Lost Focus or Got Focus events to fire, would anybody know why?

Here is what I am trying to accomplish. I have an .exe vb6 application(MainApp) that opens another .exe vb6(ChildApp) application using the shell command. The main application has a list view with a bunch of records. The ChildApp is used to Insert, Delete or UPdate records from the MainApp. So when an Insert, Update or Delete take place on the Child App, I'd like to refresh the listview on the MainApp because the records have changed. How can I accomplish this? Is there a way to call the form in the Main Application from the Child Application even they are 2 different .exe files? I really need help on this please.

Excel TextBox Font Changes When In Focus And Out Of Focus??
Hi All,

I am using a TextBox within an Excel Sheet and did set the font property to "Terminal" with size 22. When in focus, it seems to be OK but when I click somewhere else in the spreadsheet (TextBox losing focus) the font change. Why is that? I want the font to be the same in-focus or out-of-focus. Any help would be greatly appreciated. I have been playing with this for a while but could not figure it out. By the way, I am using Office 2003.
Thank you.

Charles

SendKey To A Window NOT In Focus - But Keep Focus?
Fyi, I'm fairly new to VB.

Anyway, to the point.
I have two applications, both running in full screen.
What I want to accomplish is that while one of the applications are running in focus (full screened), I want my VB program to run in the background and send a key on a regular basis to the other application (the one that is NOT in focus) without having to tab out of the focused application.

I managed to achieve some of this partly with the help of FindWindow and ShowWindow:

Code:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_NORMAL = 1
Private Const SW_MAXIMIZE = 3
Private Const SW_SHOW = 5
Private Const SW_MINIMIZE = 6
Private Const SW_RESTORE = 9
Dim hinst As Long
Dim hinst2 As Long

hinst = FindWindow(vbNullString, "PrgNotInFocus") ' The program that should not be in focus, but have keys sent to
hinst2 = FindWindow(vbNullString, "PrgInFocus") ' Should be in focus at all times
If Not IsNull(hinst) Then
ShowWindow hinst, SW_NORMAL
SendKeys (1)
ShowWindow hinst, SW_MAXIMIZE
End If

This allows me to bring forth the window that I don't want in focus and "makes it press 1".
But that's hardly the effect I'm looking for, since it:

-Tabs out of my current application and focuses the wrong one
-Requires the window I want to SendKeys to to be focused

Suggestions?

Get Focus Lose Focus (ASAP)
Hello I have a program that Gets the focus of a text box on intervals and need to "reset" the focus to the application that had the focus before i took it.

For an example:
I am useing internet explorer and the application gets the focus of the text box in my application then i want to "reset" the focus back to internet explorer !

ANY HELP WANTED AND NEEDED

Sorry Vikarmji - Still The Focus Goes There.Focus In Flexgrid - Pls Help Me
HI,

   My Flexgird contains 32 rows and 5 columns. Focus should not go to specific rows.Iam using the following code

Private Sub Msflexgrid_SelChange()
With MSflexgrid
If .Row = 1 Or .Row = 11 Or .Row = 21 Or .Row = 26 Or .Row = 2 Or .Row = 12 Or .Row = 22 Or .Row = 27 Then
     .FocusRect = flexFocusNone
Else
    .FocusRect = flexFocusLight
End If
End With
End Sub

But it is not working properly.

Thanks in Advance

Dorathy

Edited by - dorathy_sylvia on 3/1/2005 8:37:41 PM

I Want My Data Back Data Back Data Back, Ribs.
The program i'm making is a data entry tool for a database. I want to be able to have about 30 fields that are textboxs that the user enters data into and then the click on a big pretty generate button and *poof the data appends to the database. I'm tinkering around with liking to an access database i've made and i have my text boxs set with the following features:

for the textbox called ' tester
DataField Tester
DataSource Adodc1

And of course i have adodc1 set to my database with a connection string. And i'm made sure that the text box isn't locked. It seems to me that the textbox is displaying data from the database. And all i want it to do is input from the user for appending to the database. Anybody know how to fix this?

Can Someone Give Me An Example
hey all

I have a plan to create a simple game. The game that I want to build
just display text,text...and text. So this game use database I think.

Can someone give me an example the game like that? I've searched in
this forum but the game is not like this. I see in this forum Many discussion is about animation game.

What kind of game that I'm tryng to create? Because I don't know.

At least just wondering,

What game are u playing now?
or what is the best game now? (You think)

thanks a lot

How To Give A Name
Hello,

How can I give (with VB6.0) the name "TEST" on an Excel sheet - cel B2

ActiveWorkbook.Range("B2").AddName = "TEST" doesn't work.

Thanks.

Can Someone Plz Give Me An Example..
plz can somebody give me an example of how the:

KeyDown

KeyUp

KeyPress

procedures work, because im not quite sure how to use them properly

thanks for any help

I Am AbOUt To GivE UP!!!
I have been trying to do this code for over ..a month i would say..i dont even know what is wrong with the code i am trying to do i sent it to my freinds and they said it was fine...to top it off my dad formatted my hard drive without me knowing..I no longer have the code that i nwas working on for 3 weeks or more (which doesnt work anyway)....please sum1 help me if u cant ill just give up and pray my grade stays at a C rather than drop to a D..(i was hoping for a B because i have a high C..but..oh nevermind lets not get personal problems involved with this) please help!
heres what i am trying to do....

Store the name and Daily school schedule of Students at Roosevelt High Schoolin a random file.Each Record contains the student's name and period number and title of each course the student takes (the teacher told me to assume all students take the same number of courses). Allow the user to A.) change items in the file B.)delete items C.)add new students or D.)obtian a listing of the file.

according to the teacher this is an easy project ..and i agree it is...But what he doesnt undersatnd is i had hepitites A and was out when he explained how to make your own data type.I still manged to figure it out tho!!!!!

PLEASE HELP SOMEBODY