vbCity

Two Treeview problems

Maverick2004 — Fri, 20 Mar 2009 09:05:59 GMT

Ok, i have two problems with my little treeview experiment. The treeview is supposed to display the filsystem kinda like Windows Explorer.
I do not want to load all the subfolders as childnodes on start, rather i put a call in the AfterExpand event to minimize the load time.
Problem is that the childnodes get added again and again after each expand/collapse of the parents.

Second problem is i am changing the node icon on right-click to display a checked icon, which i later intend to use while determining
which folders the user has selected. Problem is the recursive routine does not seem to go all the way down through all childnodes,
seems to only go two levels down.

Does anyone have any suggestions for this?

Code:

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        TreeView1.Sort()
        Dim rootDir As String = "C:\"
        Dim root As TreeNode = TreeView1.Nodes.Add(rootDir)
        root.Tag = rootDir
        PopulateTreeView(rootDir, TreeView1.Nodes(0))
    End Sub

    Private Sub PopulateTreeView(ByVal dir As String, ByVal parentNode As TreeNode)
        Try
            Dim folder As String = String.Empty
            Dim folders() As String = IO.Directory.GetDirectories(dir)
            If folders.Length <> 0 Then
                Dim folderNode As TreeNode = Nothing
                Dim folderName As String = String.Empty
                For Each folder In folders
                    folderName = IO.Path.GetFileName(folder)
                    folderNode = parentNode.Nodes.Add(folderName)
                    folderNode.Tag = folder
                Next
            End If
        Catch ex As UnauthorizedAccessException
        End Try
    End Sub

    Private Sub TreeView1_AfterExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterExpand
        Dim n As System.Windows.Forms.TreeNode
        For Each n In e.Node.Nodes
            PopulateTreeView(n.Tag, n)
        Next
    End Sub

    Private Sub TreeView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            TreeView1.SelectedNode = TreeView1.GetNodeAt(e.X, e.Y)
            If TreeView1.SelectedNode.ImageIndex = 0 Then
                CheckChildren(TreeView1.SelectedNode, 1)
            Else
                CheckChildren(TreeView1.SelectedNode, 0)
            End If
        End If
    End Sub

    Sub CheckChildren(ByVal parentNode As TreeNode, ByVal image As Integer)
        parentNode.ImageIndex = image
        parentNode.SelectedImageIndex = image
        If parentNode.Nodes.Count > 0 Then
            For Each child As TreeNode In parentNode.Nodes
                CheckChildren(child, image)
            Next
        End If
    End Sub

Cheers!

Help about design

rattlesnake316 — Fri, 20 Mar 2009 08:25:20 GMT

Does anyone know a third party control (or a dll) where in the buttons or labels or textboxes (controls) have another design (better desisgn) than what VB.NET has?

I guess there are some controls like this that are free. If you have an idea please show it to me or tell me where I can download it.

Thanks in advance!

asp.net vs vb.net

dev1988 — Wed, 18 Mar 2009 09:48:56 GMT

ASP.net is not a coding language. It is a term to describe the (vast) area of the .net framework that allows you to write code directed to the web. The .net framework is chopped up into categories called namespaces. A typical namespace that would be described as to do with asp.net would be XML.

VB.net is different. It is one of several code languages that can communicate with the framework. Others include c# or j#. Cool thing is, is that your code, whatever language you use, gets compiled down into the same intermediate language (IL) which communicates with the .net framework.

Need help to close the program and run the form

Stephen100 — Wed, 18 Mar 2009 18:45:34 GMT

Hi guys

I am created two projects with two different executive files, which the one are for the normal program to create and the other one is for an update. I want to separate these dialogs. I have already added the update executive file as reference in my program. I would like you to help me to resolve this issue as I have problem with open the update dialog when I clicked on the menu item. When I clicked the menu item which are suppose to close the program and load the update form from the update executive file but they did not show up.

Code:

    Private Sub updatetest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updatetest.Click
        Me.Close()
        End
        Dim update As New testUpdate.testUpdates
        update.ShowDialog()
    End Sub

Please can you help me how do I correct my statements which I would close the program and run the update form??

Thanks,
Stephen

Passing listview item to another listview...

chokies12 — Fri, 20 Mar 2009 03:50:35 GMT

hi good day..how do i dot this..i have a listview box where all my items are shown..what i want to happen is when i click this item it automatically goes to my other listview box...im still new at this can someone here please help me..

Save and give the file name automatic

saracom — Thu, 19 Mar 2009 03:27:31 GMT

hi
this is the code how i use to save the files
With PictureBox1
            SaveFileDialog1.InitialDirectory = "D:\"
            SaveFileDialog1.FileName = "1"
            SaveFileDialog1.Filter = "JPEG FILES(*.jpg)/*.jpg/BMP files (*.bmp)/*.bmp/GIF files (*.gif)/*.gif/All files (*.png)/*.*"
            SaveFileDialog1.FilterIndex = 2
        End With
        If SaveFileDialog1.ShowDialog() <> DialogResult.Cancel Then
            PictureBox1.Image.Save(SaveFileDialog1.FileName, GetImageFormat)
            strPhotograph = OpenFileDialog1.FileName
            'MessageBox.Show("File is save")
            Dim strMsg As String
            strMsg = "Image successfully saved to " & SaveFileDialog1.FileName
        End If
now my question is this that how can i save the files in automatice format now i wannt save the files giving file name
starting form 001 to unlimited. so
how it will be possible
thanks in advance

asp vs php

dev1988 — Fri, 20 Mar 2009 06:47:40 GMT

hello friends, I have started learning asp.net. But my friends tell me that php language is better than the asp.net.
and I should go for that language. Because I can make better career in the Web site designers through php language. Please guide my that which language is better for Website designers.

Thanks in advance that help.....

asp tutorials

dev1988 — Wed, 18 Mar 2009 09:58:03 GMT

hello friends, I am learn asp.net. I am not expert in the asp.net.
I want some best asp.net tutorials. can any one suggest me the best asp.net tutorial.

Beep ... Beep

LorinM — Fri, 20 Mar 2009 05:58:49 GMT

So what is the best solution for providing Beep in my VB6 app running on Vista?
The Beep API allowed frequency setting and I used that to create alerts.
Now what?

Click-Through

LorinM — Mon, 09 Feb 2009 18:23:20 GMT

My app form does clickthrough properly on XP but not on Vista.
The form background is transparent on both and everything else works as expected.
On XP, the controls are not click-through as expected, but the form background is.
On Vista, the same code works different.
The form background is NOT click-through.

If I add the
lRet = lRet Or WS_EX_LAYERED Or WS_EX_TRANSPARENT
Then then everything is transparent includeing the buttons etgc and that is not good.
MS fell down with Vista.

Is there a way to get clickthrough to work properly on Vista?

Running code on the form

    lClr = RGB(0, 0, clMaskColor) ' this color is the color that will be
transparent
    ' Set the window style to 'Layered'
    lRet = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
    lRet = lRet Or WS_EX_LAYERED
    SetWindowLong Me.hWnd, GWL_EXSTYLE, lRet
    ' Set the opacity of the layered window
    SetLayeredWindowAttributes Me.hWnd, lClr, 0, LWA_COLORKEY

cyrstal report/crosstab too many coloum

Kairu — Fri, 20 Mar 2009 05:34:45 GMT

hi everyone,

i need to make cross tab with alot of coloum but when the table split it cannot start from new line

i can split the table but the new table is directly beside the old one,

any idea how???

thanks

how to identify E1/T1 interface card port using vb.net

solwa82 — Thu, 19 Mar 2009 04:43:06 GMT

I am doing an interactive voice response (IVR) project in vb.net, for that i am using E1/T1 network interface card to identify the phone calls.. A network cable is connected to the card from pbx...

how to get the incoming call number using vb.net, how can i identify the e1/t1 card port. which component is using in vb.net

NEW TO CASH DRAWER

ganero — Fri, 20 Mar 2009 03:54:21 GMT

hi,
my client want to use cash drawer for his shop.
i don't know what model/type he choose later.
but what i need now is understanding about connecting this cash drawer with my application.

i searched this forum recently for cash drawer. and read some, but i don't really understand.
i want to ask:
1. why the drawer opened (kicked out) through printer ? what if i don't have printer ?
2. can you please give me the code ? i can place this code in my 'accept transaction' right ?

thanks.
any additional advises will be appreciated :)

Converting Excel files to PDF (Directly) using Aspose.Cells

aspose_seo — Fri, 20 Mar 2009 02:00:18 GMT

What’s new in this release?

In past, you have had to use Aspose.Cells and Aspose.Pdf for converting Excel files to PDF but now it is possible by using current version 4.7.0 of Aspose.Cells only. This version further supports: Inserting a WAV file as OLE object, reading or writing check boxes in Excel 2007 files and many other hot features for spreadsheet reporting.

You will utilize the overloaded Save method of the Workbook class providing the FileFormatType.Pdf enum member that converts the native excel file to pdf format.

The above steps are implemented in the following example

[C#]

//Instantiate the Workbook object
Workbook workbook = new Workbook();

//Open an excel file
workbook.Open("f:\\test\\Input.xls");

//Save the document in Pdf format
workbook.Save("f:\\test\\Output.pdf", FileFormatType.Pdf);

[VB.NET]

'Instantiate the Workbook object
Dim workbook As Workbook = New Workbook()

'Open an excel file
workbook.Open("f:\test\Input.xls")

'Save the document in Pdf format
workbook.Save("f:\test\Output.pdf", FileFormatType.Pdf)

More about Aspose.Cells for .NET

Aspose.Cells is a .NET component for spreadsheet reporting without using Microsoft Excel. It supports robust formula calculation engine, pivot tables, VBA, workbook encryption, named ranges, spreadsheet formatting, drawing objects like images, OLE objects and importing or creating charts. You can also create Excel file using designer spreadsheet, smart marker or API and apply formulae and functions. It supports CSV, SpreadsheetML, PDF and all file formats from Excel 97 to Excel 2007.

- Converting Excel files to PDF (Directly).
- Homepage of Aspose.Cells for .NET.
- Download Aspose.Cells for .NET.
- Read online documentation of Aspose.Cells for .NET.
- View demos of Aspose.Cells for .NET.
- Post your technical questions/queries to Aspose.Cells Forum.
- Receive notifications about latest news and supported features by subscribing to Aspose.Cells blog.

Contact Information
Suite 119, 272 Victoria Avenue
Chatswood, NSW, 2067
Australia
Aspose - The .NET and Java component publisher
sales@aspose.com
Phone: 888.277.6734
Fax: 866.810.94651

Search on one criteria

str50 — Thu, 19 Mar 2009 21:39:09 GMT

Hi,

I am not able to search on one criteria if I have two criteria's selected. For example, if I pick undergraduate major as "Accounting" and then pick undergraduate school as "Florida State" and hit the search button and I get lets say 10 records. Now I decide that I want to remove Florida State from my search criteria and only search on "Accounting". Right now I am not able to go back to just one search criteria unless I hit the reset button, which clears the search criteria and the results basically I would be starting from scratch. Any ideas how I can do this with hitting the reset button? Any help will be appreciated. Thanks

Image Storage Questions..

coldfiretech — Thu, 19 Mar 2009 16:39:32 GMT

Hello Everyone!

Ive got a few questions today.

Im working on an aspx page that allows users to view/modify their personal information. I want the user to be able to upload an image of them selfs.

Ive been reading that storing an image in the database is a bad idea when the database begins to grow. Any opinions??

Here is what I want to do for storing the images. Rename image with uniqueidentifier, Upload Image to server, Store FileName in database.

Here is also the catch.. The images need to be in secure directory which is based on roles, but also accesible to my WinForms application.

Can I use the same role based security in my winforms application that im using in asp.net to somehow display the images in my application??

Also, if anyone can give an example of how to upload image to server with asp.net (vb) that would be great! Ill keep looking in the mean time.

Any suggestions would be great!

Thanks,

~Matt

Problem opening file

jcvamp — Thu, 19 Mar 2009 03:53:58 GMT

This is part of a family tree programme I am making. The first time you run the code, it's fine. It correctly shows that the value of MDat is blank. The next time you run it, it starts saying it's 'Hampshire', then it gets more garbled.

Any ideas what's happening?

If item exists in datatable

yaeko — Thu, 19 Mar 2009 10:18:51 GMT

Hi,

The user selects values of a list, these values will be added to a "datatable". It is possible that the user selects an already existing value in the "datatable" .

How I can know if this value already exists in the datatable without having to do a "FOR....NEXT" , checking row by row of the "datatable"?

SQL 2005 query to MySQL hangs out (but it worked with SQL 2000)

UVMVB — Fri, 13 Mar 2009 00:10:07 GMT

Hello,

I've been struggling with this the whole week:

We had a SQL2000 connection to MySQL with MySQL ODBC 3.51 that was running fine, but then we upgraded to SQL2005, and when running a query to MySQL, SQL2005 hangs out and never ends the query. :mad:

What's worst, is that when an ODBC connection is created (successfully) in the server 2005 is installed in, and a connection test is made, it returns as successful. :confused:

I've tried many things: Configuring the ODBC connection at the top of the query, configuring a Linked Server by code, or configuring it via the "Data sources" icon in the Administrative Tools section (including the "Allow In Process" option), but none seems to work.

Any ideas? Further info is needed?

Any help will be very much appreciated.

[RESOLVED] Should I port WinForms to Silverlight 2 or Silverlight 3

brooknet — Thu, 19 Mar 2009 11:25:03 GMT

Hi -

I have a LOB app written in VB.NET with a WinForms front-end and SQL back-end.

After many months weighing up how to get onto the Web, I decided last month to use Silverlight 2. Now, Silverlight 3 Beta is out, but there is no end-user runtime.

Does anyone know when the runtime will be available for deployment of SL 3 apps onto client sites?

My dev timeline is about 3 months: should I persist with SL 2 and then u/g to SL3, or jump straight in to SL3?

Advice welcome:thumb:

Thanks!
Chris

PS - It would be great to see a dedicated Silverlight Forum on vbCity :D

Submit Form on WebPage

ViRuaL — Thu, 19 Mar 2009 13:09:45 GMT

I am trying to submit a form on a webpage in a WebBrowser object. However every method I have tried has failed. Currently I have

Code:

Private WithEvents HDoc As HTMLDocument
Private WithEvents hForm As HTMLFormElement

Set HDoc = nigowser.client.Document
Set hForm = HDoc.Forms("general", 0)
hForm.submit

It throws the error "Object varible or With block variable not set"

This is the same for every other method I have tried, please help.

Detecting JavaScript Execution

ViRuaL — Thu, 19 Mar 2009 02:21:34 GMT

Hi all, my program is currently using an embedded IE frame and using the following to execute JavaScript commands on the web page.

Call brsIE.Document.frames(0).execScript("attack(""attack"")", "JavaScript")

However, is it possible to detect when the web page runs a certain JavaScript function? Thank you :)

Progressbar issue

firoz.raj — Wed, 11 Mar 2009 10:27:01 GMT

i simple want progressbar should execute until it becomes 100 after some interval.but it is not working properly.can anyone help me .Any help would be Greately appreciated.Here is the code what i have written.

Code:

Private Sub Timer1_Timer()
For i = 10 To 100 Step 10
ProgressBar1.Value = CInt(i)
If ProgressBar1.Value = 100 Then
Unload Me
Load MDIForm1
MDIForm1.Show
End If
Next i
End Sub

Private Sub Command1_Click()
   If Text1.Text = "" And Text2.Text = "" Then
   MsgBox "Password mismatch", vbInformation, "Retype"
   Text1.Text = ""
   Text2.Text = ""
   Text2.SetFocus
   End If
   If Text1.Text <> "" And Text2.Text <> "" Then
   Set rs = New Recordset
   rs.Open "select * from Employees_DB_Access where EMP_ID=" & Text1.Text, con, adOpenDynamic, adLockOptimistic
   If rs.EOF Then
   MsgBox "User ID Mismatch", vbInformation, Me.Name
   Text1.Text = ""
   Text1.SetFocus
   ElseIf Text1.Text = rs.Fields(0) And Text2.Text <> rs.Fields(1) Then
   MsgBox "Password is invalid", vbInformation, Me.Name
   Text2.Text = ""
   Text2.SetFocus
   ElseIf Text1.Text <> rs.Fields(0) And Text2.Text = rs.Fields(1) Then
   MsgBox "Invalid User ID", vbInformation, "retype"
   ElseIf Text1.Text = rs.Fields(0) And Text2.Text = rs.Fields(1) Then
  [COLOR="Green"] ProgressBar1.Visible = True
   Timer1.Enabled = True[/COLOR]
   Exit Sub
   Else
   MsgBox "User ID Mismatch", vbInformation, "retype"
   Text1.Text = ""
   Text2.Text = " "
   Text1.SetFocus
   Exit Sub
   End If
   End If
' rs.Close
   End Sub

using indexof with structure and array

jbrowne — Wed, 11 Mar 2009 20:27:45 GMT

I'm having a bit of trouble trying to iterate or search through my array (or structure).

I am reading in some values from a file, and populating my array.
Then, I need to search to compare to one of the values in my array.

Below is the code that I have so far...

Code:

    Public Structure phnumstruct
        Public strCIDnum As String
        Public strEXTnum As String
        Public strCIDdescr As String
    End Structure

    Public phnumsArray(300) As phnumstruct 'not sure if 300 is too much or too little at this point

    Public Sub readphlist(ByVal whichfile As String, ByVal kvar As String)
        Dim FILE_NAME As String = filelocation + whichfile
        crud = FILE_NAME

        If Not IO.File.Exists(FILE_NAME) Then
            MsgBox(whichfile + " file is missing!" + ControlChars.CrLf _
            + "Notify System Administrator.", MsgBoxStyle.Critical, "Warning")
            Return
        End If

        Dim line As String
        Dim index As Integer = 0
        Dim sr As IO.StreamReader = IO.File.OpenText(FILE_NAME)
        While (sr.Peek() > -1)

            line = sr.ReadLine

            If line.Length > 0 Then 'if line.length is less than 0 then skip it

                If line.Chars(0) = "[" Then 'get the block extension field
                    Form1.TextBox2.Text = line.Trim("[", "]")

                ElseIf line.Chars(0) = "#" Or Not Char.IsNumber(line.Chars(0)) Then
                    'If Char.IsWhiteSpac(line.Chars(0)) Or Not Char.IsNumber(line.Chars(0)) Then
                    'if line starts with # then skip
                ElseIf Not line.Contains(",") Then
                    'if line does not have a comma then skip the line
                Else
                    Dim tmparr() As String = line.Split(",")
                    mystruct.strCIDnum = tmparr(0)
                    mystruct.strEXTnum = tmparr(1)
                    mystruct.strCIDdescr = tmparr(2)
                    phnumsArray(index) = mystruct

                    index = index + 1
                End If

            End If

        End While
        sr.Close()

    End Sub

and I call this:

Code:

readphlist("phnums.csv", "share")

here is file 'phnums.csv':

Code:

# ==========================

[7080]
9035551537,7499,"rodney personal friend"
5125551263,7080,"gilbert"
2545557595,7590,"boss wife"
2545550115,7450,"jason"

then I want to call this (but this doesn't work):

Code:

        'Dim retVal As Integer = Array.IndexOf(phnumsArray(0).strCIDnum, TextBox1.Text)
        'Dim retVal As Integer = phnumsArray(3).strCIDnum.IndexOf(TextBox1.Text)
        If retVal >= 0 Then
            TextBox4.Text = phnumsArray(retVal).strEXTnum
            TextBox5.Text = phnumsArray(retVal).strCIDdescr
        'End If

any pointers? should I use something else instead of arrays / structures ?

thanks.

VBA Access 2003 Temp table Error 3211

wheels — Wed, 11 Mar 2009 19:16:38 GMT

Good afternoon.

I have a main form with a subform. When the user selects the third criteria from a drop-down box, the subform is populates with multiple records. Currently the subform is bound to a query off of the main table.

This is what I am trying to accomplish:

I would like to create a make-table query to the subform can bind to.
Then when the MT query pulls the data from the master table it populates the temp table.
After the user modifies the data, then they click on a command button to update the master table.

I created the temp table first (no data).

Then I was hoping that each time the make table is run, it would create a new table.

I attempted this and got the 3211 Error: The database engine could not lock table because it is already in use by another person or process.

Should I be using an update query instead?

Any suggestion?

Thank you,

WHEELS