Visual Basic

Retrieve data from an XML *.config file.

6-Jul-05 21:47

I want this just to display on the screen.

Re: Double To String

toxcct6-Jul-05 1:05

toxcct

6-Jul-05 1:05

how do you convert ?

please give the code...

did you try with s = a.ToString() ?

TOXCCT >>> GEII power
[toxcct][VisualCalc]

network share code

LokmanHakim5-Jul-05 17:29

LokmanHakim

5-Jul-05 17:29

Hi,
How can I create a network share using .net code? I've search every forum and articles that i can find on the internet but still didn't came to any solution that suited for me. I'm creating a simple application that create a folder and share the folder to the network and unshare the previous folder with the same network sharename

Re: network share code

Dave Kreskowiak6-Jul-05 3:15

Dave Kreskowiak

6-Jul-05 3:15

There is nothing in the .NET Base Class Library that will do this. You need to either P/Invoke the appropriate Win32 API functions to setup the Share and appropriate rights or you can do it using WMI and the System.Management namespace.

I don't have any code to share with you because I've never had to do it. You could look at
this[^] WSH scripting, using WMI, that does approximately what you want. You could use this as a template to create your own code in VB.NET.

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

Re: network share code

LokmanHakim6-Jul-05 14:31

LokmanHakim

6-Jul-05 14:31

Thanks for the link. I'll try the script...

keypress in datagrid

makeko5-Jul-05 15:44

makeko

5-Jul-05 15:44

Hello. I am portuguese, sorry if my english isn't good.

I have a Datagrid. I want to use the keyDown event to reconize one key. But I have no luck at all. The problem is that the keydown event won't fire at all, unless I click on a row (withs will be selected) and then click on it again. Now if I press any key the event will fire. Confused | :confused:

When a row is selected i want that if one key is pressed the data in the row selected go for another form.

waiting for your help... Hmmm | :|

Thanks.

Re: keypress in datagrid

kalyanforums@yahoo.com6-Jul-05 1:06

kalyanforums@yahoo.com

6-Jul-05 1:06

hi,

create custom table styles for that datagrid and then check it out

Re: keypress in datagrid

makeko6-Jul-05 4:11

makeko

6-Jul-05 4:11

It works fine. Smile | :)

Thanks.

Brad Fackrell5-Jul-05 15:00

Brad Fackrell

5-Jul-05 15:00

I have several *.config files located in various directories. Some of the *.config files contain lines similar to this:

add key="Raw Data Quality = " value="0"
add key="Raw Data Justification = " value="Component quality is good and was constructed from good data."
add key="Data Completeness = " value="-1"
add key="Data Completeness Justification = " value="This should be written out in the Non-Zero report."

I’m trying to extract all non-zero values, and print (to a new line in a text file) the key of the non-zero and the value of the key on the next line.

Like this:

Data Completeness = -1: This should be written out in the Non-Zero report.

I apologize for asking such a broad question. I’ve spent hours trying to figure out how to write the *.config file and now I can’t seem to find out how to read this format back out to a text file.

Thanks
Brad

Re: Retrieve data from an XML *.config file.

Brad Fackrell6-Jul-05 2:46

Brad Fackrell

6-Jul-05 2:46

Hey, look at this cool example that I found: Blush | :O

http://www.codeproject.com/Purgatory/bfackrellConfg.asp[^]

...it’s a good thing my head is attached (or I would loose it too). Smile | :)

Cant get GetTitleBarInfo working properly...

AndrewVos5-Jul-05 11:44

5-Jul-05 11:44

Hey ppl, I have ported this code from a vb6 example, but can't seem to get it working... Any ideas Confused | :confused:

<br />
  Private Class TitleBarInfo<br />
            <System.Runtime.InteropServices.DllImport("user32")> Shared Function GetTitleBarInfo(ByVal hwnd As IntPtr, ByRef pti As TITLEBARINFO) As Boolean<br />
            End Function<br />
<br />
<br />
            Private Const STATE_SYSTEM_FOCUSABLE As Integer = &H100000<br />
            Private Const STATE_SYSTEM_INVISIBLE As Short = &H8000S<br />
            Private Const STATE_SYSTEM_OFFSCREEN As Integer = &H10000<br />
            Private Const STATE_SYSTEM_UNAVAILABLE As Short = &H1S<br />
            Private Const STATE_SYSTEM_PRESSED As Short = &H8S<br />
            Private Const CCHILDREN_TITLEBAR As Short = 5<br />
            Public Structure RECT<br />
                Public left As Integer<br />
                Public top As Integer<br />
                Public right As Integer<br />
                Public bottom As Integer<br />
            End Structure<br />
            Public Structure TITLEBARINFO<br />
                Public cbSize As Integer<br />
                Public rcTitleBar As RECT<br />
                <VBFixedArray(CCHILDREN_TITLEBAR)> Public rgstate() As Integer<br />
                Public Sub Initialize()<br />
                    ReDim rgstate(CCHILDREN_TITLEBAR)<br />
                End Sub<br />
            End Structure<br />
            Public Shared Function GetTitleBarInfo(ByVal Handle As IntPtr) As TITLEBARINFO<br />
                Dim TitleInfo As TITLEBARINFO<br />
                'Initialize structure<br />
                TitleInfo.Initialize()<br />
                TitleInfo.cbSize = Len(TitleInfo)<br />
<br />
                GetTitleBarInfo(Handle, TitleInfo)<br />
return TitleInfo<br />
                Return TitleInfo<br />
            End Function<br />
        End Class<br />

Anonymous5-Jul-05 14:38

5-Jul-05 14:38

Private Structure TITLEBARINFO
Dim cbSize As Integer
Dim rcTitleBar As RECT
<VBFixedArray(CCHILDREN_TITLEBAR + 1)> _
Dim rgstate() As Integer
Public Sub Initialize()
ReDim rgstate(CCHILDREN_TITLEBAR + 1)
End Sub
End Structure

and

GetTitleBarInfo(Me.Handle.ToInt32, TitleInfo)

hope this helps

Anonymous5-Jul-05 15:39

5-Jul-05 15:39

Sorry AndrewVos,
I sent that last message to fast, I checked it again and I was still getting a error 87, sorry.

add this import:
Imports System.Runtime.InteropServices

and the structure should be more like this:

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Private Structure TITLEBARINFO
Dim cbSize As Long
Dim rcTitleBar As RECT
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=CCHILDREN_TITLEBAR)> _
Dim rgstate() As Long
Public Sub Initialize()
ReDim rgstate(CCHILDREN_TITLEBAR)
End Sub
End Structure

It should return err code 0 now.

hope that helps

AndrewVos6-Jul-05 2:07

6-Jul-05 2:07

Still not working... The elements of rgstate() are all = 0.
Consider this code....

<br />
        Private Class TitleBarInfo<br />
            <System.Runtime.InteropServices.DllImport("user32")> Private Shared Function GetTitleBarInfo(ByVal hWnd As IntPtr, ByRef pti As TITLEBARINFO) As Boolean<br />
            End Function<br />
<br />
            Private Const STATE_SYSTEM_FOCUSABLE As Integer = &H100000<br />
            Private Const STATE_SYSTEM_INVISIBLE As Short = &H8000S<br />
            Private Const STATE_SYSTEM_OFFSCREEN As Integer = &H10000<br />
            Private Const STATE_SYSTEM_UNAVAILABLE As Short = &H1S<br />
            Private Const STATE_SYSTEM_PRESSED As Short = &H8S<br />
            Private Const CCHILDREN_TITLEBAR As Short = 5<br />
            Public Structure RECT<br />
                Public left As Integer<br />
                Public top As Integer<br />
                Public right As Integer<br />
                Public bottom As Integer<br />
            End Structure<br />
            <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> Private Structure TITLEBARINFO<br />
                Dim cbSize As Integer<br />
                Dim rcTitleBar As RECT<br />
                <MarshalAs(UnmanagedType.ByValArray, SizeConst:=CCHILDREN_TITLEBAR + 1)> Dim rgstate() As Integer<br />
                Public Sub Initialize()<br />
                    ReDim rgstate(CCHILDREN_TITLEBAR + 1)<br />
                End Sub<br />
            End Structure<br />
<br />
            Private Shared Function GetTitleBarInfo(ByVal Handle As IntPtr) As TITLEBARINFO<br />
                Dim TitleInfo As TITLEBARINFO<br />
                'Initialize structure<br />
<br />
                TitleInfo.Initialize()<br />
                TitleInfo.cbSize = Len(TitleInfo)<br />
<br />
                ' GetTitleBarInfo(Handle, TitleInfo)<br />
                GetTitleBarInfo(Handle, TitleInfo)<br />
                'Show some of that information<br />
                Return TitleInfo<br />
            End Function<br />
           <br />
<br />
            Public Shared ReadOnly Property CaptionButtonCount(ByVal Handle As IntPtr) As Integer<br />
                Get<br />
                    Dim count As Integer<br />
<br />
                    Dim tbi As TITLEBARINFO<br />
                    tbi = GetTitleBarInfo(Handle)<br />
<br />
                    'Index  TitleBar Element<br />
                    '0      The title bar itself. <br />
                    '1      Reserved. <br />
                    '2      Minimize button. <br />
                    '3      Maximize button. <br />
                    '4      Help button. <br />
                    '5      Close button. <br />
                    Dim x As Integer<br />
                    For x = 2 To 5<br />
                        If Not (tbi.rgstate(x) = STATE_SYSTEM_INVISIBLE) And Not tbi.rgstate(x) = 0 Then<br />
                            count += 1<br />
                        End If<br />
                    Next x<br />
                    Return count<br />
                End Get<br />
            End Property<br />
<br />
        End Class<br />
<br />

AndrewVos6-Jul-05 2:12

6-Jul-05 2:12

MSDN on the GetTitleBarInfo function.....

"If the function succeeds, the return value is nonzero."

AndrewVos6-Jul-05 3:13

6-Jul-05 3:13

Yeah, I been tweaking the code for a while now with no luck, anyone with a good understanding of interop, please comment, thanks.

Anonymous6-Jul-05 9:12

6-Jul-05 9:12

AndrewVos,

Sorry, I was woring on it between other code so it didn't get my full attention or time, I think this solution should work now that I've had time to see what was going on. It works on my end.

'----------------------------------------

Imports System.Runtime.InteropServices

'----------------------------------------

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Structure Rect
Public rLeft, rTop, rRight, rBottom As Int32
Public Function ToRectangle() As Rectangle
Return Rectangle.FromLTRB(rLeft, rTop, rRight, rBottom)
End Function
Public Overrides Function ToString() As String
Return "Rect: " & ToRectangle.ToString
End Function
End Structure

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Structure TitleBarButtonStates
Public TitleBarState As TBBStates
Public Reserved As TBBStates
Public MinState As TBBStates
Public MaxState As TBBStates
Public HelpState As TBBStates
Public CloseState As TBBStates
End Structure

Enum TBBStates
STATE_SYSTEM_UNAVAILABLE = &H1
STATE_SYSTEM_PRESSED = &H8
STATE_SYSTEM_INVISIBLE = &H8000
STATE_SYSTEM_OFFSCREEN = &H10000
STATE_SYSTEM_FOCUSABLE = &H100000
End Enum

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Public Structure TITLEBARINFO
Dim cbSize As Int32
Dim rcTitleBar As Rect
Dim rgstate As TitleBarButtonStates
End Structure

Private Declare Function GetTitleBarInfo Lib "user32.dll" ( _
ByVal hwnd As Int32, ByRef pti As TITLEBARINFO) As Long

Public Shared Function GetTitleBarInfo(ByVal Handle As Int32) As TITLEBARINFO
Dim TitleInfo As TitleBarInfo
'Initialize structure
TitleInfo.cbSize = Len(TitleInfo)
GetTitleBarInfo(Handle, TitleInfo)
' *debug* the information we got back
With TitleInfo.rcTitleBar
System.Diagnostics.Debug.WriteLine(" (" & CStr(.rLeft) & "," & CStr(.rTop) & ")-(" & CStr(.rRight) & "," & CStr(.rBottom) & ")")
End With
With TitleInfo.rgstate
System.Diagnostics.Debug.WriteLine(.TitleBarState)
End With
'return with the TitleInfo
Return TitleInfo
End Function

'----------------------------------------------------------
My last test Return was:

Last DLL Error Blush | :O

(51,33)-(318,59)

STATE_SYSTEM_FOCUSABLE

whew.. Hope this helps...

Anonymous7-Jul-05 4:14

7-Jul-05 4:14

Shweeet. Dunno how u got this working properly, well I havent reviewed it yet properly, but everything seems right.
Thanks alot Anonymous!

I actually resorted to GetWindowLong to check if the caption buttons r there.

Well done, ur a genius :>

AndrewVos7-Jul-05 4:40

7-Jul-05 4:40

Wasnt logged in there... Thanks so much for your work, Anonymous, and the last post was mine. Cheers mate

Anonymous7-Jul-05 10:19