Visual Basic

Re: synchronize the size and state of all the forms when window state is maximized and window state is normal using Visual Basic 2005

15-Dec-08 17:43

Hi all,

I am developing Application using Visual basic 2005, and I have 8 window forms hidden when my application is opened and only one window form is active, I need to synchronize all the form whenever active form is maximized all other forms to be maximized , and similarly when size of the form is changed all the form size to be changed during run time. currently i am using the code as shown below.

Private Sub fmindro_ClientSizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ClientSizeChanged

If max_flag = True Then

For i As Integer = 0 To My.Application.OpenForms.Count - 1

My.Application.OpenForms.Item(i).DesktopBounds = Me.DesktopBounds

My.Application.DoEvents()

Next i

End If

End Sub

Private Sub fmindro_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LocationChanged

If max_flag = True Then

For i As Integer = 0 To My.Application.OpenForms.Count - 1

My.Application.OpenForms.Item(i).DesktopLocation = Me.DesktopLocation

My.Application.DoEvents()

Next i

End If

End Sub

But if i use this , i am not able to change the size and location of the window form if i switch to another form, and change the window state.

Please help me to set the bounds from any form which is active and reflect change in size and location to other forms when made active.

Christian Graus15-Dec-08 17:51

Re: synchronize the size and state of all the forms when window state is maximized and window state is normal using Visual Basic 2005

15-Dec-08 17:51

If they all live in the same spot, you only need one window. Rewrite your other windows so they are user controls all within the same window, and just swap which one is visible instead of swapping the visible forms.

Christian Graus

Driven to the arms of OSX by Vista.

jshashikumar15-Dec-08 22:05

Re: synchronize the size and state of all the forms when window state is maximized and window state is normal using Visual Basic 2005

15-Dec-08 22:05

Hi Christian,

I really new to VB 2005, can u send me sample program in VB 2005 for the above mentioned.

thank u for your kind reply

Nanda_MR15-Dec-08 18:00

Nanda_MR

15-Dec-08 18:00

you can use this method but code will become big but it is easy.

Change the form length X width all form and assign the active form length X width as well as left and Top.

Use a global function for this u can reduce the length of coding....

Re: synchronize the size and state of all the forms when window state is maximized and window state is normal using Visual Basic 2005

jshashikumar15-Dec-08 22:11

Re: synchronize the size and state of all the forms when window state is maximized and window state is normal using Visual Basic 2005

15-Dec-08 22:11

If i use global function , it will reduce the code but the problem still remains, it works for maximize window state but when comes to window state normal its not working correctly.

can anybody give a perfect solution to the above mentioned problem ? Confused | :confused:

Nanda_MR15-Dec-08 23:55

Nanda_MR

15-Dec-08 23:55

This code is work.

Private Sub frm1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    Call resize_win()
End Sub

Public Sub resize_win()
    Form2.Width = Me.Width
    Form2.Height = Me.Height
    Form2.Left = Me.Left
    Form2.Top = Me.Top
    Form2.WindowState = Me.WindowState
    Form3.Width = Me.Width
    Form3.Height = Me.Height
    Form3.Left = Me.Left
    Form3.Top = Me.Top
    Form3.WindowState = Me.WindowState
End Sub

Re: synchronize the size and state of all the forms when window state is maximized and window state is normal using Visual Basic 2005

jshashikumar17-Dec-08 20:20

Applications Won't Launch!

17-Dec-08 20:20

Hi,

I tried with the above code, its works intermittently. sometimes it works some times its not...

whenever i try to maximize and make normal in another form, and go back to some other form the form changes its size to normal and again goes back to maximised state...

please help to solve this critical issues

Codemonkey8515-Dec-08 16:42

Codemonkey85

15-Dec-08 16:42

Hello,

I need some serious help... for some reason, rather recently, any application I try to develop on my home PC will not launch. It doesn't launch out of debug mode (debug mode starts and ends almost instantly), it doesn't launch if I try to run the compiled .exe from Explorer, and worse yet, an application that I develop at work (where I don't have this problem) will no longer launch if I compile it on my home PC!

Even if I make a new application from scratch, just a blank form with no controls, that won't launch. I even tried Console.WriteLine("Some message") in the Form1 Load event and in the Application's Startup event and nothing gets written to the Output window. No error ever gets reported either.

I've already tried uninstalling VB.Net and reinstalling it, and that didn't help either. I've looked all over MSDN[^] and Google, and no one else seems to have this problem.

I don't know what else to do!

As I sit here, I contemplate the last words of Socrates: "I drank what?".

Pokémon Pearl Friend Code: 4554-2418-6836

Re: Applications Won't Launch!

Christian Graus15-Dec-08 17:27

Re: Applications Won't Launch! [modified]

15-Dec-08 17:27

What if you put some breakpoints in your application, and then run from visual studio ? If they never get hit, then I'd be uninstalling and reinstalling the .NET framework.

Christian Graus

Driven to the arms of OSX by Vista.

Codemonkey8516-Dec-08 17:38

Codemonkey85

16-Dec-08 17:38

Well, I tried uninstalling and reinstalling the framework, as well as VB.Net. I even tried a system restore. Nothing has changed.

Now what?

EDIT: Hmm, now breakpoints in both the Form1 Load event and the Application's startup event are working, as is (apparently) any code I put in there. But beyond those two subs, nothing happens, and the form never appears on the screen.

What the heck.

As I sit here, I contemplate the last words of Socrates: "I drank what?".

Pokémon Pearl Friend Code: 4554-2418-6836

modified on Tuesday, December 16, 2008 11:47 PM

Looking for alternative to for...then...else statement

runey7115-Dec-08 16:36

Re: Looking for alternative to for...then...else statement

15-Dec-08 16:36

I'll try and give a brief description of what I am trying to do... Basically I have a string that extracted from a text file called strCombined... I want to look at that string and if it contains a certain phrase then I want to act on it... If not then perform a default action...

Now I can do this pretty easily using a nested if...then...else statement... That's long winded and messy though...

If strCombined.IndexOf("Cambridge University") Then
     strSearchName = "Cambridge University"
Else
     If strCombined.IndexOf("FM Towns") Then
          strSearchName = "FM Towns"
     Else
          If strCombined.IndexOf("Jupiter Cantab") Then
               strSearchName = "Jupiter Cantab"
          Else
               strSearchName = ""
          End If
     End If
End If

I was hoping to use some kind of select...case statement instead...

Select Case strCombined
     Case strCombined.IndexOf("Cambridge University")
          strSearchName = "Cambridge Univeristy"
     Case strCombined.IndexOf("FM Towns")
          strSearchName = "FM Towns"
     Case strCombined.IndexOf("Jupiter Cantab")
          strSearchName = "Jupiter Cantab"
     Case Else
          strSearchName = ""
End Select

This obviously is not working... I'm hoping someone here can help me to either get this working with a select...case statement or suggest some other alternative...

Thanks in advance

Christian Graus15-Dec-08 17:30

Re: Looking for alternative to if...then...else statement

15-Dec-08 17:30

because you're hoping to do an operation in each step, you're doing a search and not just checking different cases, there's not really an alternative that I can see.

However, this is really messy. Do you intend to accept FM Towns but not FM towns or fm towns ? Do you also intend that if someone types in more than one of these terms, then the order in which they are typed will dictate which one is accepted ?

Christian Graus

Driven to the arms of OSX by Vista.

runey7115-Dec-08 17:36

Re: Looking for alternative to if...then...else statement

15-Dec-08 17:36

Thanks for the prompt reply...

I don't really care if the case doesn't match... So I'll accept any variation of FM Towns... Though it comes from a Datfile and not from a user input... So it should be pretty consistent from one version of the Datfile to the next...

I've coded it using the if...then...else statement and it works just fine... Just hoping to find a more elegant solution I suppose...

Christian Graus15-Dec-08 17:50

Re: Looking for alternative to if...then...else statement

15-Dec-08 17:50

If you want to be case insensitive, create a new string by calling ToLower on the one you have, and then compare to all lower case strings. Or there's a case insensitive compare method, but I always do the lower case string, it's surely more efficient ?

Christian Graus

Driven to the arms of OSX by Vista.

runey7115-Dec-08 18:03

Re: Looking for alternative to for...then...else statement

15-Dec-08 18:03

If I can't find a neater alternative to nested if statements then I'll look into that option... Anything that is more efficient and helps speed up the process is more than welcome Smile | :)

Mycroft Holmes15-Dec-08 21:19

Mycroft Holmes

15-Dec-08 21:19

Try a test on strSearchName.Length and an if statement

If strCombined.Length = 0 and strCombined.IndexOf("Cambridge University") Then<br />
     strSearchName = "Cambridge University"<br />
end if<br />
If strCombined.Length = 0 and strCombined.IndexOf("xxxx") Then<br />
     strSearchName = "xxxx"<br />
end if

Never underestimate the power of human stupidity
RAH

Re: Looking for alternative to for...then...else statement

Guffa16-Dec-08 6:09

Guffa

16-Dec-08 6:09

How could a zero length string contain "Cambridge University"?

Despite everything, the person most likely to be fooling you next is yourself.

Re: Looking for alternative to for...then...else statement

Johan Hakkesteegt16-Dec-08 1:00

Johan Hakkesteegt

16-Dec-08 1:00

This may not necessarily be more efficient, but it is a little more elegant, and it is easier to maintain in case you need to use more than the three values from your example:

Dim strSearchName As String = ""
Dim Values() As String = {"Cambridge University", "FM Towns", "Jupiter Cantab"}
For Each v As String In Values
  If strCombined.IndexOf(v) Then strSearchName = v
Next

By setting strSearchName to be an empty string beforehand, it will be your default value if the loop doesn't assign it a value.

The array I used here enables you to use a settings file, or database table, or something like that. In case the amount of values you need to monitor grows really large, you can easily replace it with some other method of creating a collection of strings (DataTable, DataReader, etc.)

Using a loop here enables you to easily incorporate operations like String.ToLower, etc. or to perform other actions on strSearchName or strCombined, while you are at it.

Good luck,

Johan

My advice is free, and you may get what you paid for.

Re: Looking for alternative to for...then...else statement

Guffa16-Dec-08 6:14

Guffa

16-Dec-08 6:14

I agree that this is the more maintainable solution.

Just some corrections to the code...

The IndexOf method returns an integer, not a boolean.

You want to exit from the loop as soon as you have found a string, otherwise the code doesn't do the same as the original code.

Dim strSearchName As String = ""
Dim Values() As String = {"Cambridge University", "FM Towns", "Jupiter Cantab"}
For Each v As String In Values
   If strCombined.IndexOf(v) <> -1 Then
      strSearchName = v
      Exit For
   End If
Next

Despite everything, the person most likely to be fooling you next is yourself.

Re: Looking for alternative to for...then...else statement

runey7116-Dec-08 10:46