Visual Basic

Application for all resolution

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/

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

netapi32.dll and windows 98 ? (VB.NET)

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/

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.
Sleepy | :zzz:

ian mariano28-Oct-02 9:51

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/

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.

ian mariano29-Oct-02 9:03

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/

help for Spreadsheet 10.0 component?

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: Unsure | :~

<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>

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. Smile | :)

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

add numbers from a listbox

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.

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

Re: add numbers from a listbox

Paul Riley27-Oct-02 9:46

Re: add numbers from a listbox

27-Oct-02 9:46

I'm thinking you might want to go for

sum = sum + CInt(ListBox2.Items(ListBox2.SelectedIndex).Value)

Paul
Why don't you take a good look at yourself and describe what you see - Led Zeppelin, Misty Mountain Hop

Paul Riley27-Oct-02 10:24

Re: add numbers from a listbox

27-Oct-02 10:24

Please respond to forum

Golfmaltais wrote:
it's still makes a error

sum = sum + CInt(ListBox2.Items(ListBox2.SelectedIndex).Value)

public 'Value' type of 'DataRowView' is no where to be found.

Ooops. My bad.

What happens when you use
For i = 0 To ListBox2.Items.Count - 1
sum = sum + ListBox2.Items(ListBox2.SelectedIndex)
Next i
?

Paul
Why don't you take a good look at yourself and describe what you see - Led Zeppelin, Misty Mountain Hop

Paul Riley27-Oct-02 10:36