Visual Basic

FirstPrevNext

Re: Prepare for extremely stupid question! Pete Bassett1-Nov-02 5:52 Pete Bassett 1-Nov-02 5:52  Are you talking about the System.threading.Timer? If so, you should have a look at the MSDN regarding them. I just read this. Use a TimerCallback delegate to specify the methods associated with a Timer. The methods do not execute in the thread that created the timer; they execute in a separate thread that is automatically allocated by the system If you're talking about the System.Timers.Timer then you're also in trouble Note The event-handling method may be called even after the Stop method is called. The event-handling method may run on one thread at the same time that a call to the Stop method runs on another thread. This might result in the Elapsed event being raised even after the Stop method is called. To prevent this, use the SignalTime property to compare the time the event was raised to the time the Stop method was called. If the event was raised after the Stop method was called, do not process the event. Pete Pete Insert Sig. Here! connecting to network folder using vb.net pampatipaveen31-Oct-02 14:30 pampatipaveen 31-Oct-02 14:30  HI, In my system, MyNetworkPlaces-> I have few network folders shared for me. when I click those to view, it prompts the dialogbox to connect to that folder. If I give username and passwork it connects. so now in my VB.net application, I am asking user to select the network folder, by showing Browse for folder dialog box. The thing is when user selects, any network folder I want to know whether it is connected or not, if not I need to prompt the dialogbox with username and password fileds for connecting to it. so How can I achieve this using vb.net? and what class I need to use for connecting to network folder? I am really struggling for this. Please help me as soon as possible. For ex: I want to connect to \\machine1\somefolder or \\machine2\somefolder, when user selects this folder I need to know whether is it accessinble for user machine, if no i need to prompt the dialog box to connect with username and password as windows shows. Thanking you Regards Praveen P Re: connecting to network folder using vb.net mikasa1-Nov-02 2:31 mikasa 1-Nov-02 2:31  Well, I am not sure but I am thinking that no matter how you select that Share, it will prompt you for a User / Password, so you may not have to handle that in your App. Enumerating Servers on Win9x mikasa31-Oct-02 8:17 mikasa 31-Oct-02 8:17  Ok, I understand that the NetServerEnum API functions do not work on a Win9x machine. In VB6, I had code to enumerate Servers on a Windows9x machine, however, porting it to VB.NET seems impossible. I have it working...somewhat. However, it only enumerates the Top-Level Node everytime! If someone could please shed some light on what I am doing wrong I would greatly appreciate it! This was all guess-work on my part even though I understand Marshalling a little bit. Here's what I have so far: 'Declarations 'API Declarations Private Declare Auto Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Integer, ByVal dwBytes As Integer) As Integer Private Declare Auto Function GlobalFree Lib "kernel32" (ByVal hMem As Integer) As Integer 'API Declarations for Win9x Private Declare Ansi Function WNetOpenEnum Lib "mpr.dll" Alias "WNetOpenEnumA" (ByVal dwScope As Integer, ByVal dwType As Integer, ByVal dwUsage As Integer, ByRef lpNetResource As IntPtr, ByRef lphEnum As Integer) As Integer Private Declare Ansi Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" (ByVal hEnum As Integer, ByRef lpcCount As Integer, ByVal lpBuffer As Integer, ByRef lpBufferSize As Integer) As Integer Private Declare Ansi Function WNetCloseEnum Lib "mpr.dll" (ByVal hEnum As Integer) As Integer 'Structures <Runtime.InteropServices.StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _ Private Structure NETRESOURCE Dim Scope As Integer Dim Type As Integer Dim DisplayType As Integer Dim Usage As Integer Dim LocalName As IntPtr Dim RemoteName As IntPtr Dim Comment As IntPtr Dim Provider As IntPtr End Structure 'Constants for WNetEnum Private Enum ResourceScopes resConnected = &H1 'All currently connected resources (the dwUsage parameter is ignored) resGlobalNet = &H2 'All resources on the network. resRemembered = &H3 'All remembered (persistent) connections (dwUsage is ignored) resRecent = &H4 resContext = &H5 End Enum Private Enum ResourceTypes resAny = &H0 'All resources (this value cannot be combined with RESOURCETYPE_DISK or RESOURCETYPE_PRINT). resDisk = &H1 'All disk resources. resPrinter = &H2 'All print resources. resReserved = &H8 resUnknown = &HFFFF End Enum Private Enum ResourceUseages 'Ignored if the ResourceScope is not 'resGlobalNet' resAll = ((&H1) Or (&H2)) resConnectable = &H1 resContainer = &H2 resNoLocalDevice = &H4 resSibling = &H8 resReserved = &H80000000 End Enum Private Enum ResourceDisplayTypes 'Used to Determine the Resource Type of the NETRESOURCE Struct resGeneric = &H0 resDomain = &H1 resServer = &H2 resShare = &H3 resFile = &H4 resGroup = &H5 resNetwork = &H6 resRoot = &H7 resShareAdmin = &H8 resDirectory = &H9 resTree = &HA End Enum 'Enumerations Public Enum ServerTypes All = &HFFFFFFFF '/* handy for NetServerEnum2 */ Browsers = &H10000 Browser_Backup = &H20000 Browser_Master = &H40000 Domains = &H80000000 DomainController = &H8 DomainBackController = &H10 DomainMaster = &H80000 DomainMember = &H100 Novell = &H80 NTClusters = &H1000000 '/* NT Cluster */ Servers = &H2 ' All Servers ServersDialIn = &H400 ServersLocal = &H40000000 ServersPrintQ = &H200 ServersNT = &H8000 ServersSQL = &H4 ' SQL Server ServersXenix = &H800 ServersUnix = &H800 TimeServers = &H20 Workstations = &H1 WorkstationsNT = &H1000 WorkstationsWin9x = &H400000 '/* Windows95 and above */ End Enum 'Routine to Refresh Servers on a Win9x Machine (uses Recursion) Private Sub RefreshServersWin9x(Optional ByVal Domain As String = Nothing) Dim vResource As NETRESOURCE Dim hResult, hEnum, hBuffer, hPointer, i As Integer Dim nBufferSize As Integer = 16384, nCount As Integer = &HFFFFFFFF Const GMEM_FIXED As Integer = &H0 Const GMEM_ZEROINIT As Integer = &H40 Const GPTR As Integer = (GMEM_FIXED Or GMEM_ZEROINIT) 'Initialize the Buffer Pointer Dim ptrBuffer As IntPtr = IntPtr.Zero, ptrDomain As IntPtr = IntPtr.Zero If (Not IsNothing(Domain)) AndAlso (Domain.Length > 0) Then ptrDomain = Marshal.StringToBSTR(Domain) ptrBuffer = Marshal.AllocCoTaskMem(Marshal.SizeOf(vResource)) vResource.RemoteName = ptrDomain Call Marshal.StructureToPtr(vResource, ptrBuffer, True) End If Try hResult = WNetOpenEnum(ResourceScopes.resGlobalNet, ResourceTypes.resAny, ResourceUseages.resContainer, ptrBuffer, hEnum) If (hResult = 0) And (hEnum <> 0) Then 'Successful 'Enumerate the Resource hBuffer = GlobalAlloc(GPTR, nBufferSize) hResult = WNetEnumResource(hEnum, nCount, hBuffer, nBufferSize) If (hResult = 0) Then 'Successful hPointer = hBuffer For i = 0 To nCount - 1 'Retrieve the Information for the Resource vResource = CType(Marshal.PtrToStructure(New IntPtr(hPointer), GetType(NETRESOURCE)), NETRESOURCE) 'Recurse to Find the Servers if this is a Root or Domain Node Select Case vResource.DisplayType Case ResourceDisplayTypes.resDomain, ResourceDisplayTypes.resGroup, ResourceDisplayTypes.resNetwork, ResourceDisplayTypes.resRoot Call Me.RefreshServersWin9x(Marshal.PtrToStringAnsi(vResource.RemoteName)) End Select 'Determine the Next Pointer hPointer += Marshal.SizeOf(vResource) Next i End If End If bInitialized = True Catch 'Call Globals.ErrorMessage("Refresh") Finally 'Free Up Memory Call Marshal.FreeCoTaskMem(ptrBuffer) Call Marshal.FreeCoTaskMem(ptrDomain) If (hEnum > 0) Then hResult = WNetCloseEnum(hEnum) If (hBuffer > 0) Then hResult = GlobalFree(hBuffer) End Try End Sub Re: Enumerating Servers on Win9x mikasa1-Nov-02 11:41 mikasa 1-Nov-02 11:41  Nevermind, I figured this out! changing cursor mariuszpopiolek31-Oct-02 6:32 mariuszpopiolek 31-Oct-02 6:32  Hi I'm writing COM add-in to MsProject2000. The problem is that using Project object I cannot change cursor that appear in MsProject app. I tried to change the cursor by WinAPI calls but I failed. Is this possible to change cursor in MsProject by executing some code from my add-in? Mariusz Popiolek .NET Remoting in VB.NET Dam_f31-Oct-02 4:57 Dam_f 31-Oct-02 4:57  I am using .NET Remoting to access a Class Library that I created in VB.NET. This class library contains a reference to a COM + component that is used by several functions. I am able to get the Remoting to work for most functions but as soon as I try and call a function that is using the COM + component the app freezes. I don't get any error messages, it just seems to hang. Is there something I need to do in order to use a COM + component when Remoting? Update Registry permissions Andy H30-Oct-02 9:27 Andy H 30-Oct-02 9:27  Can anyone tell me if it is possible to programatically change folder permission settings in the Registry. If so how? Andy Re: Update Registry permissions ian mariano30-Oct-02 22:06 ian mariano 30-Oct-02 22:06  Nope. It's handled by the file system. "The greatest danger to humanity is humanity without an open mind." - Ian Mariano http://www.ian-space.com/ Application for all resolution Notorious SMC29-Oct-02 16:24 Notorious SMC 29-Oct-02 16:24  Does anyone know how to make an application viewable for all resolution? Re: Application for all resolution ian mariano30-Oct-02 1:51 ian mariano 30-Oct-02 1:51  If you mean a "springy" form resizing tool, there is much code out there, and several tools as well ... Here is a google search[^] for you. And in VB.NET, the forms can be layed out to do just that. "The greatest danger to humanity is humanity without an open mind." - Ian Mariano http://www.ian-space.com/ netapi32.dll and windows 98 ? (VB.NET) Vipul Bhatt27-Oct-02 22:40 Vipul Bhatt 27-Oct-02 22:40  windows 9x/NT does not support netapi32.dll. can anyone let me know on how to use netserverenum on these OSs or should i use any other api. Kindly help. Thanks in advance. Re: netapi32.dll and windows 98 ? (VB.NET) ian mariano28-Oct-02 9:51 ian mariano 28-Oct-02 9:51  NetServerEnum() is supported on NT, from 3.1 and later. Unfortunately, you cannot use it on 9x. NetServerEnum reference[^] -- ian http://www.ian-space.com/ Re: netapi32.dll and windows 98 ? (VB.NET) Vipul Bhatt29-Oct-02 1:45 Vipul Bhatt 29-Oct-02 1:45  well that's absolutely right. So is there anything that i can do to find the list of SQl servers in the network on these OSs. Thanks. Re: netapi32.dll and windows 98 ? (VB.NET) ian mariano29-Oct-02 9:03 ian mariano 29-Oct-02 9:03  You could try opening up a TCP/IP Socket on the standard SQL Server port (1433) on each machine you find to see if you can connect...or try to open a named pipe to the machine ("\\.\pipe\sql\query" or "\\.\pipe\MSSQL$instancename\sql\query")...if they succeed, it's probably an SQL server ;o) "The greatest danger to humanity is humanity without an open mind." - Ian Mariano http://www.ian-space.com/ Re: netapi32.dll and windows 98 ? (VB.NET) mikasa31-Oct-02 7:28 mikasa 31-Oct-02 7:28  Yes, there is a way to Enumerate Servers on Win9x. However, I can't get the Code I have to work just right in VB.NET. If someone out there can help on this it would be great!!! The only thing it does is it keeps recusing the Top-Level Network Node (i.e. "Microsoft Windows Network" for me). Here's what I have so far: <Code> 'Declarations 'API Declarations Private Declare Auto Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Integer, ByVal dwBytes As Integer) As Integer Private Declare Auto Function GlobalFree Lib "kernel32" (ByVal hMem As Integer) As Integer 'API Declarations for Win9x Private Declare Ansi Function WNetOpenEnum Lib "mpr.dll" Alias "WNetOpenEnumA" (ByVal dwScope As Integer, ByVal dwType As Integer, ByVal dwUsage As Integer, ByRef lpNetResource As IntPtr, ByRef lphEnum As Integer) As Integer Private Declare Ansi Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" (ByVal hEnum As Integer, ByRef lpcCount As Integer, ByVal lpBuffer As Integer, ByRef lpBufferSize As Integer) As Integer Private Declare Ansi Function WNetCloseEnum Lib "mpr.dll" (ByVal hEnum As Integer) As Integer 'Structures <Runtime.InteropServices.StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _ Private Structure NETRESOURCE Dim Scope As Integer Dim Type As Integer Dim DisplayType As Integer Dim Usage As Integer Dim LocalName As IntPtr Dim RemoteName As IntPtr Dim Comment As IntPtr Dim Provider As IntPtr End Structure 'Constants for WNetEnum Private Enum ResourceScopes resConnected = &H1 'All currently connected resources (the dwUsage parameter is ignored) resGlobalNet = &H2 'All resources on the network. resRemembered = &H3 'All remembered (persistent) connections (dwUsage is ignored) resRecent = &H4 resContext = &H5 End Enum Private Enum ResourceTypes resAny = &H0 'All resources (this value cannot be combined with RESOURCETYPE_DISK or RESOURCETYPE_PRINT). resDisk = &H1 'All disk resources. resPrinter = &H2 'All print resources. resReserved = &H8 resUnknown = &HFFFF End Enum Private Enum ResourceUseages 'Ignored if the ResourceScope is not 'resGlobalNet' resAll = ((&H1) Or (&H2)) resConnectable = &H1 resContainer = &H2 resNoLocalDevice = &H4 resSibling = &H8 resReserved = &H80000000 End Enum Private Enum ResourceDisplayTypes 'Used to Determine the Resource Type of the NETRESOURCE Struct resGeneric = &H0 resDomain = &H1 resServer = &H2 resShare = &H3 resFile = &H4 resGroup = &H5 resNetwork = &H6 resRoot = &H7 resShareAdmin = &H8 resDirectory = &H9 resTree = &HA End Enum 'Enumerations Public Enum ServerTypes All = &HFFFFFFFF '/* handy for NetServerEnum2 */ Browsers = &H10000 Browser_Backup = &H20000 Browser_Master = &H40000 Domains = &H80000000 DomainController = &H8 DomainBackController = &H10 DomainMaster = &H80000 DomainMember = &H100 Novell = &H80 NTClusters = &H1000000 '/* NT Cluster */ Servers = &H2 ' All Servers ServersDialIn = &H400 ServersLocal = &H40000000 ServersPrintQ = &H200 ServersNT = &H8000 ServersSQL = &H4 ' SQL Server ServersXenix = &H800 ServersUnix = &H800 TimeServers = &H20 Workstations = &H1 WorkstationsNT = &H1000 WorkstationsWin9x = &H400000 '/* Windows95 and above */ End Enum 'Routine to Refresh Servers on a Win9x Machine (uses Recursion) Private Sub RefreshServersWin9x(Optional ByVal Domain As String = Nothing) Dim vResource As NETRESOURCE Dim hResult, hEnum, hBuffer, hPointer, i As Integer Dim nBufferSize As Integer = 16384, nCount As Integer = &HFFFFFFFF Const GMEM_FIXED As Integer = &H0 Const GMEM_ZEROINIT As Integer = &H40 Const GPTR As Integer = (GMEM_FIXED Or GMEM_ZEROINIT) 'Initialize the Buffer Pointer Dim ptrBuffer As IntPtr = IntPtr.Zero, ptrDomain As IntPtr = IntPtr.Zero If (Not IsNothing(Domain)) AndAlso (Domain.Length > 0) Then ptrDomain = Marshal.StringToBSTR(Domain) ptrBuffer = Marshal.AllocCoTaskMem(Marshal.SizeOf(vResource)) vResource.RemoteName = ptrDomain Call Marshal.StructureToPtr(vResource, ptrBuffer, True) End If Try hResult = WNetOpenEnum(ResourceScopes.resGlobalNet, ResourceTypes.resAny, ResourceUseages.resContainer, ptrBuffer, hEnum) If (hResult = 0) And (hEnum <> 0) Then 'Successful 'Enumerate the Resource hBuffer = GlobalAlloc(GPTR, nBufferSize) hResult = WNetEnumResource(hEnum, nCount, hBuffer, nBufferSize) If (hResult = 0) Then 'Successful hPointer = hBuffer For i = 0 To nCount - 1 'Retrieve the Information for the Resource vResource = CType(Marshal.PtrToStructure(New IntPtr(hPointer), GetType(NETRESOURCE)), NETRESOURCE) 'Recurse to Find the Servers if this is a Root or Domain Node Select Case vResource.DisplayType Case ResourceDisplayTypes.resDomain, ResourceDisplayTypes.resGroup, ResourceDisplayTypes.resNetwork, ResourceDisplayTypes.resRoot Call Me.RefreshServersWin9x(Marshal.PtrToStringAnsi(vResource.RemoteName)) End Select 'Determine the Next Pointer hPointer += Marshal.SizeOf(vResource) Next i End If End If bInitialized = True Catch 'Call Globals.ErrorMessage("Refresh") Finally 'Free Up Memory Call Marshal.FreeCoTaskMem(ptrBuffer) Call Marshal.FreeCoTaskMem(ptrDomain) If (hEnum > 0) Then hResult = WNetCloseEnum(hEnum) If (hBuffer > 0) Then hResult = GlobalFree(hBuffer) End Try End Sub </Code> help for Spreadsheet 10.0 component? drmzunlimited27-Oct-02 21:06 drmzunlimited 27-Oct-02 21:06  there is a Microsoft Spreadsheet 10.0 component in VB.NEt. I dont know how to do data binding with it at run time (by code). plz help me to do that? --thnx waiting for a quick reply Aakash visual basic mdi form Anonymous27-Oct-02 16:08 Anonymous 27-Oct-02 16:08  i want mdi form Re: visual basic mdi form humera27-Oct-02 16:10 humera 27-Oct-02 16:10  want mdi form Re: visual basic mdi form Nick Parker28-Oct-02 2:24 Nick Parker 28-Oct-02 2:24  If in VB6, right click on the Forms folder, select Add, then choose MDI Form. Nick Parker May your glass be ever full. May the roof over your head be always strong. And may you be in heaven half an hour before the devil knows you’re dead. - Irish Blessing Re: visual basic mdi form Pete Bassett1-Nov-02 5:58 Pete Bassett 1-Nov-02 5:58  Wow, the Zen of MDI... Pete Insert Sig. Here! Freeing Memory Notorious SMC27-Oct-02 15:04 Notorious SMC 27-Oct-02 15:04  I heard that resource(memory) is freed automatically for you in vb.net but not vb6, so i was wondering how do you do it manually in vb6 ? Re: Freeing Memory Paul Riley27-Oct-02 22:33 Paul Riley 27-Oct-02 22:33  Set MyObject = Nothing Paul I think there're pieces of me you've never seen - Tori Amos, Tear in Your Hand Re: Freeing Memory mikasa30-Nov-02 9:27 mikasa 30-Nov-02 9:27  Setting an Object = Nothing does not ALWAYS free the memory in VB6 (this goes for .NET as well). Get familiar with the Objects you are using, if they implement a "Close" or "Dispose" method, ALWAYS use it before Setting your Object = Nothing. For example, watch ADO eat up memory in a VB6 app. However, when you use the Close method, the memory usage goes way down. It takes a little while for the VB6 runtime to clean up the memory references, but it happens. add numbers from a listbox Golfmaltais27-Oct-02 9:42 Golfmaltais 27-Oct-02 9:42  I am trying to add numbers from a listbox Its working with vb6 but not with vb.net. That's what I tried but it's not working Dim sum As Integer Dim i As Integer sum = 0 i = 0 For i = 0 To ListBox2.Items.Count - 1 sum = sum + ListBox2.Items(ListBox2.SelectedIndex) Next i TextBox5.Text = sum I would like the sum of what's inside the listbox to appear inside the textbox Ex: 12 + 12 + 12 from the listbox and sum would be 36 in the textbox

Last Visit: 31-Dec-99 18:00     Last Update: 2-May-24 12:51 Refresh ᐊ Prev1...4745474647474748474947504751475247534754 Next ᐅ

General    News    Suggestion    Question    Bug    Answer    Joke    Praise    Rant    Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.