Visual Basic Discussion Boards

I just answered another question from you. What frustrates me is people who are not willing to buy books, or to search for their own info, before asking the most trivial questions. Not because I mind helping, but becasue you will never learn that way.

Christian Graus

Please read this if you don't understand the answer I've given you

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

I am using a queue of objects (workitem) to feed a thread for processing.

Public Class WorkItem<br />
Public mvDependancyGroup As String = ""<br />
Public mvStoreOutput As Boolean = False<br />
Public mvName As String = ""<br />
Public mvMethod As [Delegate] = Nothing<br />
<b>Public mvInput As Object() = Nothing</b><br />
Public mvOutput As Object = Nothing<br />
Public mvException As Exception = Nothing<br />
Public mvInQ As DateTime = Nothing<br />
Public mvStarted As DateTime = Nothing<br />
Public mvCompleted As DateTime = Nothing<br />

This works fine except for the mvInput (the array of objects representing the parameters to be passed to the delegate function). When I get a copy of the queue into an array of objects using the following code all the mvInput objects are the same values.

	Public Function GetInQueue() As WorkItem()<br />
			Dim oWI As WorkItem<br />
			Monitor.Enter(oInQ)<br />
			Dim arWI() As Object = oInQ.ToArray<br />
			Monitor.Exit(oInQ)<br />
			Dim arResult(arWI.Length - 1) As WorkItem<br />
			For i As Integer = 0 To arWI.Length - 1<br />
				oWI = CType(arWI(i), WorkItem)<br />
				arResult(i) = oWI<br />
			Next<br />
			Return arResult<br />
<br />
	End Function<br />

I'm pretty sure I am not the first to do this so:
Am I using oInQ.Array incorrectly?
Is there some magic I have missed?

The obvious work around is to turn mvInput into a delimited string which I will do if I cannot get a better resolution.

OR
Does this qualify as a Subtle Bug (like a flaming brick)

TIA

Never underestimate the power of human stupidity
RAH

Use a List instead, they are far easier to manage tan an array

Christian Graus

Please read this if you don't understand the answer I've given you

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

The problem is caused when loading the array of objects for each WorkItem.
The array must be created inside the loop Blush | :O

For Each oItem As ListViewItem In lvData.Items<br />
	oWI = New WorkItem

<<<< This must be inside the for next loop

<br />
	Dim arList(2) As Object

<<<< This must be inside the for next loop

<br />
	arList(0) = oItem.SubItems(1).Text<br />
	arList(1) = oItem.SubItems(2).Text<br />
	arList(2) = oItem.SubItems(3).Text<br />
	oWI.sLabel = oItem.Text<br />
	oWI.oList = arList<br />
	oInQ.Enqueue(oWI)<br />
Next

Hello Guys Im new to VB.NET.I want to send Extended ASCII values through serial port.The values i want to send from serial port are 0A5 0F0 0A6(in decimal 165 240 166)in hexa decimal with 10 milli seconds delay among every byte.I m really struggling to send this.But when i saw this data through hyperterminal i m getting "?"
charecters and some times junk values.Kindly please help me.I m really thankful to u.
code i have written is

Private Sub ReadVI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReadVI.Click
Start(0) = 165
VI(0) = 240
Endd(0) = 166
If SerialPort.IsOpen = True Then
Delay = CInt(txtDelayinms.Text)
rtbDisplay.SelectionColor = Color.Blue
rtbDisplay.AppendText(vbCrLf & "Reading Phase Voltages & Currents :")
rtbDisplay.ScrollToCaret()
SerialPort.Encoding = Encoding.ASCII
SerialPort.Write(Start, 0, 1)
'SerialPort.Write(Convert.ToChar(165))
SerialPort.BaseStream.Flush()
Thread.Sleep(Delay)
SerialPort.Write(VI, Offset, Count)
'SerialPort.Write(Convert.ToChar(240))
SerialPort.BaseStream.Flush()
Thread.Sleep(Delay)
SerialPort.Write(Endd, Offset, Count)
'SerialPort.Write(Convert.ToChar(166))
SerialPort.BaseStream.Flush()
Thread.Sleep(Delay)
Else
MsgBox("Connection Not Established", MsgBoxStyle.Critical, "Message")
End If
End Sub

http://www.codeproject.com/script/Forums/View.aspx?fid=1646&fr=301#xx0xx[^]

Rajesh B --> A Poor Workman Blames His Tools <--

Hi all,
I m using crystal report in VB.net 2005(inbuild crtool) Application using Stored Procedure, I face problem when my server's IP Address or Name or Port get changed, It demands for Password and even after filling that it is not working.
I want to solve this porblem, If any boddy help me out I ll be thankful.

Hi,

I am using code behind aspx.cs

c#:
if (Request.Browser.Cookies)

lblBrowser.Text = "<b>Cookie Enabled</b>";

else

lblBrowser.Text = "<b>Cookie Disabled</b>";

Problem:
-I am using IE7 and from tools>Internet Option>privacy
-I am selecting Block All Cookies
-when again I am tring to run my code it showing cookie Eanbled.

Can U solve this problem or give me some relative code.

Thanks
Ashish

This is the wrong forum. This is the VB.NET forum, you want the ASP.NET forum. You're not even using VB.NET for your code behind Confused | :confused:

Christian Graus

Please read this if you don't understand the answer I've given you

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

I have a small application that I am running in the system tray using the NotifyIcon control. That functionality is working well. The form is set to Minimize initially and shown when the user clicks the tray icon. The problem is where the form displays. I want it to display in the lower right corner of the screen right above the system tray. Here is the code used to display the form:

Private Sub frmMain_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Me.SetDesktopLocation(My.Computer.Screen.WorkingArea.Width - Me.Width, My.Computer.Screen.WorkingArea.Height - Me.Height)
End Sub

I have also tried:
Me.Left = SystemInformation.WorkingArea.Width - Me.Width
Me.Top = SystemInformation.WorkingArea.Height - Me.Height

I have tried both sets of code in both Activate and Form Load. Because of the "start minimized" nature of the app, initially both result in a Top and Left of -32000 because the form is not technically shown. At least that's my take.

It's only off by half the form the FIRST time the form is shown and then it jumps to where I want it to be from then on. I've tried to show the form, then quickly hide it but this seems ridiculous.

Does anyone have any suggestions?

Thanks, Joe

Screens.PrimaryScreen might be what you need.

Christian Graus

Please read this if you don't understand the answer I've given you

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

I am correctly reading the size of the screen (only one in play, here). The actual assignment fails on initial load due to the minimized nature of the app. Once the form is fully shown, the properties are set correctly and, after that, it displays in the correct location.

Joe

Joe Surls wrote:
Once the form is fully shown, the properties are set correctly and, after that, it displays in the correct location.

Can't you just set the form's Visible property to False, then "show" it as you do now, and finally set the Visible property to True?

Ask not whether it is useful. Ask what it is useful for.

i want to know what did i need to start make a web base application in vb net, i hope someone can help me..

Use ASP.NET (Visual Web Developer 2008) from microsoft.

Lloyd J. Atkinson

"Logic will get you from A to B, but imagination will take you everywhere" - ALbert Einstein

I look at Microsoft, and turn to my poster on the wall saying: "Bang head here in case of stress".

Probably the ability to use google would help.

There's a free IDE, the Visual Studio Express Edition for Web Developers, or something. It does ASP.NET.

Christian Graus

Please read this if you don't understand the answer I've given you

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

Is there anybody there have an idea to resolve this vb to crystalreport XI connection problem...
Im using VS2005 VB and MS ACCESS '07 and Crystal Report XI R2

Here's my code
******************

<br />
Private Sub myReportForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        Try<br />
            ChildFormAutoSizeFit(Me)<br />
            Me.Cursor = Cursors.WaitCursor<br />
            Me.MdiParent = frmMain<br />
<br />
            crxApp = New CRAXDRT.Application<br />
<br />
            crxReport = crxApp.OpenReport(strCRSourcePath, CrystalDecisions.Shared.OpenReportMethod.OpenReportByDefault)<br />
<br />
            crxDataBase = crxReport.Database<br />
            crxTables = crxDataBase.Tables<br />
<br />
            For Each crxTable In crxTables<br />
                crxTable.Location = DataSource 'My .mdb source path<br />
                crxTable.SetLogOnInfo("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & crxDataBasePath, "myDatabase.mdb", "", "myPassword")<br />
            Next crxTable<br />
<br />
'**** Note:<br />
  'When ever i used this recordSelectionFormula? it works properly<br />
  'and it get connected and show the report but then this<br />
  'recordSelectionFormula is something limited for filtering data thats<br />
  'why i need to use more flexible filter like CRXDRT.Report.SqlQueryString<br />
  'but then my problem is the login connection from the database is somewhat failed...<br />
'****<br />
<br />
            'this RecordSelectionFormula works<br />
            'crxReport.RecordSelectionFormula = strSelectionfrm<br />
<br />
            'this SQLQueryString failed.. why?? what's the different?<br />
            crxReport.SQLQueryString = strSqlQuery<br />
<br />
            AxCRViewer1.ReportSource = crxReport<br />
            AxCRViewer1.ViewReport()<br />
<br />
        Catch ex As Exception<br />
            MsgBox(ex.ToString())<br />
        Finally<br />
            Me.Cursor = Cursors.Default<br />
        End Try<br />
    End Sub<br />
<br />

************

here's my "strSelectionfrm"
***************

<br />
strSelectionfrm = "{CmpnyDetails.IDNo} like '*' and {tblCompanyDetails.Status} = 'REGULAR' and {Attendance.AFrom} in #" & Format(DatePickerFrom.Value, "MM/dd/yyyy") & "# to #" & Format(DatePickerTo.Value, "MM/dd/yyyy") & "#"<br />

*****************

and here's my "strSqlQuery"
*************

<br />
strfilter = "Select * from CmpnyDetails as cd left outer join Attendance as att on att.IDNo = cd.IDNo where (att.AFrom Between #" & Format(DatePickerFrom.Value, "MM/dd/yyyy") & "# and #" & Format(DatePickerTo.Value, "MM/dd/yyyy") & "#) and cd.[Status] = 'REGULAR' and cd.IDNo like '*'"<br />

*****************

Please anybody can help or any idea with this?...
Please????...
a lot of appreciation in advance....
Thanks....

Hi guys i was wondering if anyone ran across any ID3v2 tags where the id3v2 tag, and the frame size's weren't sync byte together. I seem to be having a problem with this. thanks.

Hi
I'd like to use a multiline text box for my users to input a string (with new lines) so that it can be passed to a string variable as the body of an email.

As I thought simply setting the string variable to the .text property of the text box does not keep the newlines but I'm unsure how to proceed.

Any advice on how best to achieve would be gratefully received.

Thanks
Smile | :)

If the user just types and types, never hitting ENTER, then there are no newlines, even if there appears to be because the textbox automatically wraps overflow text from one line to the next. This does NOT insert newline characters. The user would have to hit enter at the end of every new line where you wanted them to place line breaks.

A guide to posting questions on CodeProject[^]

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

Hi,

set TextBox.WordWrap false to force your users to actually hit the enter key
when reaching the right margin. You will loose the automatic wrap feature, but
now the TextBox.Text is what you want it to be.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

This month's tips:
- before you ask a question here, search CodeProject, then Google;
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get;
- use PRE tags to preserve formatting when showing multi-line code snippets.

Hi, I have a security program that, when opened, waits 1 min. before opening the password prompt box. When the password is entered correctly a msgbox opens up saying "Would you like to re-enable this security program?" This msg box has "Yes" or "No" MsgBoxResult option. I need help for the "Yes" part. When the user presses yes, I would like the program be what it was like right after the program was opened.

OK, you've got two options. Either launch a new copy of your program, closing the existing copy after the launch, or, you write your code so that there is a method that resets all of your controls and variables to their starting values. There is no single command that's going to do this for you.

A guide to posting questions on CodeProject[^]

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

Hi,

you could try and create a main form that remains invisible, and basically contains a loop
in which you instantiate and show a second form (your current initial form) until your
MsgBoxResult says "No".

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

This month's tips:
- before you ask a question here, search CodeProject, then Google;
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get;
- use PRE tags to preserve formatting when showing multi-line code snippets.

Does anyone know how to redirect to a specific file. when i use response.redirect("default.aspx") it looks in the current folder. How do i redirect to a file in a different folder. I have tried the file location ("c:\websites\default.aspx")but does not work.

many thanks