when using specialized HTML editors such as FrontPage the software will put it's own HTML tags. and that is the same for all HTML editors. If the programmer wants total control then use notepad and they can always open the HTML doc on a HTML viewer such as Firefox.

IF you really want to write html code. then i would recommend using a simple ascii text editor such as notepad and type your own html tags. You really don't need a fancy editor.

Does anyone have samples of coding a progress bar for a splash screen.

how do I check that it is compiled as a 32 bit application?

how to I change the settings.

64 bit, i have looked at the support link with no resolution, any other idea.

windows 7 is 64 bit

I have installed an application that I have written on a windows 7 6g bit machine I am getting the follow error Microsoft.Jet.OleDb.4.0 provider is not registered on the local machine. any idea on how to fix it by compiling code to x86 the program works in win 7 64 bit edition

modified on Sunday, March 28, 2010 9:49 PM

Is there a way that a component array can be created in vb.net like in vb6? For example if I need to create a button Array? Any examples? I am looking to shorten the code below.

     Menuitem1.Text = item(0).menuitem
        MenuItem2.Text = item(1).menuitem
        MenuItem3.Text = item(2).menuitem
        MenuItem4.Text = item(3).menuitem
        MenuItem5.Text = item(4).menuitem
        MenuItem6.Text = item(5).menuitem
        MenuItem7.Text = item(6).menuitem
        MenuItem8.Text = item(7).menuitem
        MenuItem9.Text = item(8).menuitem
        MenuItem10.Text = item(9).menuitem
        MenuItem11.Text = item(10).menuitem

Thanks, It worked. I used

Redim item(dt.Rows.Count() - 1)

to resolve issue after reading the data table.

resolved by William Winner

each time I run the follow code I get a runtime error.

Public Class menuitems
    Public menuitem As String
    Public itemcost As Double

End Class
'Dim totalorderquantity(12) as Integer
Public Class frmtodayscafe
    Inherits System.Windows.Forms.Form

    Public dr As DataRow
    Public item() As menuitems




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

        Dim fileNamex As String = "menu1.txt"
        Dim dirName As String = _
                    Path.GetDirectoryName(Application.ExecutablePath)
        Dim dt As DataTable
        Dim adapter1 As New OleDbDataAdapter

        Using cn As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;" & _
                    "Data Source=" & dirName & ";" & _
                    "Extended Properties=""Text;HDR=Yes;FMT=Delimited""")
            ' Open the connection
            cn.Open()

            ' Set up the adapter
            Using adapter As New OleDbDataAdapter( _
                    "SELECT * FROM " & fileNamex, cn)
                dt = New DataTable("menuitems")
                adapter.Fill(dt)

            End Using

        End Using
        
        Redim item(dt.Rows.Count() - 1)

        Dim drcounter As Integer = 0
        For Each  dr As datarow In dt.Rows
            Debug.Print("{0}    {1}", _
                        dr("Menu Items"), _
                        dr("Item Cost"))
            item(drcounter).menuitem = dr("Menu Items").ToString
            item(drcounter).itemcost = dr("Item Cost").ToString
            drcounter += 1
        Next

the run time error is Object reference not set to an instance of an object.

modified on Friday, March 19, 2010 6:50 PM

reading the files in a data set is interesting but using a dataset how would I transfer the data to a string array possible a two dimensional array.

does anyone have any sample on how to read a comma delimited file.

when I write to the file this is the format

   Menu Items	Qty	Unit Cost	Total Cost
   ----------	---	---------	----------

cheeseburger 0 $5.00 $0.00
onion rings 0 $6.00 $0.00
chicken sdwch 0 $5.00 $0.00
milk shake 0 $2.00 $0.00
mexican rice 0 $5.00 $0.00
quasidella 0 $2.00 $0.00
shrimp cocktail 0 $5.00 $0.00
lasagne 0 $3.00 $0.00
spagehtti 0 $5.00 $0.00
cake 1 $2.00 $2.00
cookies 1 $6.00 $6.00

			 OrderTotal:$8.00
			 DrinkTotal:$0.00
			 ---------------

			   SubTotal:$8.00
			 Tax Amount:$0.60
			 ---------------

			Grand Total:$8.60

but when I print the document from the program it end up like this

   MenuItemsQty	Unit Cost	Total Cost
   ----------   ---	--------- ----------

cheeseburger 0 $5.00 $0.00
onion rings 0 $6.00 $0.00
chicken sdwch 0 $5.00 $0.00
milk shake 0 $2.00 $0.00
mexican rice 0 $5.00 $0.00
quasidella 0 $2.00 $0.00
shrimp cocktail 0 $5.00 $0.00
lasagne 0 $3.00 $0.00
spagehtti 0 $5.00 $0.00
cake 1 $2.00 $2.00
cookies 1 $6.00 $6.00

it needs the same format. any ideas.

what kind of loop do you want to do. Here are several examples of loops: for next, do while, and do until. are all example of looping.

When the following code is executed.

 Dim strPrint As New StringBuilder
        For Me.counter = 0 To 19
            strPrint.Append(writeline(Me.counter) & vbCrLf)
        Next Me.counter

        'e.Graphics.DrawString(strPrint.ToString, printFont, System.Drawing.Brushes.Black, 10, 10)

        If System.IO.File.Exists(SaveFileDialog1.FileName) Then

            printfile = File.OpenText(SaveFileDialog1.FileName)
            printfile = System.IO.File.OpenText(SaveFileDialog1.FileName)
            Do Until printfile.Peek = -1
                menuitem(printcounter) = printfile.ReadLine
                e.Graphics.DrawString(printfile.ReadToEnd, printFont, _
                System.Drawing.Brushes.Black, 10, 10)
                printcounter = printcounter + 1
            Loop

            printfile.Close()


        End If

It does not print the in the same way on how it looks in notepad. Any Ideas. You can get writeline code on the forum discussion title "writing to text file" Any ideas how to resolve issues. issues as has been resolved by changing the font name..

modified on Friday, March 12, 2010 9:16 PM

when I execute the follow code

    Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
        Try
            With SaveFileDialog1
                ' See the code demonstrating the OpenFileDialog control
                ' for examples using most properties, which are the same
                ' for both controls, for the most part.

                ' Add the default extension, if the user neglects to add an extension.
                ' The default is True.
                .AddExtension = True

                ' Check to verify that the output path actually exists. Prompt before
                ' creating a new file? Prompt before overwriting? 
                ' The default is True.
                .CheckPathExists = True
                ' The default is False.
                .CreatePrompt = False
                ' The default is True.
                .OverwritePrompt = True
                ' The default is True.
                .ValidateNames = True
                ' The default is False.
                .ShowHelp = True

                ' If the user doesn't supply an extension, and if the AddExtension property is
                ' True, use this extension. The default is "".
                .DefaultExt = "txt"

                ' Prompt with the current file name if you've specified it.
                ' The default is "".
                '.FileName = filename3
                '//filename3 = .FileName
                '  lblfilename.Text = SaveFileDialog1.FileName
                ' The default is "".
                .Filter = _
                "Text files (*.txt)|*.txt|" & _
                "All files|*.*"
                .FilterIndex = 1

                If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                    counter = 0

                    writeline(0) = "       Menu Items" + vbTab + "Qty" + vbTab + _
                    "Unit Cost" + vbTab + "Total Cost"
                    writeline(1) = "       ----------" + vbTab + "---" + vbTab + _
                    "---------" + vbTab + "----------"
                    Dim y As Integer = 0
                    For x As Integer = 2 To 12

                        'writeline(2).PadLeft(5)

                        writeline(x) = frmtodayscafe.filename(y) + vbTab + Format(frmtodayscafe.totalitemquantity(y)) + vbTab + _
                        FormatCurrency(frmtodayscafe.filename1(y)) + vbTab + vbTab + FormatCurrency(frmtodaysc

why are we appending the counter which is an index of the wriline string array.

 Dim strPrint As New StringBuilder
        For Me.counter = 0 To 19
            strPrint.Append(counter & vbCrLf)
        Next Me.counter
        e.Graphics.DrawString(strPrint.ToString, New Font("Ariel", 12), System.Drawing.Brushes.Black, 10, 10)

should be <pre><code> Dim strPrint As New StringBuilder For Me.counter = 0 To 19 strPrint.Append(writeline(me.counter) & vbCrLf) Next Me.counter e.Graphics.DrawString(strPrint.ToString, New Font("Ariel", 12), System.Drawing.Brushes.Black, 10, 10)</code></pre>

I have tried hard coding the hard return the string array but still did not work.