Jump to content
Xtreme .Net Talk

Recommended Posts

Posted

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

Dim myarray() As Byte

'UPGRADE_WARNING: Couldn't resolve default property of object LoadResData(). Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

myarray = VB6.LoadResData("MUSIC", "MUSIC")

FileOpen(1, VB6.GetPath & "\music.wav", OpenMode.Binary, OpenAccess.Write)

'UPGRADE_WARNING: Put was upgraded to FilePut and has a new behavior. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1041"'

FilePut(1, myarray)

FileClose(1)

 

 

MediaPlayer1.Open((VB6.GetPath & "\music.wav"))

 

 

End Sub

 

 

 

This is the code it spat out at me when i tried to convert it from vb6 to vb.net not so much harder. Was wondering what i could use instead of the vb6 commands

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...