Visual Basic

Jon_Boy10-Mar-09 9:07

10-Mar-09 9:07

Just guessing that it's something in the recursive function. Go ahead and post your code so we can see it. If needed, make a generic example with your code to reproduce the problem and to be concise.

It's better to post the code here rather than send email so that others can possibly learn.

Any suggestions, ideas, or 'constructive criticism' are always welcome.

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison

garfield18510-Mar-09 21:59

garfield185

10-Mar-09 21:59

I'm sorry!! Here is the code.

I just created a Windows VB.NET application, and put on it a treeview named TreeView1 and a button named Button1. Also, insert some random nodes on the treeview, doesn't matter, because all will appear duplicated.

The recursive function is Recorre, as you can see, this function will read all the nodes on the treeview, but won't write anything on it, so, it is so weird for me when I get all the data duplicated.

Imports System.Windows.Forms

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TreeView1.ExpandAll()
End Sub

Private Sub Recorre(ByRef Nodo As TreeNode)
Dim i As Integer
For i = 0 To Nodo.Nodes.Count - 1
Recorre(Nodo.Nodes(i))
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim TreeView2 As TreeView
TreeView1.BeginUpdate()
For i = 0 To TreeView1.Nodes.Count - 1
Recorre(TreeView1.Nodes(i))
Next
TreeView2 = New TreeView
TreeView2 = TreeView1
Me.Controls.Remove(TreeView1)
TreeView1 = Nothing
TreeView1 = New TreeView
Me.Controls.Add(TreeView1)
TreeView1.Width = 176
TreeView1.Height = 242
TreeView1.Top = 12
TreeView1.Left = 12
TreeView1.CheckBoxes = True
TreeView1.Refresh()
TreeView1.EndUpdate()

TreeView1 = TreeView2

End Sub
End Class

Time to come clean...

Vive y deja vivir / Live and let live

Javier

Jon_Boy11-Mar-09 3:36

11-Mar-09 3:36

I don't get a duplication of nodes, I don't get any nodes back on treeview1. It would appear that your temp. clearing the nodes in treeview1 and then readding them?

Having said that, I would do several things different. Instead of completely getting rid of treeview1 and readding it to the form and setting its properties, just clear the nodes (treeview1.nodes.clear). Probably don't need to create a whole another treeview to store the nodes (seems overkill), could use a treenodecollection instead.

Again, I'm not sure what this is supposed to do other than restore the nodes?

Any suggestions, ideas, or 'constructive criticism' are always welcome.

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison

Delete from Mutiple listboxes at the same time

garfield18511-Mar-09 3:56

garfield185

11-Mar-09 3:56

It seems to be a problem when sending the node byref,
using byval I don't get the error... O_o
So, the code could be just like this:

Imports System.Windows.Forms

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TreeView1.ExpandAll()
End Sub

Private Sub Recorre(ByVal Nodo As TreeNode)
Dim i As Integer
For i = 0 To Nodo.Nodes.Count - 1
Recorre(Nodo.Nodes(i))
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To TreeView1.Nodes.Count - 1
Recorre(TreeView1.Nodes(i))
Next
End Sub
End Class

Time to come clean...

Vive y deja vivir / Live and let live

Javier

Ebrima Sawaneh10-Mar-09 2:08

Ebrima Sawaneh

10-Mar-09 2:08

I have multiple list boxes and have different items as follow :
ListGroup1 ListGroup2 ListGroup3 ListGroup4 ListGroup5
g1_items1 g2_items1 g3_items1 g4_items1 g5_items1
g1_items2 g2_items2 g3_items2 g4_items2 g5_items2
g1_items3 g2_items3 g3_items3 g4_items3 g5_items3

listallitems
g1_items1
g4_items3
g4_items1
g5_items2
g2_items3
g4_items2
g3_items3
g2_items2
g3_items2
g5_items3
g1_items2
g1_items3
g2_items1
g5_items1
The Items aboved are added from a combobox which is linked from a table.

So what I want to implement is that on a ListGroup's DoubleClick event as I removed the listgroup Item
from the listGroup I should corresponding delete thesame item from listallitems...
how can I implement this?

Re: Delete from Mutiple listboxes at the same time

Jon_Boy10-Mar-09 9:13

resizing flash sockwave object in vb.net

10-Mar-09 9:13

You could create a generic sub that binds all the listboxes to the same method (tacking on the all appropriate listboxes at the end of the method declaration).

    Private Sub RemoveAllMatchingListBoxRecords(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick, ListBox2.DoubleClick, ListBox3.DoubleClick
'Add code here to delete the appropriate record from each listbox in whatever means you need.
    End Sub

Any suggestions, ideas, or 'constructive criticism' are always welcome.

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison

hrishiS10-Mar-09 1:25

hrishiS

10-Mar-09 1:25

hi to all,
Another problem here

I want to re size the sockwave object(a flash image) dynamically the same size as the form size.(since size of the form may differ with different resolution monitor). But its not happening. I tried with acnhor property too.

Can anyone give me the exact syntax how to do it?

thanks in advance

I am a beginner

vb.net set up

hrishiS10-Mar-09 1:22

hrishiS

10-Mar-09 1:22

Hi to All,

Here is one more problem I am facing. While creating the Set Up and deployment project. Every time I try to change the property of set up project as released, but it changes to debug every time. And as a result it always makes the setup into debug folder. please tell me, Why so? or is it normal?

Also it creates 2/3 files . setUP, windows installer package . what are these exactly? which one has to be shipped to the client?

Thanks in advance

I am a beginner

Re: vb.net set up

Johan Hakkesteegt11-Mar-09 8:00

Johan Hakkesteegt

11-Mar-09 8:00

Debug and Release are only a setting in your designer. Normally you develop your application in Debug mode, so you can test it. Then when you are ready you change the mode to release, and (re)build the solution (not just the project).

The build process will create an Setup.ini, Setup.exe and YourAppName.msi These three files need to be shipped to the client. Also, if you have referenced any third party drivers, you may have to include those as well. Best is to install your app on a test PC and start it. That will tell you if you have all the necessary files.

My advice is free, and you may get what you paid for.

Resizing Windows Forms

briogene10-Mar-09 0:24

briogene

10-Mar-09 0:24

Hi People, I am Writing a Windows application on a 1028 * 800 Screen Resolution Computer....I want to install it on a 800* 600 Computer but the Controls and the Forms look awful, I have tried using the Anchor and Dock properties with no avail...is there any Code that i can use and like call it on every Form based on the Screen Resolution given?

Re: Resizing Windows Forms

Dave Kreskowiak10-Mar-09 7:48

Dave Kreskowiak

10-Mar-09 7:48

You should have designed and layed out the application for the minimum resolution you were willing to support. There is no one piece of code that can fix this for you. You have to go back and relayout your controls with the proper and appropriate use of FlowLayout and TableLayout controls, Anchoring, Docking, and other miscellaneous container controls, such as the Panel.

It's a bit tricky to do and takes a lot of trial-and-error to figure out how everything works with your setup, but in the end, it makes your form scale to larger resolutions pretty much automatically.

A guide to posting questions on CodeProject[^]

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

merge module for crystal report [modified]

hrishiS10-Mar-09 0:21

hrishiS

10-Mar-09 0:21

hi to all,

could anyone please tell me which is the correct merge module to deploy the crystal report in vb.net2005
is it x86,x64 or IA64
I don't understand the what are these..

Also please tell me,can we deploy a project(include crystal report) without merge module? Because, it is running in my system, so may be i have to add some reference to my project. Thats how I thought.
Please suggest

I install the merge module x86, and i am getting the following error while installing the setup
Another version of this product is already installed. Installation of this version cannot continue. To configure or remove the existing version of this product, use Add/Remove Programs on the Control Panel.

Thanks in advance

<div class="ForumMod">modified on Tuesday, March 10, 2009 6:59 AM</div>

Setup in vb.net

mahalakshmi4210-Mar-09 0:17

mahalakshmi42

10-Mar-09 0:17

hi to All,
Here is a problem i am facing to create a setup for my project.When i try to install the setup file i am getting the a message box stating setup installer is interrupted, re-install the setup file

Re: Setup in vb.net

briogene10-Mar-09 0:28

briogene

10-Mar-09 0:28

try this link it has a very good tutorial http://www.devarticles.com/c/a/VB.Net/Deploying-Applications-in-VB.NET-Part-1/[^]

User Control Sub Properties.

Nanda_MR9-Mar-09 23:39

Nanda_MR

9-Mar-09 23:39

Hi Experts!!!

I m building my own user control. Know I m doing a property list.
My problem is Grouping similar property in the Group just like sub menu Ex:- Font Property.

This is example for creating single property. like this I m creating other properties.

<Category("CP Main")> _
<Description("Get or Set the Size of the DropDown Panel")> _
<MergableProperty(True)> _
Public Property CP_value() As Double
Get
CP_value = Label12.Text
End Get
Set(ByVal txtValue As Double)
Label12.Text = txtValue
End Set
End Property

Thanks in advance...

Re: User Control Sub Properties.

Dave Kreskowiak10-Mar-09 7:40

Dave Kreskowiak

10-Mar-09 7:40

The Font class exposes those "grouped" fields as public properties of the Font class. These properties can be base types, like Integer, String, UInt64, ... or they can be other classes, exposing other public fields themselves. There is probably also going to be custom UITypeEditor classes for a few of those properties too.

A guide to posting questions on CodeProject[^]

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

Increment using Database

nazimghori9-Mar-09 23:31

nazimghori

9-Mar-09 23:31

hello every one

i want to generate one of the field of database as auto increment in my project for that i wrote code as:- 'database is in Sqlserver 2005'

Dim newid As Integer=Val(obj.getvalsfrmtbl("select max regi_code from regi_mast")) +1

Me.txt4.Text = newid
Me.txt4.Enabled = False

where obj.getvalsfrmtbl is a function in class for getting one by one values from database... like

Public Function getvalsfrmtbl(ByVal str) As String
Try
Dim res As String = ""
If cn.State = ConnectionState.Open Then
cn.Close()
End If
cn.Open()
Dim cmd As New SqlCommand
Dim dr As SqlDataReader
dr = cmd.ExecuteReader

If dr.HasRows = True Then
dr.Read()
res = dr.Item(0)
Else
res = ""

End If
dr.Close()
cn.Close()
Return res

Catch ex As Exception
Return 0
Finally
cn.Close()
End Try
End Function

to this i got solution like

Public Function getvalsfrmtbl() As Integer
Try
Dim res As Integer
If cn.State = ConnectionState.Open Then
cn.Close()
End If
cn.Open()
Dim cmd As New SqlCommand("select max(regi_code) from regi_mast", cn)
cmd.CommandType = CommandType.Text
Dim dr As SqlDataReader
Dim dr As SqlDataReader
dr = cmd.ExecuteReader()

If dr.HasRows = True Then
dr.Read()
res = CInt(dr.Item(0))
Else
res = 0

End If
dr.Close()
cn.Close()
Return res

Catch ex As Exception
Return 0
Finally
cn.Close()
End Try
End Function

Dim newid As Integer = Val(obj.getvalsfrmtbl()) + 1
Me.txt4.Text = newid
Me.txt4.Enabled = False

but this is not true for database having more then one table ..

so what shall i do

please help..... Smile | :)

Re: Increment using Database

Luc Pattyn10-Mar-09 0:58

Luc Pattyn

10-Mar-09 0:58

Hi,

I trust the notion of "auto-increment" appears in each and every SQL manual.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

- before you ask a question here, search CodeProject, then Google
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get
- use the code block button (PRE tags) to preserve formatting when showing multi-line code snippets

Re: Increment using Database

Jon_Boy10-Mar-09 2:19

School Calendar using VB.Net

10-Mar-09 2:19

This is the same question you asked 6 hours ago. Don't spam the boards with the same question.

Any suggestions, ideas, or 'constructive criticism' are always welcome.

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison

wr30289-Mar-09 21:01

wr3028

9-Mar-09 21:01

Hi all,

I am doing a School Management project in VB.Net and backend as MySql.. In that we have to use a calendar to show the list of holidays, absent students list, add an events etc.,.( it should be like Google calendar)

I am trying with Month Calendar, Is there any option to Increase the size of the calendar and the cells of the calendar?

Please help me...

Thanks
VVV

VB.Net

0x3c09-Mar-09 21:13

0x3c0

9-Mar-09 21:13

AFAIK, no. You'll have to make your own custom control. It isn't that difficult; you could probably get away with using a Panel. Get the month, use that to get the number of days. Iterate from 1 to number of days, dynamically create a control and add it at the previous control's position, plus a little for padding and the size of the previous control

wr302810-Mar-09 1:38

wr3028

10-Mar-09 1:38

Hi,

thanks for the reply..

But i didnt get u.. can u please give me a detailed information on this.. y bcoz i am new to .Net..

Thanks in advance
Victoria

VB.Net

EliottA10-Mar-09 3:38

EliottA

10-Mar-09 3:38

Try not to use text speak, bcoz should be because and y is why.

Check out the CodeProject forum Guidelines[^]

wr302810-Mar-09 6:58

wr3028

10-Mar-09 6:58

Thanks for your suggestions.

VB.Net