You got that right, but unfortunately those days are gone, over here in the US, unemployment is running rampant. The programming field has been decimated by outsourcing. H1 Visa's get what jobs are left. The government has declared war on the citizens, stealing everything we got & giving it away to their cronies who will give some of it back to them by way of speaker fees, campaign contributions, and graft of all sorts. Our Constitution has been totally trashed by an imaginary war on terror as if we didn't know who is really behind it. Sex?, Drugs?, Rock & Roll?, Sleep? All of those things a dim memory of days long gone. Hope things are better where your at. Enjoy it while you can. The New World Order is comming.... Thanks again for your support Stu. "Truth is treason in the Empire of Lies."

It seems that I need quotes around the XML. Let me try that again. "' '"

Yes my manifests seen a little more complicated. But I am glad to inform you that I have resolved the issue. Like usual it was me. When you work very late into the night strange things happen, specially when there is a full moon. I usually quit when the computer gives a loud beep in response to some error & it scares me out of my chair mumbling something like 'What the *)%(&^^ was that?'. below is a piece of my manifest. Its a pretty long manifest - would take 2 to 3 pages to print out. The correct node to search for is assemblyIdentity not entry point. Both my raw code and your error trapped code works correctly when given the right value. I have finished my routines and it works like a dream, a seamless, silent, transparent check of the version & then download if necessary of a new exe and kick off. User never sees a thing. It reverts back to the old exe if it fails at any point. Its nice now, all I have to do is compile, nothing else is required, I don't have to make any files set any flags etc. I do have another issue though. It seems like I got myself into some kind of debug/Edit purgatory where I can't edit in the debug mode. It started when I put some values in the debug properties window for testing my command line functions. I get cute little padlocks on my code page tab and a error that says 'Changes are not allowed when the debugger has been attached to an already running

I am just trying to get the version value from a manifest file that was created by a build/compile. The file can be found in any applications \bin\Release\ServiceInvoice.exe.manifest folder. I am writing my own Application updater. I want my apps to be under easily accessible under the 'program files' directory so click-once publish is not an option. I have written a small routine that downloads the manifest from my \bin\Release folder (which is a virtual dir under my IIS) and then extracts the version via the routine (GetManifestVer) that we are discussing. compares it with its own version and makes a decision to download the 'exe' or not. Enclosed is the code, it is very raw and once working I will stick in more parameters and error trapping before it is done. But it will go something like this . Private Sub UpdateApp() Dim MVer As String = "" Dim AVer() As String = Split(My.Application.Info.Version.ToString, ".", True) Dim AName As String = My.Application.Info.AssemblyName Dim LocalPath As String = My.Application.Info.DirectoryPath Dim LocalApp As String = LocalPath & "\" & AName & ".exe" Dim RemoteApp As String = "http://Stu-Laptop/IMS/" & AName & "/" & AName & ".exe" Dim RemoteManifestFile As String = "http://Stu-Laptop/IMS/" & AName & "/" & AName & ".exe.manifest" Dim LocalManifestFile As String = My.Application.Info.DirectoryPath & "\Manifest.xml" Dim xmlr As XmlTextReader Dim WebConnection As New WebClient() Dim CurV() As String Try If File.Exists(LocalManifestFile) Then File.Delete(LocalManifestFile) WebConnection.DownloadFile(RemoteManifestFile, LocalManifestFile) Catch ex As Exception MsgBox("Error retrieving web file", ex.Message) Exit Sub End Try xmlr = New XmlTextReader(LocalManifestFile) While Not xmlr.EOF xmlr.Read() If xmlr.Name = "entryPoint" Then If xmlr.IsStartElement Then MVer = xmlr.GetAttribute("version") Exit While End If End If End While xmlr.Close() If File.Exists(LocalManifestFile) Then File.Delete(LocalManifestFile) If MVer = "" Then Exit Sub CurV = Split(MVer, ".", True) If (AVer(0) < CurV(0)) Or (AVer(1) < CurV(1)) Or (AVer(2) < CurV(2)) Or (AVer(3) < CurV(3)) Then FileCopy(L

Thanks for taking a look. Both my code and yours finds the 'entryPoint' element on my box but neither can find the 'version' attribute. Actually my code did work and then quit at some point. Go figure, makes me think that the Microsoft implementation of the XML reader is not ready for prime time. But as soon as I think that I am sure to get slapped in the face by an error that was my doing, that is usually the case. I would like to do it with XML, but it is costing to much time. I seem to be doing what all of the other examples on the web are doing. I guess it is back to the old fashion parse. Did you actually try it on your box? With a .exe.manifest file created from a build?

I set KeyPreview = true in the form's properties dialog & then trap keydown Private Sub frmInvoice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyData = Keys.Enter Then 'bla, bla, bla e.Handled = True End If End Sub

Dim family_name As String = "YourFontNameHere" Dim font_size As Single = 10 Dim font_style As FontStyle = FontStyle.Bold Or Or FontStyle.Italic Or FontStyle.Underline Or FontStyle.Strikeout Dim MyFont As New Font(family_name, font_size, font_style) Me.Font = MyFont

Hi All, I have this function to retrieve the version from a vb.net manifest file that is giving me fits. I swear that it worked when I went to bed late, late, last night but when I got up this morning it would return nothing. It has to be something simple that I am overlooking, but for the life of me I can't see it and am starting to cuss Microsoft and their *&$#^# XML ^#%(($ reader piece of &^^#@**$ bla, bla, bla. So, if anybody can pull my fat out of the fire it would be appreciated. Here is the stoned stupid, bone simple, 3rd grade routine that I think outta work. Private Function GetManifestVer(ByVal strManifestFile As String) As String GetManifestVer = "" Dim xmlr As XmlTextReader xmlr = New XmlTextReader(strManifestFile) While Not xmlr.EOF xmlr.Read() If xmlr.Name = "entryPoint" Then If xmlr.IsStartElement Then GetManifestVer = xmlr.GetAttribute("version") Exit While End If End If End While xmlr.Close() End Function You can pass any vb.net manifest to it. I am using the [application].exe.manifest file created by a compile. I sure any manifest file will do for testing. So help me out before I start beating this computer like a red headed stepchild. Thanks - Stu

Well... Nobody has answered my question so let me explain how I overcame the webbrowsers controls drag and drop issues. I created a transparent control (TCtl) that I placed over the webbrowser control I added handlers for dragenter and dragdrop for TCtl. I parsed the dropped html info to retrieve all of the images url's & then downloaded the images to a localdrive & replaced the href in the html to point to the local images. I then saved the html to a file. I could then load the file into the webbrowser control. Slicker than a rats ass if I may say so. Some of the code is shown below. For saving the images.... Source = web url, Dest = local drive.... Private Sub GetWebFile(ByVal strSource As String, ByVal strDest As String) Dim WebConnection As New WebClient() Try If File.Exists(strDest) Then File.Delete(strDest) WebConnection.DownloadFile(strSource, strDest) Catch ex As Exception MsgBox("Error retrieving web file", ex.Message) End Try End Sub For the drag and drop from a webpage (not complete).... Private Sub TCtlDragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) e.Effect = DragDropEffects.Copy If e.Data.GetDataPresent(DataFormats.Html) Then TCtlDropFormat = "HTML" ElseIf e.Data.GetDataPresent(DataFormats.FileDrop) Then TCtlDropFormat = "File" ElseIf e.Data.GetDataPresent(DataFormats.Bitmap) Then TCtlDropFormat = "Bitmap" ElseIf e.Data.GetDataPresent(DataFormats.Text) Then TCtlDropFormat = "Text" Else e.Effect = DragDropEffects.None End If End Sub Private Sub TCtlDragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Select Case TCtlDropFormat Case "HTML" Dim strData As String = e.Data.GetData(DataFormats.Html) DoHTMLDrop(strData) Case "File" Stop Case "Bitmap" Stop Case "Text" Stop End Select End Sub For the transparent control.... Public DWBSTCtl As New TransparentCtl DWBSTCtl.Left = 0 DWBSTCtl.Top = 0 DWBSTCtl.Width = wbData.Width - 20 DWBSTCtl.Height = wbData.Height DWBSTCtl.AllowDrop = True AddHandler DWBSTCtl.DragEnter, AddressOf TCtlDragEnter AddHandler DWBSTCtl.DragDrop, AddressO

http://www.idautomation.com/formscontrols/free/FormsControlManualFreeVersion.html

Hi All, Has anybody been successful with drag and drop or pasting to a webbrowser control in VS 9.0 VB.net? All examples I have come across refer to ‘ExecWB’ which unfortunatly is not a member of System.windows.forms.webbrowser in VB.Net 9.0. There is a property ‘AllowWebBrowserDrop’ but how I trap the event when DragDrop, DragEnter, ect… events for the control don’t exist? I am not sure where to trap the drop event. I would gladly give you my firstborn for any relevant information on the subject. Thanks Stu