|
It's easy in VB10 (VS 2010):
<pre>Shared Sub StartComputation()
Task.Factory.StartNew(Sub()
textBox1.Invoke(New Action(Sub() textBox1.Text = "Starting..."))
End Sub)
End Sub</pre>
Prior to VB10, it's a little awkward:
<pre>Shared Sub StartComputation()
Task.Factory.StartNew(Function() AnonymousMethod1())
End Sub
Private Shared Function AnonymousMethod1() As Object
textBox1.Invoke(New Action(Function() AnonymousMethod2()))
Return Nothing
End Function
Private Shared Function AnonymousMethod2() As Object
textBox1.Text = "Starting..."
Return Nothing
End Function</pre>
David Anton
Convert between VB, C#, C++, & Java
www.tangiblesoftwaresolutions.com
|
|
|
|
|
For anyone else that comes across this the first snippet of code does work as long as the scope is not shared set it to private and you will be good.
Humble Programmer
|
|
|
|
|
The original C# method was static, so if that works then the VB method should work if using "Shared".
David Anton
Convert between VB, C#, C++, & Java
www.tangiblesoftwaresolutions.com
|
|
|
|
|
It wont compile with shared for some reason...
Humble Programmer
|
|
|
|
|
You canot use shared (static) methods in a Module. Anywhere else is OK.
|
|
|
|
|
Thank you VERY much David you have been a huge help... I think I can get the rest of my code to work now.
Thanks again.
Humble Programmer
|
|
|
|
|
This is a working for loop that runs on a task an updates the UI with the accumulator when the for loop completes.
You could update the textbox in the for loop but that makes the code execute MUCH slower I think that the invoke must be a little costly.
Also it gives a warning if you try to update the text box with the i variable so you need to use an accumulator instead.
Imports System.Threading.Tasks
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Task.Factory.StartNew(Sub() sDoWork())
End Sub
Private Sub sDoWork()
Dim iJJ As Integer = 0
For i As Integer = 0 To 10000000
iJJ += 1
Next
TextBox1.Invoke(New Action(Sub() TextBox1.Text = iJJ))
End Sub
End Class
Humble Programmer
|
|
|
|
|
Hello all..
using VB.net 2008
Im working on an application that collects data from the database and populates a list(of t) where t is the structure below.
Public Structure Contact
Dim Ref As Integer
Dim Name As String
Dim Tel As String
Dim fax As String
Dim email As String
Dim position As String
Dim comment As String
Dim printYN As Integer
Dim title As String
Dim firstname As String
Dim surname As String
Dim ext As String
Dim salutation As String
Public Overrides Function ToString() As String
Return Name
End Function
End Structure
This is then displayed in a combobox (Well just the Name) but i need also to search the list from a given ref number. Not sure how to do it most of the examples are based on list(of string). Can anyone give me a pointer or a nice example
Many thanks
Simon
|
|
|
|
|
Hi Simon
You can use LinQ to query lists. In your case you could have something like this
Dim contacts = From mycontact In lstContacts Select mycontact Where mycontact.Ref = intSelectedRef
This will return a new list containing your required contact, although I just made it up and haven't tested this, but you should get the idea.
modified on Friday, March 26, 2010 10:01 AM
|
|
|
|
|
What's with the two identical Select clauses?? You only need one.
|
|
|
|
|
Mental aberration. It was early this morning for me. Will edit it.
|
|
|
|
|
Mate,
thats fantastic and helped me achieve what i needed 
|
|
|
|
|
|
Hi,
what I typically do is:
- use a class (say "Contact") rather than a struct, so what gets passed around is a reference, not a copy of the data; hence better performance;
- a Dictionary(of Ref, of Contact) so one can enumerate all values, or search fast by key
But then I'm not sure you need the Ref field, maybe the reference to the Contact instance is enough, so you never need to search, hence no need for a Dictionary, a simple List(of Contact) could suffice. You would need a Ref field to persist the data to a file or database (pointers/references would be meaningless there).
|
|
|
|
|
Hi there,
Here's what I am trying to do.
Open a TCP/IP Connection (This works fine)
Close connection (this works fine)
Upon trying to then re-open the connection with the same or New IP Address it fails.
My Connect code:
Dim Lostconnection As MsgBoxResult
Try
client.Connect(TextBox1.Text, 7655)
Button21.BackColor = Color.Green
Catch
Button22.BackColor = Color.Red
client.Close()
Lostconnection = MsgBox("Program Not Connected... Retry?", MsgBoxStyle.YesNo)
If Lostconnection = MsgBoxResult.No Then
Me.Close()
End If
End Try
Button22.BackColor = System.Windows.Forms.Button.DefaultBackColor
My Disconnect Code:
Dim client As New Net.Sockets.TcpClient()
client.Close()
Button22.BackColor = Color.Red
Button21.BackColor = System.Windows.Forms.Button.DefaultBackColor
|
|
|
|
|
First, if you do this:
Dim client As New Net.Sockets.TcpClient()
client.Close()
You aren't going to achieve much as you have just closed a client that was never opened. the client in your connect code is difference to the client in your disconnect code unless they are in the same function.
Something to keep in mind, you cannot do this:
Dim client as New Net.Sockets.TcpClient()
client.Connect("www.google.com", 50)
client.Close()
client.Connect("www.google.com", 50) ' This will cause an error.
Close disposes the TcpClient, so it can no longer be used. You will have to create a new TcpClient to reconnect.
If this isn't your problem, try providing more detail.
And now some more basic tips:
Make sure the code you give us is the code you are actually using.
Wrap your code in <pre> tags to make them easier to read.
Make sure you provide full details of your problem, including what exceptions you get.
This might help you get more answers.
|
|
|
|
|
Hi Tony,
First off thanks for replying.
Yep, your first point was me just really copying and pasting stuff everywhere. I have removed it! Sorry for posting that.
You said: "Wrap your code in pre tags to make them easier to read"
how do I do that???
And your explination actually helped me. I don't actually want to close the connection do I!! Just catch the error, then as my message box states try again! - and when i do try again the connection is open so i can type the correct IP Address and off i go! - Cheers!
modified on Thursday, March 25, 2010 8:52 AM
|
|
|
|
|
The easiest way to achieve that is to press the code block item on the toolbar above the edit box, which gives you this:
<pre></pre>
Make sure you have 'Use HTML in this post' enabled, otherwise the < and > will be escaped.
(You may wish to edit your last post and unselect that option to remove the silly formatting that has happened )
|
|
|
|
|
Hi All,
I have developed a windows application,have a listview in one form...
Given below is the code to bind the listview :-
Dim sqlCmd As SqlCommand = New SqlCommand("Select Query")
Dim myData As SqlDataReader
Dim lvhHelper As ListViewData = New ListViewData()
Try
If _con.State = ConnectionState.Open Then
_con.Close()
End If
_con.Open()
sqlCmd.Connection = _con
myData = sqlCmd.ExecuteReader
lvhHelper.FillListView(LstItems, myData)
_con.Close()
And below is the FillListView Class file
Dim lvwColumn As ColumnHeader
Dim itmListItem As ListViewItem
Dim strTest As String
Dim shtCntr As Short
MyListView.Clear()
For shtCntr = 0 To myData.FieldCount() - 1
lvwColumn = New ColumnHeader()
lvwColumn.Text = myData.GetName(shtCntr)
lvwColumn.Width = "100"
MyListView.Columns.Add(lvwColumn)
Next
'lvwColumn = Nothing
Do While myData.Read
itmListItem = New ListViewItem()
strTest = IIf(myData.IsDBNull(0), "", myData.GetValue(0).ToString)
itmListItem.Text = strTest
For shtCntr = 1 To myData.FieldCount() - 1
If myData.IsDBNull(shtCntr) Then
itmListItem.SubItems.Add("")
Else
itmListItem.SubItems.Add(myData.GetValue(shtCntr).ToString)
End If
Next shtCntr
MyListView.Items.Add(itmListItem)
Loop
by using this codes listview is getting binded very slowly and will be blank hile loading...
is there anything wrong i did in this code?..
any otherway to bind the listview using datareader?..
Thanks in Advance..
|
|
|
|
|
Hi mates,
How would you make a datagridview in multiline column with checkbox and its name. In access its very easy you just put the checkbox with in details but in vb.net. How will i do that? To make it clear. click here[^]>
Another thing, in access when i enter a data in details it will automatically save to my worktable every column. Can i do that in vb.net?
As i know, in vb.net. you will loop the entire grid then save to worktable.
Thanks
C# コードMicrosoft End User
2000-2008
「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」
|
|
|
|
|
このフォーラムはしゃぶられます。
C# コードMicrosoft End User
2000-2008
「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」
|
|
|
|
|
From Google translate:
This forum will suck.
Wow. You didn't even wait 24 hours and you're already bitching that noone helps you. Did you stop to think that the people who saw your post didn't know the answer, so they post a reply? Order that regulars around here weren't available to even see your question?
We answer questions when our time allows, not when you demand an answer.
|
|
|
|
|
sorry for being stupid sometimes. apologize. 
C# コードMicrosoft End User
2000-2008
「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」
|
|
|
|
|
Hey guys, I've been having a hard time trying to figure out why I keep getting this error.
Here is the code:
Private Sub SendEmail(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
Email.To.Add(Settings.txtTo.Text)
Email.From = New MailAddress(Settings.txtFrom.Text)
Email.Body = "Email Body"
Email.Subject = "Email Subject"
SMTPServer.Host = Settings.txtSMTPServer.Text
SMTPServer.Credentials = Authentication
SMTPServer.Send(Email)
End Sub
The error I get is: The parameter 'addresses' cannot be an empty string. Parameter name: addresses
And it's pointing to the Email.To.Add() section.
I thought the code would be pretty simple since I have text boxes in another form and I have linked to them before.
Thanks in advance for the help,
|
|
|
|
|
Sounds like the "txtTo" box is empty. Set a breakpoint on that line and see what Settings.txtTo.Text is set to.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
