MadMaxMSCN

I want to write a small app, that informs me about incoming network connections. Unfortunately I do not know how get that information. Which class can I use? Are there any events? All examples I found on the web were client/server stuff. But I don't have any clients. I want to get notified about all incoming connections at all ports. Thanks for any hints or help, Max

The Code shown in my post ist only for testing. In my project it's much more difficult: My task is to upgrade an old vb6-app to vb.net. I have a form: Form1. On Form1 there's a user control: ucCustomForm. ScriptControl is private in ucCustomForm. The user can make some controls at runtime. These Controls are saved in a public property in ucCustomForm. In vb6 the ScriptControl got (AddObject()) this property, a public object from a module and the ucCustomForm object itself. The application has to be converted to vb.net without changing the scripts because there are very much of them. Is this possible?

German translation is bad, English texts are more better, often you know what's wrong when you read the English exception text but you have no idea when reading the German. In Spanish it's: "Interfaz no compatible" (looks strange for a German) It doesn't matter if my objects are private, public in form1 or public in button_click. The problem is always the same.

Hi everybody, I have to use MSScriptControl in my Application. First I added the reference to MSScriptControl, of course. Then I created some objects and a ScriptControl. When I try to add the objects to the ScriptControl I get an Exception. Dim script As New MSScriptControl.ScriptControl In Button_Click: dim oTest As New Object dim btnTest As New Button script.AddObject("form", Me, True) 'this works script.AddObject("object", oTest, False) 'works, too script.AddObject("button", btnTest, False) 'Exception script.AddObject("otherButton", Me.Button1, False) 'Exception Why do I get this Exception: An unhandled exception of type 'System.InvalidCastException' occurred in WindowsApplication2.exe Additional information: Schnittstelle nicht unterstützt in English: No such Interface supported What's wrong?

Thanks for your answer. But that's much too much work. I need this for a upgrade from vb6 to vb.net In vb6 AxPropList was used. If it's not too much work i want to change to PropertyGrid. It seems to be much less work upgrading AxPropList usage to .net than changing to PropertyGrid.

Hi I want to use a PropertyGrid in my application to change some properties of some controls in my application at runtime. Is there a way to hide some properties so you can't edit it? The Enabled, the Visible and some other properties should'nt be shown in the PropertyGrid. How can I do this? <BrowsableAttribute(False)> _ Public Property ... would work if I would use my own class to show its properties. But I can't use this for Buttons, Labels and so on because I can't modify their code.

i tried #zipLib. works great. for my diploma i should test if it's worth do a upgrade. If it's to difficult to do in a short time i should find a better solution for .net. changing code and using #zipLib is much faster. thank you for your tip.

You have to change the size in the ImageList. I never tested it in .net but in vb6 you had to change image size before adding the first image to the ImageList. In .net there's a property ImageList.ImageSize. I don't know if this is what you look for, but it looks good. Tell me if it works, max

I'm @gmx.de have 1GB of space here and the spamfilter is very good. it blocks almost everything i don't want to get and it never blocked a mail it should have not blocked. the only "spam" it doesn't block is the gmx-newsletter ;-)

yes, i know this. but i'm working here on my diploma and should compare converting and making new. but if making new is so fast as you say, it will make absolutely no sense to try updating.

I have a VB6 application using zip32.dll and unzip32.dll that zips and unzip files (of course!) after converting it to VB.NET i get a StackOverflowException in my VBUnzip Function in the red line: Public Function VBUnzip(ByRef sZipFileName As Object, ByRef sUnzipDirectory As String, ByRef iExtractNewer As Short, ByRef iSpaceUnderScore As Short, ByRef iPromptOverwrite As Short, ByRef iQuiet As Short, ByRef iWriteStdOut As Short, ByRef iTestZip As Short, ByRef iExtractList As Short, ByRef iExtractOnlyNewer As Short, ByRef iDisplayComment As Short, ByRef iHonorDirectories As Short, ByRef iOverwriteFiles As Short, ByRef iConvertCR_CRLF As Short, ByRef iVerbose As Short, ByRef iCaseSensitivty As Short, ByRef iPrivilege As Short) As Integer On Error GoTo vbErrorHandler Dim lRet As Integer Dim UZDCL As DCLIST Dim UZUSER As USERFUNCTION Dim UZVER As UZPVER UZVER.Initialize() Dim uExcludeNames As UNZIPnames uExcludeNames.Initialize() Dim uZipNames As UNZIPnames uZipNames.Initialize() msOutput = "" uExcludeNames.uzFiles(0) = vbNullString uZipNames.uzFiles(0) = vbNullString uZipNumber = 0 uZipMessage = vbNullString uZipInfo = vbNullString uVBSkip = 0 With UZDCL .ExtractOnlyNewer = iExtractOnlyNewer .SpaceToUnderScore = iSpaceUnderScore .PromptToOverwrite = iPromptOverwrite .fQuiet = iQuiet .ncflag = iWriteStdOut .ntflag = iTestZip .nvflag = iExtractList .nUflag = iExtractNewer .nzflag = iDisplayComment .ndflag = iHonorDirectories .noflag = iOverwriteFiles .naflag = iConvertCR_CRLF .nZIflag = iVerbose .C_flag = iCaseSensitivty .fPrivilege = iPrivilege .Zip = sZipFileName .ExtractDir = sUnzipDirectory End With With UZUSER .UZDLLPrnt = AddressOf UZDLLPrnt .UZDLLSND = 0 .UZDLLREPLACE = AddressOf UZDLLRep .UZDLLPASSWORD = AddressOf UZDLLPass .UZDLLMESSAGE = AddressOf UZReceiveDLLMessage .UZDLLSERVICE = AddressOf UZDLLServ End With With UZVER .structlen = Len(UZVER) .beta = Space(9) & vbNullChar .date_Renamed = Space(19) & vbNullChar .zlib = Space(9) & vbNullChar End With [color=DarkRed]UzpVersion2(UZVER)[/color] lRet = Wiz_SingleEntryUnzip(0, uZipNames, 0, uExcludeNames, UZDCL, UZUSER) VBUnzip = lRet Exit Function vbErrorHandler: Err.Raise(Err.Number, "CodeModule::VBUnzip", Err.Description) End Function Why is the Exception thrown in this line? In VB6 it worked without any problem. Do you need some other code to help me?

You need a listview and an imagelist. put your thumbnails in the imagelist. set the listview's "normal imagelist" property to your imagelist. the listview's view property must be set to 0 - lvwicon. when you add an item to your listview you can give it a name, that will be shown under your thumbnail and a number (the number of the picture in your imagelist).

I know that. My ListView is a special one. It contains some kind of tree. The ImageList set in .smallicons works fine, but there is a second one. These icons show if the tree is collapsed or not. I took this tree-ListView from here It works pretty in vb6 but not in vb.net. The first ImageList set in .smallicons works in .net but the second one set with SendMessage doesn't work in .net I don't know how this works, but it does in vb6. :confused: Setting the second one in .smallimages doesn't work, because it overwrites the first one.

Hi, I'm converting from vb6 to vb.net I have to set a ImageList to a ListView. In VB6 it's done in this line: ListView_SetImageList = SendMessage(hWnd, LVM_SETIMAGELIST, ByVal iImageList, ByVal himl) himl is set here: himl = ilImageList1.hImageList and hWnd is: hWnd = lvListView.hWnd it works pretty. Now my problem: in vb.net no images are shown. is there a problem with himl or hWnd in vb.net? (no one of those is 0, but is ist the right value??) can anybody help me??