Visual Basic

Dave Kreskowiak17-Jun-04 6:56

17-Jun-04 6:56

Your not getting it. The problem is not that fact that your getting an ASP page from the server. It is that fact that your page is using the FileSystemObject to connect back to the server (not through HTTP) to get its information. THAT is where you connection problem lies...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

hmshmsm17-Jun-04 7:13

17-Jun-04 7:13

That's probably true....but the FileSystemObject isn't used the right way then....?

Dave Kreskowiak17-Jun-04 7:41

17-Jun-04 7:41

The FileSystemObject doesn't work over an HTTP connection. There is onlt one way to use the FileSystemObject and your already doing it. The FSO will work using UNC paths (\\server\share\path), and this is where the Server.MapPath function is coming in. It's not returning an HTTP path, it's returning the UNC path. There is no way to get the FSO to work with HTTP.

This uses a licensed connection. Since the workstation versions of Windows (NT Workstation, 2000 Pro, XP) only allow a maximum of 10 simultaneous connections, you'll get this error. This limit will include the HTTP session you started, then each FSO connection is another, ...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

hmshmsm17-Jun-04 7:56

17-Jun-04 7:56

But why is my code not working then???

Dave Kreskowiak17-Jun-04 8:24

17-Jun-04 8:24

Define "not working"...

The code doesn't run at all and generates that previous error message?

Or the code doesn't generate the HTML you were expecting?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

hmshmsm17-Jun-04 8:44

17-Jun-04 8:44

Aparantly the code is running. It's just the output that that doesn't fulfill my criteria. The idea about this page is an FTP in HTML- but the result is far from that.

Dave Kreskowiak17-Jun-04 9:34

17-Jun-04 9:34

Unless the code for generating the drive/folder/file list is generated server-side, you'll have a difficult time getting this to work. ASP.NET with a code behind would be much better at this than a straight ASP page.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

hmshmsm17-Jun-04 10:38

17-Jun-04 10:38

Okay - it sounds better, too. Do you by any change have any implementation of that or knows where I can get it? I don't know much about it so far...

Dave Kreskowiak18-Jun-04 2:20

18-Jun-04 2:20

I don't know of any and don't have one myself, but it shouldn't be too hard for you to put one together.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Anonymous18-Jun-04 4:08

Anonymous

18-Jun-04 4:08

Well, probably not. I just don't have any idea of how to do it myself...(?)

hmshmsm17-Jun-04 6:54

How to manage column's color in DataGrid

17-Jun-04 6:54

and when I type the URL "http://b211/test.asp?id=1" the result is:

This is HTML

This is Visual Basic code

The parameter is equal to 1

jkusmanto17-Jun-04 3:28

jkusmanto

17-Jun-04 3:28

Hi there,
Can anybody tell me how to change the column's color in DataGrid ?
I have tried, but didn't work.
Here below is my code.
There is an error at line ##. The error message is :
"An unhandled exception of type 'System.NullReferenceException' occurred in Badminton.exe
Additional information: Object reference not set to an instance of an object."

Thanks for help.

My code:
==================
Private Sub frmGridDisplay_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
DbDA_Bad.Fill(DS_Bad)
Dim TS_Bad As New DataGridTableStyle
With TS_Bad
.MappingName = "Collection"
.HeaderBackColor = Color.YellowGreen
.HeaderForeColor = Color.Green
.HeaderFont = New Font("Microsoft Sans Serif", 10.0!,
FontStyle.Bold, GraphicsUnit.Point, CType(0, Byte))
End With
Dim kl_code As New DataGridTextBoxColumn
kl_code.MappingName = "bt_code"
kl_code.HeaderText = "Code"
kl_code.Width = 60

'====These two lines didn't work. There an erro :

## kl_code.DataGridTableStyle.BackColor = kl_color.YellowGreen
kl_code.DataGridTableStyle.ForeColor = kl_color.Tomato

Dim kl_m1event As New DataGridTextBoxColumn
kl_m1event.MappingName = "bt_m1event"
kl_m1event.HeaderText = "Event"
kl_m1event.Width = 175

TS_Bad.GridColumnStyles.AddRange(New DataGridColumnStyle() _
{kl_code, kl_m1event})
DGBad.TableStyles.Add(TS_Bad)
End Sub

Re: How to manage column's color in DataGrid

Dave Kreskowiak17-Jun-04 5:16

Re: Scrolling in Combobox

17-Jun-04 5:16

'====These two lines didn't work. There an erro :
## kl_code.DataGridTableStyle.BackColor = kl_color.YellowGreen
kl_code.DataGridTableStyle.ForeColor = kl_color.Tomato

I hope you defined YellowGreen and Tomato in your kl_color class. Aren't those supposed to be:

'====These two lines didn't work. There an erro :
kl_code.DataGridTableStyle.BackColor = Color.YellowGreen
kl_code.DataGridTableStyle.ForeColor = Color.Tomato

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Scrolling in Combobox

17-Jun-04 3:10

Hi,

Is there any way to write a code that will execute any time I click on the scrollbar buttons of the Combobox.
Is there any event that raises when I click on the scrollbar buttons of the Combobox or when I move the bar by draging it.

Thanks for any help (I really need it) Frown | :(

Dave Kreskowiak17-Jun-04 4:22

Re: Scrolling in Combobox

17-Jun-04 4:22

There is no event that fires when the scroll of a ComboBox changes. Only the DropDown event fires when the dropdown is displayed.

You'd have to write your own version of the control to get that kind of functionality. You'd override WndProc and watch for WM_HSCROLL and WM_VSCROLL messages, firing off an event that your application can use to get notification of those messages. Be warned! Those event can fire VERY quickly and any code you attach to them MUST run very quickly or else you'll degrade the performance of the control quite severely.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

tanstaafl2817-Jun-04 8:57

tanstaafl28

17-Jun-04 8:57

Please correct me if I'm wrong here...

Without exactly why you would want to do this, it seems to me that you'd be better off using a command button to accomplish this. Each click event should be able to scroll the Combobox down and fire your code incrementally.

Still coaxing software out of the can after all these years...

Re: custom metadata editor in ArcCatalog

Dave Kreskowiak17-Jun-04 3:07

17-Jun-04 3:07

Typically, that error is generated by doing something like this:

Dim myArcObject As ArcObject
myArcObject.someMethod( some, parameters )

When you should be doing this:

Dim myArcObject As New ArcObject
myArcObject.someMethod( some, parameters )

Without seeing your code and the line the error pops up on, it's impossible to tell you what your doing wrong.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Searching the Registry

JeremiahSA17-Jun-04 3:02

JeremiahSA

17-Jun-04 3:02

I'm trying to figure out how to code my program in VB.NET to Search all of the keys located in HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\ and search for a particular value. Once a key is found with that Value, I want it to return the name of the key where it found it. Anyone have any ideas? Where would I need to begin to do this? Any help would be greatly appreciated.

Dave Kreskowiak17-Jun-04 4:10

17-Jun-04 4:10

Just like any other simple tree search algorithm, you would have to write a recursive function (a function that calls itself), passing in the path you want it to search. Here's a little pseudo code to get you started.

Private Function SearchRegistryPath(ByVal rootPath As String, ByVal value As String) As String
'  Start by opening the rootPath key that was passed in
'  Iterate the values in this key
'    If you find the value your looking for
'      Close the rootPath key we opened
'      Return rootPath
'    End If
'  Next
'  Iterate through the keys in the rootPath that was passed in
'    returnValue = SearchRegistryPath( rootPath & SubKey, value )
'    If returnValue <> "" Then
'      Close the rootPath key we opened
'      Return returnValue
'    End If
'  Next
'  Close the rootPath key we opened
'  Return String.Empty

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

JeremiahSA17-Jun-04 4:43

JeremiahSA

17-Jun-04 4:43

Awesome, thx for the input.. This will be my first real delve into the Registry. I'm trying to get back into Programming and have quite a project setup for myself. I've not used VB since '98 and .NET is a little different. I'm sure I'll have some more questions later, but for now I'll try to do some tinkering around and build off of the pseudo code you gave. Thanks again!

JeremiahSA17-Jun-04 6:12

JeremiahSA

17-Jun-04 6:12

Will this also work if I want to be more specific and say, rather than going by just the Value name, I want the Value's Data to be a specific string? I'm looking for a Key that Contains a Value called "DisplayName", but it's "DisplayName" has to equal "MyProgram", or whatever.

Dave Kreskowiak17-Jun-04 6:17

Working with 2 or more forms!

17-Jun-04 6:17

Sure, just pass the value as a third parameter to the function. Then when you find the value name your looking for, compare the value to the one you pass into the function.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Dave Kreskowiak17-Jun-04 2:59