Visual Basic

9-Sep-08 9:27

Hello All,
How do I convert the following C# code to VB.net:

( e.State & DrawItemState.Focus ) == 0,
box.CheckState ? CheckBoxState.CheckedNormal :
CheckBoxState.UncheckedNormal )

Thank You.

Wendelius9-Sep-08 9:33

9-Sep-08 9:33

That would be a conditional operort (? Smile | :)

which can be translated to IF ... THEN ... ELSE ...
See ?: Operator (C# Reference)
[^]

Code1089-Sep-08 10:05

9-Sep-08 10:05

Mika,
I understand that it would translate to :

IF e.state & drawitemstate.focus = 0 then
checkboxstate = checkednormal
else
checkboxstate = uncheckednormal

but I need to pass in the checked state as a parameter and it is expecting a statement where I cannot have an IF statement.

Thanks

Wendelius9-Sep-08 10:21

9-Sep-08 10:21

I don't quite follow. I would have believed that e was referring to event arguments passed to an event handler and that State would have been a property for the argument instance.

Or is the problem that in C# & is AND operator and if I remember correctly, in VB & means concatenation?

Code1089-Sep-08 10:37

9-Sep-08 10:37

Mika,
The whole statement in C# is like this:

CheckBoxRenderer.DrawCheckBox(
e.Graphics,
new Point( e.Bounds.X, e.Bounds.Y ),
e.Bounds,
box.Text,
this.Font,
( e.State & DrawItemState.Focus ) == 0,
box.CheckState ? CheckBoxState.CheckedNormal :
CheckBoxState.UncheckedNormal )

Thanks

Wendelius9-Sep-08 10:42

9-Sep-08 10:42

And e is type of what?

Code1089-Sep-08 11:15

9-Sep-08 11:15

ByVal e As DrawItemEventArgs

Wendelius9-Sep-08 11:29

9-Sep-08 11:29

Okay, break the statement into pieces:
- define a variable of type VisualStyles.CheckBoxState
- assign a value to it using If block
- pass the variable to CheckBoxRenderer.DrawCheckBox method as state parameter

Daniel Grunwald10-Sep-08 2:52

Daniel Grunwald

10-Sep-08 2:52

Running this through http://codeconverter.sharpdevelop.net/SnippetConverter.aspx[^] produces:

CheckBoxRenderer.DrawCheckBox(e.Graphics, _
        New Point(e.Bounds.X, e.Bounds.Y), _
        e.Bounds, box.Text, Me.Font, _
       (e.State And DrawItemState.Focus) = 0, _
	If(box.CheckState, CheckBoxState.CheckedNormal, CheckBoxState.UncheckedNormal))

The usage of "If" inside expressions is new in VB9 (VS08), for older versions, use IIf or split it into two statements.

Paul Conrad9-Sep-08 11:50

Paul Conrad

9-Sep-08 11:50

Have you tried looking at code converters through a google search? SharpDevelop had a good one a while back, you may want to look at it.

http://codeconverter.sharpdevelop.net/[^] is the one I used before. It is helpful Smile | :)

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

"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon

"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham

File IO

Hetkeval9-Sep-08 8:58

Hetkeval

9-Sep-08 8:58

I have wrote below code for creating Text file and then after storing line by line value in Text File.

If Not System.IO.File.Exists(strFileName) Then
Dim fs As FileStream = File.Create(strFileName)
fs.Flush()
fs.Close()
End If

Dim ObjFile As StreamWriter
ObjFile = File.AppendText(strFileName)
ObjFile.WriteLine(Now() & "---" & strStatus & "---"&strErrMsg)
ObjFile.Flush()
ObjFile.Close()

My problem is while i am running my autoprocess in server it gives me error like "The process cannot access the file XYZ.txt because it is being used by another process"

What is wrong in this code as i had close file as well object also.

Thanks.

Wendelius9-Sep-08 9:18

9-Sep-08 9:18

First, you can comment out the file creation since it is created if it doesn't exists. After that do you still have the problem?

Mika

Hetkeval9-Sep-08 10:17

Hetkeval

9-Sep-08 10:17

I did not get you but i had change by code with below lines

SWObj = New StreamWriter(strFile, True)
SWObj.WriteLine(rno )
SWObj.Flush()
SWObj.Close()

And i commented lines which creating File.

Thanks

Wendelius9-Sep-08 10:28

9-Sep-08 10:28

What I meant is that the documentation for AppendText says:

Remarks:
This method is equivalent to the StreamWriter(String, Boolean) constructor overload. If the file specified by path does not exist, it is created. If the file does exist, write operations to the StreamWriter append text to the file

So you don't need to create the file. The following code is enough:

Dim ObjFile As StreamWriter
ObjFile = File.AppendText(strFileName) <------- File is created if necessary
ObjFile.WriteLine(Now() & "---" & strStatus & "---"&strErrMsg)
ObjFile.Flush()
ObjFile.Close()

Did this get the problem solved?

Mika

Hetkeval9-Sep-08 11:35

Hetkeval

9-Sep-08 11:35

Yea, Thanks you so much...Appreciate you help..

Wendelius9-Sep-08 11:43

Excel Data to Sql Database

9-Sep-08 11:43

You're welcome

DrukenProgrammer9-Sep-08 8:50

DrukenProgrammer

9-Sep-08 8:50

Hello Experts!!
I am creating 2 datasets after retreiving infromation from excel sheet, now i want to store these datasets in a sql database.

any ideas how to get this done?
Thanks in Advance!!

dan!sh 9-Sep-08 9:07

dan!sh

9-Sep-08 9:07

Anything you tried??

"If you had to identify, in one word, the reason why the human race has not achieved, and never will achieve, its full potential, that word would be 'meetings'." - Dave Barry

DrukenProgrammer9-Sep-08 9:11

DrukenProgrammer

9-Sep-08 9:11

I tried sqlbulkcopy and doesnt look good for me...

Wendelius9-Sep-08 9:21

9-Sep-08 9:21

Perhaps SqlDataAdapter Class[^]

Mika