Visual Basic

Re: Parse XmlDataDocument

1-Aug-05 7:49

You might want to read your own post to see what it actually looks like.
Next time, check the box labeled "Do not treat <'s as HTML tags" if your going to post XML data.

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

rushing1-Aug-05 21:02

rushing

1-Aug-05 21:02

Thanks for the alert.
I have changed the text.
You could see the XML content.

Re: Parse XmlDataDocument

Dave Kreskowiak2-Aug-05 3:01

How to run outer application in vb.net?

2-Aug-05 3:01

OK. What do you my parse? I'm assuming you want to pull the values out of the tags. Take a look at this[^] article by Pratik Desai for some ideas.

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

Datagrid/FlexGrid

manish_sapkal31-Jul-05 22:52

manish_sapkal

31-Jul-05 22:52

How to find default sorted column of dataset in datagrid. like I have one dataset with fields of ( Select id, date, name from xyz order by name)
how can i find that order on which coloumn?. i am using OLEDB

rushing31-Jul-05 22:27

rushing

31-Jul-05 22:27

The shellexecute function could not be used in vb.net 2005.
How to run other programs in a vb.net applicaton?
Thanks!

Re: How to run outer application in vb.net?

rwestgraham1-Aug-05 7:10

rwestgraham

1-Aug-05 7:10

Create a ProcessStartInfo object and configure it with the executable name, any command line parameters, etc. Then start the process using a Process object.

Dim si As New ProcessStartInfo
'COnfigure si properties to define process to run
Dim p As Process = Process.Start(si)

NEED HELP FROM A PRO

erikkl200031-Jul-05 18:40

erikkl2000

31-Jul-05 18:40

Hello all i am in need for someone to plase point out to me why my drop down list do not rebind after the first databind,

Page loads fine, click on ddlA every thing loads fine in eaither ddlB or ddlc, it's when i reclick or try to set some ~.visiable= false THEN
Can someone please tell me where i am going work or send me a url so that i can read up on this issue..

Thank you,
Ahead of time,

.............code........................................

Option Strict On

Public Class Wood_Blind_Extras_Main
Inherits System.Web.UI.UserControl

Dim IDA_TapCor As Int32
Dim IDProduct As Int32
Dim IDA_Remote As Int32
'
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'
hdnProductID.Value = Request.QueryString("IDProduct")
hdnIDA_TapCor.Value = Request.QueryString("IDA_TapCor")
hdnIDA_Remote.Value = Request.QueryString("IDA_Remote")
'
ddlClothTapeColors.Visible = False
ddlBlindRemote.Visible = False

If Page.IsPostBack Then
If ddlClothTapeColors.Visible = True Then
ddlBlindRemote.Visible = False
Else
ddlBlindRemote.Visible = True
ddlClothTapeColors.Visible = False
End If
End If
End Sub
'...
Private Sub ddlMainOptions_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddlMainOptions.SelectedIndexChanged
'
'...
Try
'
Select Case ddlMainOptions.SelectedItem.Value
'
Case "ClothTape"
ddlMainOptions.SelectedItem.Value = hdnIDA_TapCor.Value
IDA_TapCor = CInt(ddlMainOptions.SelectedItem.Value)
ddlClothTapeColors.Visible = True
GetTapeColors()
Case "Remote"
ddlMainOptions.SelectedItem.Value = hdnIDA_Remote.Value
IDA_Remote = CInt(ddlMainOptions.SelectedItem.Value)
ddlBlindRemote.Visible = True
GetRemote()
Case "Motorization"
ddlMainOptions.SelectedItem.Value = ""
Case "Routless"
ddlMainOptions.SelectedItem.Value = ""
Case "Extras"

Case Else
End Select
'
Catch ex As Exception
System.Diagnostics.Debug.WriteLine(ex.Message & ": " & ex.StackTrace)
End Try
End Sub
'
Private Sub GetTapeColors() ' ClothTape colors for Wood and Alternitive Blinds
'
Try
IDProduct = CInt(hdnProductID.Value)
'
Dim ClothTapeColors As New ConstructionSuperCenter.BCom_NS.Wood_and_Alternitive_Blinds_MAIN
'Get Fabric Colors For DDL
ddlClothTapeColors.DataSource = ClothTapeColors.Get_Standard_Blind_Cloth_Tape_Colors_(IDProduct, IDA_TapCor)
ddlClothTapeColors.ToolTip = "Please Choose a Cloth Color"
ddlClothTapeColors.DataTextField = "AttributeName"
ddlClothTapeColors.DataValueField = "AttributeName"
ddlClothTapeColors.DataBind()
Catch ex As Exception
System.Diagnostics.Debug.WriteLine(ex.Message & ": " & ex.StackTrace)
End Try
End Sub
'
Private Sub GetRemote() 'Get Lets the consumer know if there is a remote for this product
'
Try
IDProduct = CInt(hdnProductID.Value)
'
Dim BlindRemote As New ConstructionSuperCenter.BCom_NS.Wood_and_Alternitive_Blinds_MAIN
'Get blind remote option for DDL
ddlBlindRemote.DataSource = BlindRemote.Get_Standard_Blind_Remote_(IDProduct, IDA_Remote)
ddlBlindRemote.ToolTip = "Remote Option"
ddlBlindRemote.DataTextField = "AttributeName"
ddlBlindRemote.DataValueField = "AttributeName"
ddlBlindRemote.DataBind()
Catch ex As Exception
System.Diagnostics.Debug.WriteLine(ex.Message & ": " & ex.StackTrace)
End Try
End Sub
'
End Class

...........................html..............................................

<asp:dropdownlist id="ddlMainOptions" autopostback="True" runat="server">
<asp:listitem value="Extras">-- Extras --
<asp:listitem value="ClothTape">Cloth Tape
<asp:listitem value="Remote">-- Remote --
<asp:listitem value="Motorization">-- Motorization --
<asp:listitem value="Routless ">-- Routless --

<asp:placeholder id="phExtras" runat="server">

<asp:dropdownlist id="ddlClothTapeColors" autopostback="True" runat="server" height="40px"><asp:dropdownlist id="ddlBlindRemote" runat="server" autopostback="True">

<asp:datalist id="dlFabricTape" runat="server" height="168px" width="8px">
<itemtemplate>

Re: NEED HELP FROM A PRO

Christian Graus31-Jul-05 19:50

Christian Graus

31-Jul-05 19:50

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'
hdnProductID.Value = Request.QueryString("IDProduct")
hdnIDA_TapCor.Value = Request.QueryString("IDA_TapCor")
hdnIDA_Remote.Value = Request.QueryString("IDA_Remote")
'
ddlClothTapeColors.Visible = False
ddlBlindRemote.Visible = False

If Page.IsPostBack Then
If ddlClothTapeColors.Visible = True Then
ddlBlindRemote.Visible = False
Else
ddlBlindRemote.Visible = True
ddlClothTapeColors.Visible = False
End If
End If
End Sub

For starters ->

If ddlClothTapeColors.Visible = True Then - can't happen, you just set it to false

So, ddlBlindRemote will ALWAYS be visible.

I suspect that when something is invisible, it's not rendered, which means your view state is lost as well.

Christian Graus - Microsoft MVP - C++

Using VB to access windows registry

icowa31-Jul-05 18:34

31-Jul-05 18:34

Hi guys.
Just a question, what command do I use to make my VB.net program to extract a value from the windows registry as well as to input something new into the windows registry? Thanz for your time...

Yulianto.31-Jul-05 19:16

31-Jul-05 19:16

I think this [^] can help you. It's C# (basically the same).

<italic>Work hard, Work effectively.

icowa31-Jul-05 20:22

31-Jul-05 20:22

umm, didn't help...

Yulianto.31-Jul-05 20:36

31-Jul-05 20:36

U didn't look carefully. Try this[^].

<italic>Work hard, Work effectively.

icowa31-Jul-05 21:08

31-Jul-05 21:08

@(o.o)@
Dang, that is deep... Will try to figure it out now... thanz man... Appreciate u helping me out by giving those links...

icowa1-Aug-05 16:14

1-Aug-05 16:14

Tried the link u gave me... it doesn't recognise the registrykey part..

Yulianto.1-Aug-05 16:18

1-Aug-05 16:18

icowa wrote:
it doesn't recognise the registrykey part

Confused | :confused:

What doesn't recognise the registrykey part?

<italic>Work hard, Work effectively.

icowa1-Aug-05 16:21

1-Aug-05 16:21

my VB.net in Visual Studio .net 2003. it doesn't seem to recognise the registrykey command because it would put wavy blue lines under it..

Yulianto.1-Aug-05 16:25

1-Aug-05 16:25

Imports Microsoft.VisualBasic
Imports System
Imports System.Security.Permissions
Imports Microsoft.Win32

<italic>Work hard, Work effectively.

Help on Listbox

Anonymous31-Jul-05 17:34

Anonymous

31-Jul-05 17:34

Are there any ways to convert all the items in a listbox into one string?

E.G. A,B,C are items in a listbox. I need to create a string (A B C) according to the listbox.

Yulianto.31-Jul-05 19:08

31-Jul-05 19:08

Iterate through the item lists and concatenate the string.

<italic>Work hard, Work effectively.

Anonymous31-Jul-05 22:04

Anonymous

31-Jul-05 22:04

Any chance of explaining that a bit further? I don't understand Confused | :confused:

Yulianto.31-Jul-05 22:22

31-Jul-05 22:22

Not sure, how to code it in VB. Try this.

String temp
        temp=""
For Each item In ListBox1.Items
    temp=temp+ item.Text
        Next item

<italic>Work hard, Work effectively.

Dave Kreskowiak1-Aug-05 7:46

1-Aug-05 7:46

Dim tempString As String = String.Empty
Dim item As String
 
For Each item In ListBox1.Items
    tempString &= item
Next

Dim tempStrings As String() = Array.CreateInstance(GetType(String), ListBox1.Items.Count)
ListBox1.Items.CopyTo(tempStrings, 0)
Dim resultString As String = String.Join(", ", tempStrings)

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

server/client

dap_qk31-Jul-05 14:46

dap_qk

31-Jul-05 14:46

Can anyone help me???
how to send file (eg powerpoint slide, flash, video etc) from server to client in .net remoting in vb.net.
Thank you!!!

Re: server/client

Dave Kreskowiak1-Aug-05 7:33