Visual Basic

ljohns1-May-07 16:47

ljohns

1-May-07 16:47

Seems my formatting got hosed up.

Let me try this again.

Ok, i've been programming for years.... I like to think I know what I'm doing a majority of the time.
However, this issue has me stumped.

I have a file with the current structure:

{
Application= {
Windows=test;
Size=100k;
Location=break;
}
System={
Havok=100;
Desk=10;
{
Cars=ford;
{
trucks=chevy;
}
}
}
}

I have a set of utilities that displays different file in my system with a vb app.
Several of the files I have use the same exact format above.

So, I figured I'd read file in with a io stream and display it in a treeview.
I'd have a root node, then off of that I’d have something like the following.

|-application
|-windows
|-size
|-Location
|-System
|-Havok
|-Desk
|-cars
|-trucks

I wrote a recursive function that would search for “{“, and call it’s self each time until it found a “}”.
It worked ok, but built my tree totally in reverse.

ANY IDEAS OR SAMPLES WOULD BE GREATLY APPRECIATED!

ChandraRam1-May-07 23:06

ChandraRam

1-May-07 23:06

ljohns wrote:
It worked ok, but built my tree totally in reverse.

Reverse how? Can you post the code here?

ljohns3-May-07 4:01

ljohns

3-May-07 4:01

Here is my code snipet.
Private Sub mnuTableTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuTableTest.Click
'********************************************************************
' Start - mnuTableTest_Click
'********************************************************************
Debug.WriteLine("**********************")
Debug.WriteLine("start: mnuTableTest_Click")

Dim xlist As String

'TODO remove hard coded file names
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(sMyFileRoot + myFileName)
Try
xlist = sr.ReadToEnd()
'remove specials
xlist = xlist.Replace(Chr(10), "")
RTrim(LTrim(xlist))
iAdvancementCounter = 0
currentendingpoint = xlist.Length
currentstartingpoint = 0
ProcessBracket(xlist)
rootnode = 0
Finally
sr.Close()
End Try

Debug.WriteLine("end: mnuTableTest_Click")
Debug.WriteLine("**********************")
'********************************************************************
' end - mnuTableTest_Click
'********************************************************************

End Sub

Public Sub ProcessBracket(ByVal mystuff As String)
'********************************************************************
' Start - ProcessBracket
'********************************************************************
Debug.WriteLine("**********************")
Debug.WriteLine("start: ProcessBracket")

Dim i As Integer
Dim xi As Integer
Dim ix As String
Dim suchis As String
Dim NodeName As String
NodeName = ""
suchis = ""
ix = ""
i = 0
xi = 0
'ok.. need to find all the first brackets
'until we find it.. we build node names Smile | :)

'global vars to keep track of file position

Do While currentstartingpoint < currentendingpoint
ix = ""
ix = ix + mystuff(currentstartingpoint)
If iAdvancementCounter = 1 Then
'reset nodename
Debug.WriteLine("NODE: " + NodeName)
AddClassSub(NodeName, rootnode)
NodeName = ""
iAdvancementCounter = 0

End If
If (ix = "{") Then
Debug.WriteLine("Start Root Node: " + Str(rootnode))
rootnode = rootnode + 1
currentstartingpoint = currentstartingpoint + 2
ProcessBracket(mystuff)
End If

If (ix = "}") Then
Debug.WriteLine("End Root Node: " + Str(rootnode))
rootnode = rootnode - 1
iAdvancementCounter = 1
currentstartingpoint = currentstartingpoint + 2
Exit Do
End If
If currentstartingpoint >= currentendingpoint Then Exit Do
NodeName = NodeName + mystuff(currentstartingpoint)
currentstartingpoint = currentstartingpoint + 1
Loop

Debug.WriteLine("end: ProcessBracket")
Debug.WriteLine("**********************")
'********************************************************************
' end - ProcessBracket
'********************************************************************

End Sub

Public Sub AddClassSub(ByVal NodeName As String, ByVal NodeNumber As Integer)
'********************************************************************
' Start - AddClassSub
'********************************************************************
Debug.WriteLine("**********************")
Debug.WriteLine("start: AddClassSub")

Me.tvClass.Nodes.Add(NodeName, NodeName + Str(NodeNumber))

Debug.WriteLine("end: AddClassSub")
Debug.WriteLine("**********************")
'********************************************************************
' end - ProcessBracket
'********************************************************************
End Sub

How do I pass a byte array from C++ to VB.NET?

ChandraRam4-May-07 0:12

ChandraRam

4-May-07 0:12

From a very quick glance, you are adding a node to the treeview only when you encounter a '}' - this will not produce the tree view that you have described from the input data provided.

Your input data should probably be something like this?

{
Application
{
Windows
{
test;
}
Size
{
100k;
}
Location
{
break;
}
}
System
{
Havok
{
100;
}
Desk
{
10;
{
Cars
{
ford;
{
trucks
{
chevy;
}
}
}
}
}
}
}

prcarp1-May-07 15:28

prcarp

1-May-07 15:28

I have a VB.NET 2005 application that makes calls to a VC++ (VC6) DLL and I have that part working fine. The C++ DLL makes use of callback functions to let the VB app know of unsolicited events and that works as well (the functions are at least being called). The problem is I don't know the proper parameters to use (either the C++ or VB side) to get a byte array from C++ back to VB.

I have tried the following:

<br />
C++ side:   <br />
BYTE bArray[] = { 11, 12, 13, 14, 15 };<br />
int len = 5;<br />
pfnCallback(bArray, len);<br />
<br />
VB side:<br />
CallbackHandler(ByVal data() as Byte, ByVal len as Integer)<br />

This resulted in the data array length of 1 and it only had the first value of the array no matter how big my array was.

Then I tried:

<br />
C++ side:<br />
SAFEARRAY *psa;  <br />
(then properly created psa, and data copied in)<br />
pfnCallback(psa);<br />
(then properly destroy psa)<br />
<br />
VB side:<br />
CallbackHandler(ByVal data() as Byte)

This resulted in the data array length of 1 and it had the first element of C's SAFEARRAY in it (cDim). I could not see my data.

Am I barking up the wrong tree? Is what I want to do possible? I tried ByRef and got exception errors as it jumped from native code to managed code.

Thanks in advance,
Paul

Re: How do I pass a byte array from C++ to VB.NET?

Dave Kreskowiak2-May-07 3:35

Dave Kreskowiak

2-May-07 3:35

I think you're looking for this[^].

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: How do I pass a byte array from C++ to VB.NET?

prcarp2-May-07 8:46

prcarp

2-May-07 8:46

Perfect!

Thanks for the pointer.
-P

Create Object From Type [modified]

Polymorpher1-May-07 14:18

Polymorpher

1-May-07 14:18

Does anyone know how to create a given object given nothing but the object type? I'm trying to make a quick way to iterate through my MDI children and if the given form type is not found then i create it and return it...here is what i have so far, but it doesnt seem to work...keeps returning nothing when creating a new form:

Public Shared Function FindFormOfType(ByVal inArray() As Form, ByVal theType As Type) As Form
For Each f As Form In inArray
If f.GetType.Equals(theType) Then
Return f
End If
Next f

Return CType(theType.TypeInitializer.Invoke(Reflection.BindingFlags.CreateInstance, Nothing, Nothing, Application.CurrentCulture), Form)
End Function

-- modified at 20:41 Tuesday 1st May, 2007
Never mind guys, thanks anyways, I found a solution:

Public Shared Function FindFormOfType(ByVal inArray() As Form, ByVal theType As Type) As Form
For Each f As Form In inArray
If f.GetType.Equals(theType) Then
Return f
End If
Next f

Return CType(System.Activator.CreateInstance(theType), Form)
End Function

Apparently it's not OK to start a bonfire of Microsoft products in the aisles of CompUSA even though the Linuxrulz web site says so

Updating Table of Access Database

keninfo1-May-07 11:56

keninfo

1-May-07 11:56

Hello all,

I know it seems stupid, but i just cannot update a table of my access database.

I get an error: In order to evaluate an indexed property, the property must be qualified and the arguments must be explicitly supplied by the user.

The parameter (and then the value of my Agentnummer textbox) has no default value

This is the code:

daAgent.UpdateCommand.CommandText = ("UPDATE Agent " & _
"SET Agentnummer = " & txtAgentnummer.Text & ", " & "Agentnaam = " & txtAgentnaam.Text & _
" WHERE Agentnummer = " & agentNummerOud)

daAgent.UpdateCommand.Connection.Open()
daAgent.UpdateCommand.ExecuteNonQuery()
daAgent.UpdateCommand.Connection.Close()

Maybee this is not the right code at all for updating a table.

Is there anyone who can help?

Thanks!!!

Christian Graus1-May-07 12:56

1-May-07 12:56

You're not putting quotes around the string.

Your code is also open to SQL injection attacks. PErsonally, I don't get why anyone uses these update command things, I thnk they suck.

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )

keninfo1-May-07 23:57

keninfo

1-May-07 23:57

What kind of command do you suppose?

Christian Graus2-May-07 0:55

2-May-07 0:55

I would write a proper data layer, all my SQL in stored procs, and then call the methods as I needed them.

Globalization in VB .Net usig SQL server2000

keninfo2-May-07 3:33

keninfo

2-May-07 3:33

Ok, i see.
There is a lot to learn for me.

Thanks for the reply.

joby1001-May-07 10:42

joby100

1-May-07 10:42

Hello,
I have a form developed in VB .net2003 with SQL Server2000.
I want to work that form both in English and Arabic.Means,a form showing detais in English and it has buttons to save,Modify and Delete.when I click a button 'switch to arabic' the entire form should change to arabic and can do the same operations.
For that ,is there any change in database designing.
Can you please help me.....

Joby Mathew

Set Custom PaperSize In VB.NET [modified]

AmirAlilou1-May-07 8:12

AmirAlilou

1-May-07 8:12

HI I write code to change paper size of printr to custom size and then i define my page heght and width .

Public Sub Print_It()<br />
        Try<br />
           Try<br />
                'PrintFont = New Font("Arial", 10)<br />
                Dim pd As PrintDocument = New PrintDocument<br />
                'Assign my overloaded version of the standard print controller<br />
                Dim dt As DataTable = MyDB.GetTableDaftar()<br />
                Dim dv As New DataView(dt)<br />
                dv.RowFilter = "id=" + CType(iddaftar, String)<br />
<br />
                'Install event handlers<br />
                AddHandler pd.BeginPrint, _<br />
                            New PrintEventHandler(AddressOf Me.pd_StartPrint)<br />
                AddHandler pd.PrintPage, _<br />
                            New PrintPageEventHandler(AddressOf Me.pd_PrintPage)<br />
                AddHandler pd.EndPrint, _<br />
                            New PrintEventHandler(AddressOf Me.pd_EndPrint)<br />
                'pd.PrinterSettings.DefaultPageSettings.PaperSize.Width = pd.PrinterSettings.PaperSizes.Item(38).Width<br />
                Dim pkCustomSize1 As New PaperSize("Custom", dv(0)(7), dv(0)(8))<br />
                <br />
                pd.DefaultPageSettings.PaperSize = pkCustomSize1                'Print the document.<br />
                If pd.PrinterSettings.IsValid Then<br />
                    pd.Print()<br />
                End If<br />
            Finally<br />
                'PrintStream.Close()<br />
            End Try<br />
        Catch ex As Exception<br />
            MessageBox.Show(ex.Message)<br />
        End Try

but this code does not change the printer paper size
Please help me
if possible with sample
Thanks

-- modified at 4:39 Wednesday 2nd May, 2007

using tab control to show datagrid

detective_girl1-May-07 8:12

1-May-07 8:12

hi everyone

i need a help ....

how can i use tab control to show datagrid because i have many tab pages that have tabABC, tabDEF, tabGHI,....etc

i want to show in each tab the letter that is related to it
i mean display the datagrid in the tabABC only the names that begins will those letters

can someone helps me please

Christian Graus1-May-07 10:31

1-May-07 10:31

I'm not sure what you're asking - you can put a datagrid on a tab page quite easily, and then yuo need to create filtered views of your data that show only the data you're hoping to view. What is your data source ?

detective_girl1-May-07 19:35

1-May-07 19:35

i have data in access and i know how to show it in datagrid in one tab , but i'm looking for showing the data that begins with a, b , c in one tab and this tab has a data grid

coz as i said i has many tabs and each tab has 3 letters and all of these tabs has data grid .... but the problem i didn't know how to show only the names that begins with specific letter i know how to show it all

detective_girl1-May-07 20:15

1-May-07 20:15

detective_girl wrote:
i have data in access and i know how to show it in datagrid in one tab , but i'm looking for showing the data that begins with a, b , c in one tab and this tab has a data grid

coz as i said i has many tabs and each tab has 3 letters and all of these tabs has data grid .... but the problem i didn't know how to show only the names that begins with specific letter i know how to show it all

i want to do like this pic below.. click the link to see the pic
http://www.photolinko.com/show.php/14649_tabs.bmp.html[^]

Christian Graus1-May-07 23:31

1-May-07 23:31

So, you need to write queries that only return the records you want to show on each tab. That's just some basic SQL filtering you need to do.

detective_girl2-May-07 0:32

2-May-07 0:32

ya i know that i need queries to write, i already wrote one query in the tabABC but nothing shown in the datagrid.... i don't know why

since this morning nothing happened

actually now i don't know what kind of queries to write and where to write them in tabcontrol or in tab of each page

Christian Graus2-May-07 10:24