|
Have a look at this link[^] it might help.
Failing that, Google is your friend
|
|
|
|
|
Thank you for your effort.
and I found a program that do what I exactly needed.
it's CheVolume, which determines each application to playback on either device.
|
|
|
|
|
I'm new to await, and have always had trouble understanding it. Like I make an await function, and then VS 2013 Tells me to make the calling function await, and just keeps moving up the chain.
So this time I did some research on it.
http://stackoverflow.com/questions/14888984/start-async-task-without-using-await-in-called-method[^]
In the link above, there's 2 examples, and I found the 2nd one easier to understand.
But I'm wondering if I should use example 1 instead. What do you think?
Here's what I have. i'd like to be able to check on the status, and have it update the form with emails sent and status, if it's still running and complete, so I can change the form color back. Not sure if I'm on the right track, and wanted to check before I write more code. But so far so good, it works.
Public Enum _smtpEngine_Status
STOPPED = 1
START_PENDING = 2
STOP_PENDING = 3
RUNNING = 4
CONTINUE_PENDING = 5
PAUSE_PENDING = 6
PAUSED = 7
COMPLETE = 8
EMPTY = 9
End Enum
Public Class smtp_send_engine
'<a href="http://stackoverflow.com/questions/14888984/start-async-task-without-using-await-in-called-method">http://stackoverflow.com/questions/14888984/start-async-task-without-using-await-in-called-method</a>
Public Shared engineTask As Task
Public Shared Function engineStart( _
ByVal pSend As frmSend,
ByVal pJobID As Integer,
ByVal pPageIndex As Integer,
ByVal pPageSize As Integer) As _smtpEngine_Status
Dim pValue As _smtpEngine_Status = _smtpEngine_Status.START_PENDING
'No need for sub to be async but can be async if needed for other reasons (see below)
'but that doesn't stop the execution in the CallingSub
'Get the task started... it's not going to wait for the task to be done just sets the task variable
engineTask = engineRun( _
pSend,
pJobID,
pPageIndex,
pPageSize
)
Return pValue
End Function
Public Shared Async Sub engineStatus()
'Must be async so you can await the result
Await engineTask
'Do stuff that requires task to be done
End Sub
Private Shared Async Function engineRun( _
ByVal pSend As frmSend,
ByVal pJobID As Integer,
ByVal pPageIndex As Integer,
ByVal pPageSize As Integer) As Task(Of _smtpEngine_Status)
'No need for this function to be async since the function has no await
Dim pValue As _smtpEngine_Status = _smtpEngine_Status.START_PENDING
Dim responseCount As New crm.ws_sendEngine_subscribersCount_response
Dim dwXCode As Integer = request_sendEngine_Count.get_Subscriber_Count(responseCount)
If Not (responseCount.count > 0) Then
Return _smtpEngine_Status.EMPTY
Exit Function
Else
Await Task.Delay(30000)
pValue = _smtpEngine_Status.COMPLETE
End If
Return pValue
End Function
End Class
|
|
|
|
|
The problem with asking for an opinion is that you will probably get conflicting responses. You also have no means of determining whose response is "best" for you (lots of reputation points is no indicator of expertise in any one particular subject!)
Try them both out and see which is more appropriate to your own circumstances ... you've said you are new to the subject, so how better to learn and retain than to write that code?
One general comment that I've seen to be true more times than I care to admit - if it's simple to understand now then it will be simple to understand when you have to come back to the code days, months, years later ... this is a Good Thing.
Alternatively, ask the opinions of the posters on that other forum where you got the examples.
|
|
|
|
|
I had a really hard time getting the 2nd one to work, but it works good. So I guess I'll stick with it. And I have a better understanding of await now as well.
|
|
|
|
|
|
This was a head scratcher for me, first time I have used await. Before I was using new Thread.
Not sure what the difference is, guess I should do a search on it. But It seems to work fine so far, I still need to plugin the SMTP Message Sender, which is new Thread. Maybe I should update it to await.
I'm not sure what to do with the EngineStatus, I'd like to get the status of EngineRunAsync.
The calling function that returns from the dialog result OK or Send, and raises an event to update the form to RED color so the user knows it's running.
So this time VS 2013 did not bug me to use Await, and just the one call was fine.
Dim m_status As _smtpEngine_Status = Await smtp_send_engine.engineStart(Me, gJobID, gJobIndex, gJobSize)
RaiseEvent SendEngineStatus(m_status, "COMPLETED", gJobID)
Update_SendEngine_Status("Send Engine has completed successfully", _smtpEngine_Status.COMPLETE, gJobID)
My Class that runs in await.
Public Enum _smtpEngine_Status
STOPPED = 1
START_PENDING = 2
STOP_PENDING = 3
RUNNING = 4
CONTINUE_PENDING = 5
PAUSE_PENDING = 6
PAUSED = 7
COMPLETE = 8
EMPTY = 9
End Enum
Public Class smtp_send_engine
Public Shared engineTask As Task(Of _smtpEngine_Status)
Public Shared Async Function engineStart( _
ByVal pSend As frmSend,
ByVal pJobID As Integer,
ByVal pPageIndex As Integer,
ByVal pPageSize As Integer) As Task(Of _smtpEngine_Status)
engineTask = engineRunAsync(pSend, pJobID, pPageIndex, pPageSize)
Dim pValue As String = Await engineTask
pValue = _smtpEngine_Status.COMPLETE
Return pValue
End Function
Public Shared Async Sub engineStatus()
Await engineTask
End Sub
Private Shared Async Function engineRunAsync( _
ByVal pSend As frmSend,
ByVal pJobID As Integer,
ByVal pPageIndex As Integer,
ByVal pPageSize As Integer) As Task(Of _smtpEngine_Status)
For idx As Integer = 0 To m_pages - 1
For jdx As Integer = 0 To 25 - 1
Await Task.Delay(2500)
m_sent += 1
m_remaining -= 1
Application.DoEvents()
Next
Next
pValue = _smtpEngine_Status.COMPLETE
return pValue
End Sub
|
|
|
|
|
I am using LINQ to group by however after group By I need to create a new table with data...
I am using Dataview to get all data
Dim vDependent As DataView = myDataTable.DefaultView
vDependent.RowFilter = "EEGRP ='" & item.EEGRP & "' AND EESSN ='" & item.EESSN & "'"
Is there is a better way to do this?
Dim data = myDataTable.AsEnumerable().GroupBy(Function(r) New With {Key .EEGRP = r.Field(Of String)("EEGRP"), Key .EESSN = r.Field(Of String)("EESSN"), _ Key .DEDENF = r.Field(Of String)("DEDENF"), Key .DEDENM = r.Field(Of String)("DEDENM"), _
Key .DEDREL = r.Field(Of String)("DEDREL")},
Function(key, rows) New With
{
Key .EEGRP = key.EEGRP,
Key .EESSN = key.EESSN,
Key .DEDENF = key.DEDENF,
Key .DEDENM = key.DEDENM,
Key .DEDREL = key.DEDREL,
.Dates = rows.Select(Function(r) DateFromStringParts( _
r.Field(Of String)("DEIBCY"), _
r.Field(Of String)("DEIBYR"), _
r.Field(Of String)("DEIBMT"), _
r.Field(Of String)("DEIBDY"))).OrderByDescending(Function(d) d).Take(3).ToList()}
)
Dim result As New DataTable
result = myDataTable.Clone()
For Each item In data
Dim vDependent As DataView = myDataTable.DefaultView
vDependent.RowFilter = "EEGRP ='" & item.EEGRP & "' AND EESSN ='" & item.EESSN & "'"
Dim newRow As DataRow = result.NewRow()
newRow("EEGRP") = vDependent(0)("EEGRP")...
|
|
|
|
|
I downloaded this source from code Project because I needed an HTML Editor.
I was just wondering if you gius think I should build this as a seperate project, and add it to my project?
So I would build it, and then add it to my toolbox, and drop the control onto my form.
A Windows Forms based text editor with HTML output[^]
|
|
|
|
|
It says, in the article:
To embed it into your own app, simply reference the EXE as if it were a DLL from your app in Visual Studio.
It should show up in the Toolbox Window in Visual Studio.
Check the source code for examples of how to access it from your code.
|
|
|
|
|
I should of read the whole article, how stupid of me.
|
|
|
|
|
It often helps, yes.... on the same principle, I remember my math teacher at school used to drum it into our heads over and over: "Read the question at least three times before even attempting to answer it. And if you get stuck, read it again." Nowadays, this is encapsulated in the acronym "RTFM". The answer is, as they say, (usually) out there. 
|
|
|
|
|
I need to implement that rule again.
Well, at least I translated the project to VB and got it to work, plus upgraded it to 4.51. Just need to fix the little errors and fine tune it for my needs. Pretty neat how it works.
|
|
|
|
|
I am reposting my problem hopefully a bit more specific for you guys!
The program I am writing uses various labels which retrieves data from Microsoft Access.
I use the following code to print a specific label:
e.Graphics.DrawString(lblMethod.Text, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 10, 420)
Although this works fine and prints but this particular label text has a lots of text and therefore does not wordwrap as such.
How can I get this label to wordwrap automatically?
|
|
|
|
|
You're not printing a label. You're printing text. Also, your code leaks resources since you're not disposing the Font object you created.
There's plenty of examples on then web. All you have to do is Google for "vb.net print string to printer with word wrap[^]".
|
|
|
|
|
HI,
i need to write a procedure to send a file by ftp or tcp from a Datalogic mobile device to a PC in the same LAN.
The mobile device has a SO win CE 5.0 and is connected to the switch by wireless connection.
I tryed using VB 2005 to create a connection but nothing seems working.
Does anybody have an idea about how to send files from win ce to a pc using VB?
Thanks.
|
|
|
|
|
|
I am trying to use linq...however running into the issue...
how to I combine 3 fileds to Date?
.Dates = rows.Select(Function(r) r.Field(Of DateTime?)("DEIBMT") & "/" & ("DEIBDY") & "/" & ("DEIBCY") & ("DEIBYR"))
Dim data = myDataTable.AsEnumerable().GroupBy(Function(r) New With {Key .EEGRP = r.Field(Of String)("EEGRP"), Key .EESSN = r.Field(Of String)("EESSN")},
Function(key, rows) New With
{
Key .EEGRP = key.EEGRP,
Key .EESSN = key.EESSN,
.Dates = rows.Select(Function(r) _
r.Field(Of String)("DEIBMT")) _
.OrderByDescending(Function(d) d).Take(3).ToList()}
)
|
|
|
|
|
It depends what type your columns are. Assuming integers, something like this should work:
.Dates = rows.Select(Function(r) New DateTime( _
(100 * r.Field(Of Integer)("DEIBCY")) + r.Field(Of Integer)("DEIBYR"), _
r.Field(Of Integer)("DEIBMT"), _
r.Field(Of Integer)("DEIBDY")))
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
All columns string... could you show me how I should do this with strings?
|
|
|
|
|
String representations of integers, or something else?
If it's integers, then Integer.TryParse will work:
Private Shared Function DateFromStringParts(ByVal century As String, ByVal year As String, ByVal month As String, ByVal day As String) As DateTime?
Dim cy, yr, mt, dy As Integer
If Not Integer.TryParse(century, cy) Then Return Nothing
If Not Integer.TryParse(year, yr) Then Return Nothing
If Not Integer.TryParse(month, mt) Then Return Nothing
If Not Integer.TryParse(day, dy) Then Return Nothing
Return New DateTime((100 * cy) + yr, mt, dy)
End Function
...
.Dates = rows.Select(Function(r) DateFromStringParts( _
r.Field(Of String)("DEIBCY"), _
r.Field(Of String)("DEIBYR"), _
r.Field(Of String)("DEIBMT"), _
r.Field(Of String)("DEIBDY")))
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
nice !! 
|
|
|
|
|
I have a ListView control inside my system where its content display different information based on different Button control. And information will only be displayed if the user have the right to view the information. This is filtered when they login into the system. So for example, the user is a student and he can only view information from Button1.Text, Button2.Text, Button5.Text and the rest button will result blank in ListView1.Text (because as I mentioned, they have no right to view certain information). So I want those button that isn't showing any information to become invisible.
The code that I currently use
If ListView1.Items.Count > 0 Then
For Each controls As Control In Panel1.Controls
If TypeOf controls Is Button Then
DirectCast(controls, Button).Visible = False
End If
Next
End If
But if I use this code, the whole Button will become invisible because all Buttons refer to the same ListView control. So how would I code it to make the ListView1.Text be able to recognize which Button it belonged to and make them invisible?
|
|
|
|
|
You should make this decision when the user logs on. Based on the status you just show the buttons that are relevant to that user. They can then click any that are visible to get the ListView populated.
|
|
|
|
|
Hello guys, I have created a simple VB.net program (windows form application) and everything is working fine. But I want my program be able to copy itself to the desktop when user launch it for the first time. And this copying process should be done silently without showing to user. How to do that? Thank you.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
