Visual Basic

Re: Vb.Net App does not allow system to log off when running

30-Aug-07 20:09

Hi All

As my subject suggest i have a vb.net Application. Whilst its running does not allow my computer to logoff. I have tried this on two other machines to no avail. Any suggestions. ??

I didnt include code because I don't think its necessary .

Cheers
Dom

Colin Angus Mackay30-Aug-07 21:31

Colin Angus Mackay

30-Aug-07 21:31

Windows would prefer all applications to end cleanly when it shuts down. It therefore waits until they do so. But after a while it should pop up a dialog asking if you want to "End Now" which forces the application to close.

The application is obviously not responding to the shutdown event. This could be because it is performing an extended operaration without responding to events.

Why type of application is this?

Upcoming FREE developer events:
* Glasgow: Agile in the Enterprise Vs. ISVs, db4o: An Embeddable Database Engine for Object-Oriented Environments, Mock Objects, SQL Server CLR Integration, Reporting Services ...

My website

Re: Vb.Net App does not allow system to log off when running

thedom230-Aug-07 23:22

Re: Vb.Net App does not allow system to log off when running

30-Aug-07 23:22

Hi Colin thats what I thought so something must be wrong.

Its a windows app.

Its starts off with a form starting at runtime named Hidden

here is the code that triggers at load

<br />
Private Sub Hidden_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        xSock.UDP_Listen(10080)<br />
        AddHandler xSock.DataArrival, AddressOf UDPArrival<br />
End Sub<br />

in the above code it calls a class method as below

<br />
Public Shared Function UDP_Listen(ByVal Port As Integer) As Boolean<br />
        Try<br />
            UDP_Server_Port = Port<br />
            UDP_Server = New UdpClient(Port)<br />
            thdUdp = New Thread(AddressOf GetUDPData)<br />
            thdUdp.Start()<br />
        Catch e As Exception<br />
            RaiseEvent Sock_Error(e.ToString)<br />
        End Try<br />
<br />
End Function<br />
<br />
 Private Sub UDPArrival(ByVal vData As String)<br />
        TextBox1.Text = vData<br />
        txtText.Text = vData<br />
        xSock.UDP_Send("127.0.0.1", 10090, vData)<br />
           End Sub<br />

so can you see how i can resolve this issue ?

THanks so far Smile | :)

Tom Deketelaere30-Aug-07 23:48

Tom Deketelaere

30-Aug-07 23:48

you're problem is (I think) you start a new threat but never stop and close it so this thread still exists and on shutdown (of windows) windows does not know what to do with it (I think)

try the following (just a guess)

in the formclosing of you're main form put application.exit this should close all threads at once

or you could just close the thread when it has finished

hope this helps

Re: Vb.Net App does not allow system to log off when running

thedom231-Aug-07 1:05

Re: Vb.Net App does not allow system to log off when running

31-Aug-07 1:05

yep gave it a try but no luck unfortunately

I have a sneeky feeling the form_closing is not firing when i try to exit or lof off..

surely someone knows why my crappy code is not working

thanks anyway TDDragon =)

Colin Angus Mackay31-Aug-07 2:02

Colin Angus Mackay

31-Aug-07 2:02

Is there not an event on the application class that fires when Windows issues a shut down command? (It's been a while and I might be a bit rusty on that)

Re: Vb.Net App does not allow system to log off when running

thedom231-Aug-07 2:08

Re: Vb.Net App does not allow system to log off when running

31-Aug-07 2:08

nothing i can see thats fairly obvious.

anyone else Smile | :)

thanks Colin anyway

Dave Kreskowiak31-Aug-07 3:47

How to Make a folder virtual folder using vb 6.0?

31-Aug-07 3:47

It would appear your UI thread is blocked somewhere, but it's not obvious in the code you've posted. Single step through the execution of your server and watch the code run, line-by-line. If the debugger gets to a statement where it stops and doesn't execute the next line, you've found the block.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

sivaraman_sankaranarayanan30-Aug-07 19:24

sivaraman_sankaranarayanan

30-Aug-07 19:24

I am having a report folder which is based on crystal reports 4.3. I want to make this folder as virtual folder to the people who are all using the application.It's urgent.

Sivaraman.

Re: How to Make a folder virtual folder using vb 6.0?

Dave Kreskowiak31-Aug-07 3:41

Re: How to Make a folder virtual folder using vb 6.0?

31-Aug-07 3:41

What do you by a "virtual folder"??

sivaraman_sankaranarayanan wrote:
It's urgent.

So what? If you want "urgent support", go pay Microsoft for it.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Paul Conrad23-Dec-07 15:04

Paul Conrad

23-Dec-07 15:04

sivaraman_sankaranarayanan wrote:
It's urgent.

How rude and makes people less inclined to help.

"The clue train passed his station without stopping." - John Simmons / outlaw programmer

Selecting next row in datagrid

jensenx30-Aug-07 18:11

jensenx

30-Aug-07 18:11

Hello guys, im having trouble to write the code to select the next row in the datagrid.

Looked around and found this but it doesnt work;

datagrid.Select(1)

fyi: im on vb .net 2005 sp1

thanks in advance!

Re: Selecting next row in datagrid

Naji El Kotob30-Aug-07 21:51

Naji El Kotob

30-Aug-07 21:51

Hi,

Try this Me.BindingContext.Item(dg.DataSource, dg.DataMember).Position += 1

*dg = DataGrid

hope this helps Smile | :)

NajiCo http://www.InsideVB.NET[^]

It's nice 2b important, but it's more important 2b nice...

editing cells in a datagridview

steve_rm30-Aug-07 16:33

steve_rm

30-Aug-07 16:33

Hello,

VS 2005

I have a datagridview (order details) that is bound to a combo box (orders). Both controls are bounded using the bindingsource (bsOrders, bsOrderDetails)

The user will select a order from the combo box, and all the order details will be displayed in the datagridview.

The problem I am having, is that the user can edit the cells in the dgv, when they select another order from the combo box, those edits will disappear when they select that order again.

I don't want the cell changes to be commited to the database, only that they stay in the cell when the user selects from the combo box.

I have tried using the dgv.EndEdit() in the selectChangedCommitted event of the combo box. But this doesn't seem to have worked.

Many thanks for any suggestions,

Steve

VB6 HTML elements offsetParent recursive problem

eugeugeug12330-Aug-07 14:02

eugeugeug123

30-Aug-07 14:02

VB6 HTML elements offsetParent recursive problem
How to recursively go through all parent elements of the current element on html page?
I do this and get error Frown | :(

While (TypeOf elem Is IHTMLElement)
parentall = "-Parent Tag=" & elem.offsetParent.tagName & _
elem.id & ",l=" & elem.offsetLeft & ";t=" & elem.offsetTop & _
Set elem = elem.offsetParent
Wend

Re: VB6 HTML elements offsetParent recursive problem

Dave Kreskowiak31-Aug-07 3:38

VB.NET Access DB DataSet problem

31-Aug-07 3:38

This code snippet doesn't call itself, so how is this recursive?? This is just enumerating the elements at a single level. Perhaps a bigger snippet would help?? One that shows the rest of the code this snippet shows up in.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

culbysl30-Aug-07 13:40

culbysl

30-Aug-07 13:40

I have dropped all my emails into an access database, and now building a vb.NET windows app to query to return needed email bodies. The application runs through the database dataset function and returns 0 rows. I console.writeline the connection string and SQL statement and am able to pull records from the database. I can't see what I have wrong in the code. The function hitting the database is listed below. Please any help would be a really great thing. Thanks in advance.

Public Function GetSelectAnd2Records(ByVal strTableName, ByVal strCriteria1, ByVal strCriteria3) As DataSet
Dim ds As New DataSet
Dim strSQL As String
Dim dbConn As New OleDbConnection
dbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\NovaEmailKB\KNOWLEDGE BASE SSC.mdb;"

strCriteria1 = "*" & strCriteria1 & "*"
strCriteria3 = "*" & strCriteria3 & "*"

strSQL = "SELECT [ID], [Subject], [Body], [Received], [From] " & _
"FROM " & strTableName & " " & _
"WHERE (((Body) Like """ & strCriteria1 & """ And (Terminals.Body) Like """ & strCriteria3 & """)) " & _
"ORDER BY Received DESC; "

Dim cn As New OleDbConnection(dbConn.ConnectionString)
Dim cmd As New OleDbCommand(strSQL, cn)
Dim da As New OleDbDataAdapter(cmd)

Console.WriteLine(dbConn.ConnectionString)
Console.WriteLine(strSQL)

Try
cn.Open()

Console.WriteLine(cn.State)

cmd.Connection = cn
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()

da.Fill(ds, "SelectAnd2Rtn")

If cn.State = ConnectionState.Open Then
cn.Close()
End If

cn.Dispose()
cn = Nothing
da.Dispose()
da = Nothing

Catch ex As Exception
MsgBox("An unexpected MS Access error has occured: " & ex.Message)

If cn.State = ConnectionState.Open Then
cn.Close()
End If

cn.Dispose()
cn = Nothing
da.Dispose()
da = Nothing

Return Nothing

Exit Function

End Try

Return ds

End Function

Dave Kreskowiak31-Aug-07 3:33

31-Aug-07 3:33

I'd start by picking a single method to fill a dataset and sticking with it. You've got two different methods in here. And I detest using string concatentation to build an SQL statement. Simplify it!

Public Function GetSelectAnd2Records(ByVal strTableName, ByVal strCriteria1, ByVal strCriteria3) As DataSet
    ' Are you sure Access uses asterisks as wildcards???
    ' I don't know because I don't use Access anymore...
    strCriteria1 = "*" & strCriteria1 & "*"
    strCriteria3 = "*" & strCriteria3 & "*"
 
    Dim strSQL As String = String.Format("SELECT [ID], [Subject], [Body], [Received], [From] " & _
            "FROM {0} WHERE [Body) Like ""{1}"" And (Terminals.Body) Like ""{2}""" & _
            "ORDER BY Received DESC", strTableName, strCriteria1, strCriteria3)
 
    Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\NovaEmailKB\KNOWLEDGE BASE SSC.mdb;")
    Dim comm As New OleDbCommand(strSQL, conn)
 
    Console.WriteLine(strSQL)
 
    Try
        Using da As OleDbDataAdapter = New OleDbDataAdapter(comm)
            da.Fill(ds)
        End Using
    Catch ex As Exception
        MsgBox("An unexpected MS Access error has occured: " & ex.Message)
    End Try

    Return ds
End Function

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

culbysl31-Aug-07 11:52

culbysl

31-Aug-07 11:52

Thanks so much for the advise, however using your code for the function I am still returning 0 rows. When I put the query directly into Access I return 8 rows. Again thanks so much for your thought and advise, I'll keep plugging along.

Dave Kreskowiak1-Sep-07 4:15

1-Sep-07 4:15

It's not obvious in the code. Either the query string your using directly in Access is different than the one generated by the code or the table name your passing in is different, or the database the app is using is different from the one your direct query is using.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007