Visual Basic

31-Oct-07 7:37

For the following lines of VB6 code i get error in vb.net. I am trying to convert the following code to VB.NET.. Can anyone help .Thanks in advance.

Dim FileBuf As String * MSG_DATA_LEN

On Error GoTo OpenFailed
Open sFile For Binary As #1
LSet(FileBuf = sMsgData + MSGDATA_END_MARKER)
Put #1, MSG_DATA_FILE_OFFSET, FileBuf
Close #1
bResult = True
Exit Sub

OpenFailed:
bResult = False
End Sub

--------------------
Errors i got:
'Put' is not declared. File I/O functionality is available in the 'Microsoft.VisualBasic' namespace.
'Open' is not declared. File I/O functionality is available in the 'Microsoft.VisualBasic' namespace.

Re: VB6 YO VB.NET

AliAmjad31-Oct-07 8:03

31-Oct-07 8:03

Forget this old method for File I/O functionality use the new managed classes under System.IO namespace e.g. by using StreamReader you can easily read a file by using the following code:

Try

   Dim Data as String = ""
   Dim sr as new System.IO.StreamReader("FileName")
   Data = sr.ReadToEnd()
   sr.Close()
   Msgbox(Data)

Catch Ex as Exception

   Msgbox(Ex.ToString())

End Try

AliAmjad(MCP)

Re: VB6 YO VB.NET

s3rro31-Oct-07 10:23

Re: VB6 YO VB.NET [modified]

31-Oct-07 10:23

Thanks for your reply,
and what is the equivalence of the following code in vb.net?

Global Const SQL_SUCCESS = 0

thanks

John_Adams1-Nov-07 1:03

John_Adams

1-Nov-07 1:03

Hi,

You can use Public Const SQL_SUCCESS = 0 in VB.Net 2005.
You may put this code in a Module to make it Global to your application.

I hope this helps. Smile | :)

-- modified at 9:02 Thursday 1st November, 2007

Regards,
John Adams
ComponentOne LLC

MSWebDVD

portreathbeach31-Oct-07 6:30

portreathbeach

31-Oct-07 6:30

I am writting a car PC project and have got to the last bit now, the DVD player.

I started using WMP, but it has limited functionality, and I was told to try DirectShow which I didn't understand. SO MSWebDVD was my option, as it seems really easy, apart from one problem I have.

How do you tell MSWebDVD what drive you want to use, it only uses one of my drives. I also want to play movies from my hard disk, but using the code:

MSWebDVD.dvdidrectory = "c:\dvd\video_ts"

only works if there is a DVD in the DVD drive, why is this?

Surely you don't have to have a disk in the DVD drive to enable MSWebDVD to play a DVD folder on the hard disk.

Thanks for any sugestions

Craig

Re: MSWebDVD

Dave Kreskowiak31-Oct-07 6:52

31-Oct-07 6:52

As far as I can tell, it will only work with DVD volumes, not non-DVD drives. That property sets the current video root of a DVD volume, which can have multiple roots in various directories on the disk.

A guide to posting questions on CodeProject[^]

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

Re: MSWebDVD

portreathbeach31-Oct-07 7:34

portreathbeach

31-Oct-07 7:34

But why do you have to have a disk in one of the drives, and with 2 DVD drives, which one is the one that it uses?

DirectShow can be used to play DVDs, can anyone post a small code snippet to get me started, as I don't understand all the filter graph stuff that I was reading on the Microsoft site.

Thanks again

VB6 to VB.NET

s3rro31-Oct-07 5:18

31-Oct-07 5:18

Hi I am converting a project fromVB6 to vb.net the following line gives an error, Can anyone tell me how to fix it?

Private Sub Form_Load()

Load(AccessForm)
Load(LeaveMsgForm)

The error I get is:
'Public Event Load(sender As Object, e As System.EventArgs)' is an event, and cannot be called directly. Use a 'RaiseEvent' statement to raise an event.

Re: VB6 to VB.NET

AliAmjad31-Oct-07 5:24

31-Oct-07 5:24

s3rro wrote:
Private Sub Form_Load()

You have to change its structure like this:

Private Sub Form_Load(sender as Object,e as System.EventArgs) handles MyBase.Load

     'Additional Code here

End Sub

Hope it helps !

AliAmjad(MCP)

Re: VB6 to VB.NET

s3rro31-Oct-07 6:25

Capturing/supressing error message

31-Oct-07 6:25

worked fine, thanks

svanwass31-Oct-07 5:08

31-Oct-07 5:08

I am in the final throws of my development for an app so I have started my testing.

One of my scenarios is a the removal of the SQL Native Client driver (Windows XP). After the uninstall, I attempt to run the app and am always presented with this error message, which is expected as the native client was required.

The problem I have is that I did not write in a message box to display this error!

I've searched through the code to find a rouge msgbox but found nothing that would present this error.

Any suggestions to suppress this so I can present something more friendly?

Here's how i create connection, if needed

<br />
<br />
Try<br />
                Using connection As New OdbcConnection(ConnectionString)<br />
                    Dim command As New OdbcCommand(queryString, connection)<br />
                    connection.Open()<br />
<br />
                    Dim reader As OdbcDataReader = command.ExecuteReader()<br />
<br />
                    While reader.Read()<br />
                        count = reader(0).ToString<br />
                    End While<br />
<br />
                    connection.Close()<br />
                    reader.Close()<br />
                End Using<br />
            Catch ex As Exception<br />
                SQLERROR = True<br />
                WriteErrorLog(ex.ToString)<br />
                Exit Sub<br />
<br />
            End Try<br />

AliAmjad31-Oct-07 5:48

31-Oct-07 5:48

I think this is an unhandled exception error message try to use this code to handle it:

Dim withevents ap as AppDomain

Private Sub ap_UnhandledException(ByVal sender As Object, ByVal e As System.UnhandledExceptionEventArgs) Handles ap.UnhandledException

    'Additional Code

End Sub

hope it helps !

AliAmjad(MCP)

svanwass31-Oct-07 6:38

31-Oct-07 6:38

Exactly what it was! Thanks for letting me know, YTMND!

AliAmjad31-Oct-07 7:01

31-Oct-07 7:01

??? I wasn't letting u know that Its an unhandled exception but rather tried to give you the solution.

AliAmjad(MCP)

Dave Kreskowiak31-Oct-07 6:41

31-Oct-07 6:41

If you're running on SQL Server, why are you bothering with the ODBC provider?? It's slower and doesn't use any features or optimizations that are specific to using SQL Server.

A guide to posting questions on CodeProject[^]

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

svanwass31-Oct-07 9:59

31-Oct-07 9:59

Its the only way i know how to do it programmatically... Sigh | :sigh:

Dave Kreskowiak31-Oct-07 10:13

Upgrading vb.net 2002 to vb.net 2005 [modified]

31-Oct-07 10:13

It's not very different from what you already have. You're just using the OdbcXXX classes instead of the SqlXXXX set of classes.

A guide to posting questions on CodeProject[^]

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

gil_be31-Oct-07 3:57

gil_be

31-Oct-07 3:57

After I finished converting(with visual studio 2005 automatic convertor) a windows application written in vb.net 2002 to vb.net 2005
I recieved few syntax errors that I did not find a sulution for them yet.

The first one is:

The error line - If TypeOf Me.WorkingTable.Column(i).DataType is Boolean Then

The error message- Expression of type 'system.Type' can never be of type 'Boolean'.

finally worked like this:

If Me.WorkingTable.Columns(i).DataType is GetType(Boolean) Then

-- modified at 12:25 Wednesday 31st October, 2007

Returning a filename from command prompt.

Support12331-Oct-07 3:50

Support123

31-Oct-07 3:50

Hi all...

I am using the following code: Shell("cmd.exe /c cscript C:\Projects\TEST\FileMonitor.vbs", AppWinStyle.Hide, True, -1) in vb.net

Now... the FileMonitor.vbs section is a vbscript file that contains code to monitor a folder for any new file creations... when it gets the file i can have cmd prompt display the filepath\filename. Is it possible to send this filename\filepath back to vb.net as i run the Shell("cmd.exe /c cscript C:\Projects\TEST\FileMonitor.vbs", AppWinStyle.Hide, True, -1) in vb.net??? I want add this filename into a variable.

Thank you in advance.

"Many of life's failures are people who did not realize how close they were to success when they gave up." Thomas A. Edison

svanwass31-Oct-07 5:12

31-Oct-07 5:12

Would it be possible to have the VBS write the filepath/filename to a textfile and then just have the VB app read that?

Support12331-Oct-07 5:23

Support123

31-Oct-07 5:23

You are a geniuse... Thank you... i did not think of that Wink | ;)

"Many of life's failures are people who did not realize how close they were to success when they gave up." Thomas A. Edison

svanwass31-Oct-07 5:45

31-Oct-07 5:45

I don't know about genius. I was trying to think of the easiest/laziest way possible Big Grin | :-D

Let me know if you run across any more questions.

Dave Kreskowiak31-Oct-07 6:38

31-Oct-07 6:38

There's several ways of doing this. The 2nd easiest is, like the other person said, to have the script write it to a file.

The 3rd easiest is to rewrite your Shell statement into a .NET Framework Process object and use that to redirect the console output to a stream in your code.

The very easiest way to do this would be to scrap the VBScript part entirely and just use the .NET Frameworks FileSystemWatcher class, which will tell you if a file was created in the folder it's watching and what the new filename is.

A guide to posting questions on CodeProject[^]

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