|
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.
|
|
|
|
|
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
|
|
|
|
|
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....
|
|
|
|
|
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 ?
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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.
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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.
|
|
|
|
|
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...
|
|
|
|
|
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.
|
|
|
|
|
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 
|
|
|
|
|
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
|
|
|
|
|
How could a zero length string contain "Cambridge University"?
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
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.
|
|
|
|
|
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.
|
|
|
|
|
Thank you both for this option... It's definitely better than using the nested if...then...else statements... Should work nicely... Thanks again...
|
|
|
|
|
Hi all...
I am creating a program for a small company to store all informations about its product.
There are several branches of company in many cities. So this program will be used in several cities.
The main job I have to do is, if a person in city1 or city2 sell a product and print its bill, then that program will send all informations of that product(name,price,qty,date of purchasing and selling etc.) to the main program running on the system of manager of the company(in another city).
Please suggest me how can I do this...
Thanks.
Gagan
|
|
|
|
|
Sounds like another rentacoder job gone bad to me.....
Obviously you need a central database to manage this, and then I would say that a webservice you can call to report a sale is what you're after.
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
can u tell me how can I use webservice call to send information.
Gagan
|
|
|
|
|
Well, you do it by calling the webservice. I assume you have no idea what a webservice is, did you google it and read up on what I'm talking about ?
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1
'
' NAME:
'
' AUTHOR: OEM USER , OEM USER
' DATE : 12/15/2008
'
' COMMENT:
'
'==========================================================================
'Option Explicit
Dim strComputer, passLen, accName, inputFile, newpass
'-----------------------------------
passLen = 128
accName = "itdadmin"
strComputer = "."
'inputFile = strComputer
inputFile = "C:\COMPUTERS.TXT"
'-----------------------------------
newpass = generatePassword(passLen)
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("c:\windows\system32\pspasswd.exe @" &chr(34) &inputFile &chr(34) &" " &accName &" " &newpass )
'Set objWshScriptExec = objShell.Exec("c:\windows\system32\pspasswd.exe @" &chr(34) &strComputer &chr(34) &" " &accName &" " &newpass )
'Set objStdOut = objWshScriptExec.StdOutstrOutput = objStdOut.ReadAll
WScript.Echo date & "," & time & VbCrLf&"NewPassword: "& newpass& vbCrLf& vbCrLf & strOutput
Set objShell = Nothing
wscript.quit
Function generatePassword(PASSWORD_LENGTH)
Dim NUMLOWER, NUMUPPER, LOWERBOUND, UPPERBOUND, LOWERBOUND1, UPPERBOUND1, SYMLOWER, SYMUPPER
Dim newPassword, count, pwd
Dim pCheckComplex, pCheckComplexUp, pCheckComplexLow, pCheckComplexNum, pCheckComplexSym, pCheckAnswer
NUMLOWER = 48 ' 48 = 0
NUMUPPER = 57 ' 57 = 9
LOWERBOUND = 65 ' 65 = A
UPPERBOUND = 90 ' 90 = Z
LOWERBOUND1 = 97 ' 97 = a
UPPERBOUND1 = 122 ' 122 = z
SYMLOWER = 33 ' 33 = !
SYMUPPER = 46 ' 46 = .
pCheckComplexUp = 0 ' used later to check number of character types in password
pCheckComplexLow = 0 ' used later to check number of character types in password
pCheckComplexNum = 0 ' used later to check number of character types in password
pCheckComplexSym = 0 ' used later to check number of character types in password
' initialize the random number generator
Randomize()
newPassword = ""
count = 0
DO UNTIL count = PASSWORD_LENGTH
' generate a num between 2 and 10
' if num < 5 create an uppercase
If Int( ( 10 - 2 + 1 ) * Rnd + 2 ) < 5 Then
pwd = Int( ( UPPERBOUND - LOWERBOUND + 1 ) * Rnd + LOWERBOUND )
' if num is between 4 and 7 create a lowecase
Elseif Int( ( 10 - 2 + 1 ) * Rnd + 2 ) > 3 And Int( ( 10 - 2 + 1 ) * Rnd + 2 ) < 8 Then
pwd = Int( ( UPPERBOUND1 - LOWERBOUND1 + 1 ) * Rnd + LOWERBOUND1 )
' if num is between 8 and 10 generate a symbol
Else
pwd = Int( ( SYMUPPER - SYMLOWER + 1 ) * Rnd + SYMLOWER )
End If
newPassword = newPassword + Chr( pwd )
count = count + 1
'Check to make sure that a proper mix of characters has been created. If not discard the password.
If count = (PASSWORD_LENGTH) Then
For pCheckComplex = 1 To PASSWORD_LENGTH
'Check for uppercase
If Asc(Mid(newPassword,pCheckComplex,1)) >64 And Asc(Mid(newPassword,pCheckComplex,1))< 90 Then
pCheckComplexUp = 1
'Check for lowercase
ElseIf Asc(Mid(newPassword,pCheckComplex,1)) >96 And Asc(Mid(newPassword,pCheckComplex,1))< 123 Then
pCheckComplexLow = 1
'Check for numbers
ElseIf Asc(Mid(newPassword,pCheckComplex,1)) >47 And Asc(Mid(newPassword,pCheckComplex,1))< 58 Then
pCheckComplexNum = 1
'Check for symbols
ElseIf Asc(Mid(newPassword,pCheckComplex,1)) >32 And Asc(Mid(newPassword,pCheckComplex,1))< 47 Then
pCheckComplexSym = 1
End If
Next
'Add up the number of character sets. We require 3 or 4 for a complex password.
pCheckAnswer = pCheckComplexUp+pCheckComplexLow+pCheckComplexNum+pCheckComplexSym
If pCheckAnswer < 3 Then
newPassword = ""
count = 0
End If
End If
Loop
'The password is good so return it
generatePassword = newPassword
End Function
|
|
|
|
|
bohicamaster wrote: How can I target the local system instead of using a txt file for a Ramdom Password Change to all computer system
Uhhh... what? I don't understand what you're trying to do. You're going to have to explain the process you're using, why you're using files, and why you want to "target the local system". What does "target the local system" mean?? What are you ultimately trying to do with this??
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
