|
Hi all,
I was doing some text parsing and I faced the issue below, I would like some one to explain to me from where the 42 is came.
' Add Text1 , at run time, write 123456
' Button Click
Dim _str1 = Me.Text1.ToString
Dim _str2 = Me.Text1.Text.ToString
Debug.Print(_str1.Length) ' Gives 42
Debug.Print(_str2.Length) ' Gives 6
6 is the length of text "123456"
I have Size = 78,20 : Max Length = 32767 : Margin 3,3,3,3 : Location 64,18 : Maximum Size 0,0 : Minimum Size 0,0
what is 42?
TIA
Like car accidents, most hardware problems are due to driver error.
Samir R. Ibrahim
|
|
|
|
|
Me.Text1.ToString uses the ToString method of TextBox (all objects have a ToString method). The ToString method of a TextBox returns its name, something like 'MyApplication.MyNamespace.textBox1'. If you Debug.Print _str1 you will see exactly what it is.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Henry Minute wrote: Debug.Print _str1
I run debug and see "System.Windows.Forms.TextBox, Text: 928028" , I thought it is debug info not the real value.
Thanks
Like car accidents, most hardware problems are due to driver error.
Samir R. Ibrahim
|
|
|
|
|
A pleasure.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Hi to All,
In order to run my VB.NET application in start UP, Is there any method/code to add it to windows services?
Regards,
HimangsuS
-----------------------------
I am a beginner
|
|
|
|
|
If your application is a service, look up how to add it to the services from the help documentation of visual studio.
If you have a normal windows application (a form with buttons and such), add a setup project to your solution and add the shortcut to be copied to the Start up folder there.
My advice is free, and you may get what you paid for.
|
|
|
|
|
Quit posting the same question in the forums. You got answers on that, use the search bar at the top or Google. **Attempt** to create a fix and then post your new questions.
Any suggestions, ideas, or 'constructive criticism' are always welcome.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
Hi,
You need to create a project, make sure you select a "windows service" template from the list of templates.
there will be certain settings that needs to be set up,
you can google for these options or use msdn.
try google: "create windows service in vb.net" there are alot of help there!
hope this helps
Anoop
|
|
|
|
|
Hi to all,
I am facing this problem for a couple of weeks and not able to solve. Anyone please help me out.
I have 2 table (A and B) which are related with some foreign keys.
Now I want to update a column in table A, with the help of datagrid(since I want to update so many records together). But while showing on the data grid it should show the result of a join operation(because only table A doesnot give all information about the records).
Please tell me, what is the method to do so.
In short "I want to update the table with a querry of Join operation". or "Update multiple table with datagrid"
I am using MS ACCESS database
Thanks in advance
HimangshuS
-----------------------------
I am a beginner
|
|
|
|
|
please i review your problem i dont understand are you unable to update the Table
|
|
|
|
|
I can update if it is a query with single table..
want to know how do we update(way/code) to update in a join query (data from multiple table)
from the datagrid.
thanks on advance
-----------------------------
I am a beginner
|
|
|
|
|
|
Some One can help me?
writed this code but it's doesn't work
Private Sub Nexxt_Click()
RsLap.Edit
RsLap.MoveNext
If RsLap.EOF = True Then
MsgBox "Last"
RsLap.MoveFirst
End If
End Sub
|
|
|
|
|
|
i guess it is a adodb
if it is then remove
RsLap.Edit
then it should work
also don't forget to initialize them
if ya wanna more help
tell what error vb gives
check with err object
TheMrProgrammer
|
|
|
|
|
Define "doesn't work". What is the code supposed to do? What is it doing? What is it not doing?? Any error messages??
"Doesn't work" is like taking your car in for service and telling them the same thing. How are they supposed to know what it is your talking about??
|
|
|
|
|
It's obvious, the tires don't roll.
|
|
|
|
|
|
please forgive me mr. Dave Kreskowiak, because i can't explain my thread to you, because my english is not quitely well
|
|
|
|
|
Soooo you're going to object to me asking questions so you can clarify what you're talking about??
I, also, object. Have a nice life...
|
|
|
|
|
I'm a newbie, but stuck in a loop on this one...
I'm trying to take 13 cards (Hearts 0 -12) which are already set up in design view and check to see if their tag number (also 0 - 12) is equal to the tag number of another 13 cards (Image 1 0 - 12) of another suit. How do I do this w/out the compiler seeing that both hearts and Image1 are already equal to each other.....I'll explain more...
such as:
For Index = 0 To 12
For NewIndex = 0 - 12
'I initialized this to go through the suits in a loop, but what I'm trying to do is see if the tags are equal, as in:
If Image1(Index).Tag = Hearts(NewIndex).Tag
Then.....yadahyadah
Else, yadahyadah
'But if I do this, then it will always equal, because the integers index and newindex were set to 0.....does this question make any sense?
I'm trying to loop through the cards and check to see if their tags are equal so I can do things with the cards...
Thanks in advance.
|
|
|
|
|
nested for loops work like this:
for x = 0 to 9
for y = 0 to 9
do something here
next y
next x
The code at "do something here" will be executed 100 times, like so:
x = 0, y = 0
x = 0, y = 1
...
x = 0, y = 9
x = 1, y = 0
...
See?
If you set your loops up this way, you will definitely compare every item in X with every item in Y, but it's not particularly efficient. You probably want to stop processing once you find a matching tag?
|
|
|
|
|
Thanks for the advice.
I tried something like the following, but when I tried placing the Next, Next lines just below the 'Hearts(Index).Tag = Source.Tag, the compiler gave me an error 340, array element 13 does not exist. It doesn't when I place the Next's at the end. However, what happens at run time is the You're right always happens, and then the card I choose from the left (can be any card), would always appear on the right hand side in hearts(0) slot. I'm confused but think that since Index and NewIndex are set to 0, they will always match and always do vbenddrag, not vbcancel. Any ideas would be much appreciated. Thank you.
'For Index = 0 To 12
'For NewIndex = 0 To 12
'Hearts(Index).Picture = Source.Picture
'Hearts(Index).Tag = Source.Tag
'If Hearts(Index).Tag = Image1(NewIndex).Tag Then
'Image1(NewIndex).Drag vbEndDrag
'MsgBox ("You're right!")
'Exit Sub
'Else
'Image1(NewIndex).Drag vbCancel
'Exit Sub
'End If
'Next
'Next
'End Sub
|
|
|
|
|
You are never getting further than once through, as your code exits the sub regardless of whether heart(index).tab = image1(newindex).tag or not - you have exit sub in both the if and the else!!
ymilan wrote: 'If Hearts(Index).Tag = Image1(NewIndex).Tag Then
'Image1(NewIndex).Drag vbEndDrag
'MsgBox ("You're right!")
'Exit Sub <<<<<<<<<<<<<<<<<< HERE
'Else
'Image1(NewIndex).Drag vbCancel
'Exit Sub <<<<<<<<<<<<<<<<<<< HERE ALSO
'End If
|
|
|
|
|
Hello,
I tried to take them out and then the Msgbox messages would run in an incessant loop at runtime.
I took the message boxes out and tried this; but no card from the image1 side shows up over the card in the hearts side. It is just blank.
Code? Sorry, I'm such a newbie...
If X <= 12 And Y <= 12 Then
Hearts(X).Picture = Source.Picture
Image1(Y).Picture = Hearts(X).Picture
X = X + 1
Y = Y + 1
End If
'should initialize those deck positions right in the array?
For X = 0 To 12 <<<<should I use these For's?
For Y = 0 To 12
Image1(X).Tag = Hearts(Y).Tag <or should I just start with this? But then X and Y will always = each other and it won't go to next lines....it will stop at here.
If Hearts(Y).Tag = Image1(X).Tag Then
Image1(X).Drag vbEndDrag <<<<<is this where I'm messing up?
'MsgBox ("You're right!")
Else
Image1(X).Drag vbCancel
'MsgBox ("You're wrong.")
End If
Next
Next
End Sub
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
