|
hi,
consider this line
If strFunc_key.Substring(0, 4) = "GEOSS" Then
the substring function takes two argumets in above line. first is start index & second is length of string which you specify 4. so how can you compare this substring(4 character) to other string(Geoss,pv000 etc)
use following statement
If strFunc_key.Substring(0, 5) = "GEOSS" Then<br />
intval = 12<br />
endif
hope this helps
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
My Company
|
|
|
|
|
Hi Rupesh Kumar Swami
Thank you very much, i understand, the mistake i made, is that i started counting the string am comparing from "0" instead of "1"
Thanks its working
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
Firstly you need to test for 5 characters not 4 e.g. "GEOSS" contains 5 characters
Secondly what happens if not of the conditions are true?
Personally, I would use a SELECT CASE rather than nested IFs
example :-
Private Function FindCategory(ByVal strFunc_key As String) As Integer<br />
Dim intval As Integer<br />
<br />
Select Case strFunc_key.Substring(0, 4) <br />
CASE "GEOSS"<br />
intval = 12<br />
Case = "PV000" <br />
intval = 1<br />
Case "PVDIF" <br />
intval = 2<br />
Case "PVNTR" <br />
intval = 3<br />
Case Else<br />
intval = 0<br />
End Select<br />
Return intval<br />
<br />
End Function
Steve Jowett
-------------------------
Sometimes a man who deserves to be looked down upon because he is a fool, is only despised only because he is an 'I.T. Consultant'
|
|
|
|
|
Thank very much
its working, my mistake
Thanks
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
I have created a windows user control but whenever i add to a form in a new project it tells me that the control is not part of the form
Plz help.
The control is a GUI Control that i drop on a form..
ther error is like this
"UserCOntrol1 not part of me.Form1"
Thanks
phatkin
|
|
|
|
|
I also hope we can have a single user control project with multiple controls inside?
Thanks
phatkin
|
|
|
|
|
I have two ListBox in vb.net. I want if a user drag any item from one listbox and drop it into other then it got add in other listbox.]
please help
|
|
|
|
|
You can try out this code. I have used two Listboxes on a form.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
Dim i As Integer<br />
<br />
For i = 0 To 19<br />
<br />
Me.ListBox1.Items.Add("Item " & (i + 1).ToString)<br />
<br />
Next<br />
<br />
End Sub<br />
<br />
<br />
Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown<br />
<br />
Try<br />
<br />
ListBox1.DoDragDrop(ListBox1.SelectedItem, DragDropEffects.Copy)<br />
<br />
Catch ex As Exception<br />
<br />
MsgBox("Drag Error: " & ex.Message)<br />
<br />
End Try<br />
<br />
End Sub<br />
<br />
<br />
<br />
Private Sub ListBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragDrop<br />
<br />
ListBox2.Items.Add(e.Data.GetData(DataFormats.Text))<br />
<br />
End Sub<br />
<br />
<br />
<br />
Private Sub ListBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragEnter<br />
<br />
If e.Data.GetDataPresent(DataFormats.Text) Then<br />
<br />
e.Effect = DragDropEffects.Copy<br />
<br />
Else<br />
<br />
MessageBox.Show("No Text Present")<br />
e.Effect = DragDropEffects.None<br />
<br />
End If<br />
End Sub
I believe this should assist you.
Regards,
Allen
Allen Smith
Software Engineer
ComponentOne LLC
www.componentone.com
|
|
|
|
|
|
In vb.net I want when i run the form then initially by default the focus is on the textbox1.I set its tabindexproperty to zero but it wont works.
I also set TextBox1.Focus=true on form load event it also not works.
please help me.
|
|
|
|
|
Have you tried the SetFocus() method?
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
Thanks for the suggestion but there is no setfocus method in vb.net. it is in vb6.
|
|
|
|
|
sumit7034 wrote: it is in vb6
What? Your code?
VB.NET has a Focus() method. I teach it to my college students every semester 
I meant Focus and not SetFocus 
"I guess it's what separates the professionals from the drag and drop, girly wirly, namby pamby, wishy washy, can't code for crap types." - Pete O'Hanlon
|
|
|
|
|
actually sir focus() method is working on button click event but i m trying it on form load event where it is not working.
|
|
|
|
|
hi sumit7034
thats Simple and vote for this thread after this
first this you want to set a focus on a textbox onload ? well do the following. in your formload put in the following code
<br />
'Set the Focus to your textbox when the form load<br />
Tetxtbo1.Focus()<br />
'Disable the button, because the focus will go to it first<br />
Button1.Enabled = False<br />
on your textbox in the KeyPress event put in the following code
<br />
'Enabling the Button when a user start entering something on the<br />
'textbox<br />
search.Enabled = True<br />
Hope this Helps
Thanks
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
Or, much simpler, just set the textbox's TabIndex to 1 in the designer window.
My advice is free, and you may get what you paid for.
|
|
|
|
|
Hi all,
Background: I have some tools provided by a vendor that I need to write a wrapper script around. The wrapper script has to check a few things, then call those command line tools. I am seeing a problem when the commands output a large amount of text, the script seems to get "stuck".
I think it's a result of the buffer filling up and then the command gets suspended. I am polling stdout and copying anything on it to my own stdout, but it seems that large amounts of output still cause it to freeze up.
Here is the relevant code:
<br />
Dim MyCommand<br />
MyCommand = "%comspec% /c " & CommandLine & " 2>&1"<br />
<br />
' Run the command<br />
Dim objShell, objExec<br />
Set objShell = CreateObject("WScript.Shell")<br />
Set objExec = objShell.Exec(MyCommand)<br />
<br />
' Output stdout from command<br />
Do Until objExec.StdOut.AtEndOfStream<br />
If Not objExec.StdOut.AtEndOfStream Then<br />
WScript.StdOut.WriteLine objExec.StdOut.ReadLine<br />
End If<br />
Loop<br />
<br />
' Wait for the command to finish<br />
Do While objExec.Status = 0<br />
WScript.Sleep 100<br />
Loop
The ideal situation is if I could call the subcommands and allow their stdout/stderr to flow to the correct place in my script's output buffers, but so far I have not found a way to do this. The next best thing would be if this polling would actually work all the time, and keep the correct order of the output. The worst solution would be to save the output to a file, then output it myself later.
|
|
|
|
|
hi!
i looked every where but i couldnt find the datagrid 3 level drill down. i have only been able to do upto two level drill down.
could someone please help?
thanks
|
|
|
|
|
Hi all!
I'd like to know how to approach this problem of mine. I need to know when rtb.copy() has done its work - so I can use rtb2.paste() safely. Then I'd like to know when paste is done so I can use rtb2 safely for printing.
Today, in 50% of the attempts to print, I get blank pages. So I gather there is a problem with too fast execution of code that the .copy and/or .paste simply won't have the time to finish. I could be wrong, but I'm willing to try to find out... but I do not know how to know when copy/paste is done.
I can be totally wrong when it comes to the origin of the problem, I know that. But for now this is what I suspect.
I will now settle with trying to just put in some pauses in the code to see if it will make the text come out printed 100% of the times.
If that helps I really need to know how to get to know when copy/paste is done.
Pauses will most likely slow down the process too much I can't add a second each time I use copy/paste.
Anyone?
|
|
|
|
|
How i can know the state of the communication of winsock control in VB.NET ?
Thanks'
|
|
|
|
|
I am building a control around a RichTextBox control and incorporating a spell checker, but have come across a stumbling block.
If I spell check the text of the RichTextBox Text property, the spell checker finds the errors, but if I use the checkbox RTF property the spell checker then attempts to check the RichText formatting.
If I correct the text in the TEXT property and assign it back to the RichTextBox text property, the RichTextBox loses it formatting.
Any suggestions on how to filter out the spelling mistake and correct them, would be greatly appreciated.
Steve Jowett
-------------------------
Sometimes a man who deserves to be looked down upon because he is a fool, is only despised only because he is an 'I.T. Consultant'
|
|
|
|
|
Sometimes it helps to leave things for awhile and the solution just comes to you.
The Spell Checker control I am using (Infragistics) reports the starting position on the incorrectly spelt word and the word itself. So from this information I can select the word in the RichTextBox then replace the selected text with the correct word.
RichTextBox.SelectStartIndex, Word.Length)<br />
RichTextBox.SelectedText = ReplacementWord
Steve Jowett
-------------------------
Sometimes a man who deserves to be looked down upon because he is a fool, is only despised only because he is an 'I.T. Consultant'
|
|
|
|
|
I made a windows application that connects to a sql server database. It runs on the customer's network. Back at our company I would like to run the application from my desktop but connect to their database. How can this be done?
|
|
|
|
|
You need to be added to the VPN on your customers network. Once you are connected by VPN to their network, just install that app on your machine and run it. That should be all you have to do.
I'm going to become rich when I create a device that allows me to punch people in the face over the internet.
"If an Indian asked a programming question in the forest, would it still be urgent?" - John Simmons / outlaw programmer
|
|
|
|
|
how i can make a setup wizard for my standart exe project ?
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
