|
Figured out how to alter an existing image. Pretty simple really.
This colors the last 4 lines of the image itself. This of course only works for a 16 x 16 image, but can easily be changed for different placement and image size.
Since I have 2 controls in 3 different places, I just do:
instance.Image = ColorImage(instance.Image, newColor)
Private Function ColorImage(ByRef theImage As System.Drawing.Bitmap, _
ByRef theColor As System.Drawing.Color) _
As System.Drawing.Bitmap
Dim x, y As Integer
For y = 12 To 15
For x = 0 To 15
theImage.SetPixel(x, y, theColor)
Next
Next
ColorImage = theImage
End Function
|
|
|
|
|
I have done alot of profiling and much reworking to my application but it is still too slow.
The place that seems to be the problem now is in InializeComponent().
The form is rather large with MANY controls but they are all needed because of the organization of the app.
Any suggestions are very welcome thank you.Humble Programmer
|
|
|
|
|
InitializeComponent is generated by Visual Designer, so you can't really change it directly.
AFAIK Designer takes care of suspending and resuming layout when appropriate.
You can keep it fast by:
- not having dozens of Controls; you should not show 100 Controls all at once to the poor user, and you should not create, add, populate, Controls that aren't directly visible (e.g. on other tab pages);
- not adding data immediately upon Form creation; i.e. not populating Controls that need a lot of information such as ListBox, ComboBox, TreeView, PictureBox; you could postpone that till the Form is shown, and even then a background thread might be helping out (beware illegal cross-thread operations).
- not having a background image;
- not playing with transparency.
|
|
|
|
|
Just FYI I inherited this code...
These are all class level variables...
They are used in many different ways throughout the class.
The reason it was done this way is obvious he wanted to be able to keep the forms so that he could check if they were loaded before reloading them.
My question is, is there a way that I can keep these available to all mentioned code without the huge performance hit when creating this class?
Private lClientNumber As Long ' the uniquenumber that was passed from the calling program
' ' This is the ClientNumber.
Private tPassedMode As String ' mode we are in "ADD", "EDIT", "VIEW"
'
Private bInquireOnly As Boolean
Private bDataChanged As Boolean
Private bFieldChanged As Boolean
Private bExistingRecord As Boolean
Private myCommand As New MySqlCommand
Private tVarArray(100, 3) As String
'
Private lStateNum() As Long
Private lSCNumber() As Long
Private lRaceNumber() As Long
Private lLanguageNumber() As Long
Private lLegalStatusNumber() As Long
Private lMaritalStatusNumber() As Long
Private lGender() As Long
Private lCountyOfResidence() As Long
'
Private ClientDatesAnnuals As frmClientDatesAnnuals = frmClientDatesAnnuals
Private ClientContacts As frmClientContacts = frmClientContacts
Private ClientPickups As frmClientPickups = frmClientPickups
Private ClientDatesIPPIFSP As frmClientDatesIPPIFSP = frmClientDatesIPPIFSP
Private ClientDatesPsyc As frmClientDatesPsyc = frmClientDatesPsyc
Private ClientDayHab As frmClientDayHab = frmClientDayHab
Private ClientDietary As frmClientDietary = frmClientDietary
Private ClientExtendedCare As frmClientExtCare = frmClientExtCare
Private ClientFileStorage As frmClientFileStorage = frmClientFileStorage
Private ClientFinancialScreen As frmClientFinancialScreen = frmClientFinancialScreen
Private ClientFirstConnection As frmClientFrstConn = frmClientFrstConn
Private ClientHearScreen As frmClientHearingScreening = frmClientHearingScreening
Private ClientIdentification As frmClientIdentification = frmClientIdentification
Private ClientIndividualCounseling As frmClientIndivCounsel = frmClientIndivCounsel
Private ClientImmunizations As frmClientImmunizations = frmClientImmunizations
Private ClientMedical As frmClientMedical = frmClientMedical
Private Notes As sha_frmNotes = sha_frmNotes
Private ClientPublicSchool As frmClientPublicSchool = frmClientPublicSchool
Private ClientTherapyOT As frmClientTherapyOT = frmClientTherapyOT
Private ClientTherapyST As frmClientTherapyST = frmClientTherapyST
Private ClientTherapyPT As frmClientTherapyPT = frmClientTherapyPT
Private ClientTransportation As frmClientTransportation = frmClientTransportation
Private ClientVisionScreen As frmClientVisionScreening = frmClientVisionScreening
Private ClientConsentToInvite As New frmClientConsentToInvite
Private RefDates As frmRefDates = frmRefDates
Private RefDetails As frmRefDetails = frmRefDetails
Private RefEvals As frmRefEvals = frmRefEvals
Humble Programmer
|
|
|
|
|
| Also so that he can check if there is saved data on the other forms when they close the main form . Humble Programmer
|
|
|
|
|
I see a lot of form referencing variables. You did not specify where that code resides, but having a "Private" attribute they must be class members. Furthermore (I'm no VB.NET expert) I'm afraid
x As frmX=frmX calls the frmX constructor, so all these forms get instantiated right away, as soon as the containing class is being instantiated. That is horrible as it delays everything, and probably isn't needed at all, the app probably is never going to need ALL those forms, and certainly not right away.
What needs to be done is organize lazy instantiation. The easiest way to do that is by using properties. Something like (not tested):
Private hiddenX as frmX
Property X as frmX
If hiddenX isNothing
hiddenX=new frmX
Endif
Return hiddenX
End Property
That way, the remainder of the code can reference X as before, however the form will be instantiated only the first time X gets referenced. From then on, X behaves as before, remains alive (in hiddenX), etc.
|
|
|
|
|
OMG you are a life saver that it dropped the percentage of time for execution from 4.0% .42... for that line
Dude you want a job???
This has been the bane of my existence for a while lol.
So very awesome thank you very very much.
Anyone interested here is the actual working VB code.
Private ClientDatesAnnuals As frmClientDatesAnnuals
Private ReadOnly Property DateAnnuals() As frmClientDatesAnnuals
Get
If ClientDatesAnnuals Is Nothing Then
ClientDatesAnnuals = New frmClientDatesAnnuals
End If
Return ClientDatesAnnuals
End Get
End Property
Humble Programmer
|
|
|
|
|
Private Sub frmClientCommon1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
' close any sub forms that are open ...
If fbFormInstanceExists(ClientContacts) Then
If ClientContacts.bDataChangeStatus Then
MsgBox("Information Has Been Changed On The 'Client Emergency Contacts' Screen, But Has Not Been Saved. " & _
"Please save the information on this form prior to closing.", MsgBoxStyle.Exclamation, Me.Text)
ClientContacts.TopMost = True
e.Cancel = True
Exit Sub
Else
ClientContacts.Close()
ClientContacts.Dispose()
End If
End If
End Sub
Private Sub sHandleCommand(ByVal sender As Object, ByVal e As CommandClickEventArgs)
Select Case e.Command.Text
Case "Emergency Contacts"
If Not fbFormInstanceExists(ClientContacts) Then
ClientContacts = New frmClientContacts
End If
ClientContacts.tMode = tPassedMode
ClientContacts.lClientUniqueNumber = lClientNumber
ClientContacts.tClientName = ftFormatClientName(txtFirstName.Text, _
txtMiddleName.Text, txtLastName.Text, "2")
Me.Cursor = Cursors.WaitCursor
ClientContacts.Show()
ClientContacts.BringToFront()
Case "BLAH"
'Same stuff different form
Case "BLah2" 'etc
End SelectHumble Programmer
|
|
|
|
|
Can anyone know how to make a relational query in vb.net?
thanks!
-robayas
|
|
|
|
|
You're going to have to explain a bit more than that. Which database are you using? Are you using LINQ? Relating a couple of DataTable objects? What?
|
|
|
|
|
We're using access database and we are not familiar with LINQ.
What we are planning is to use Access SQL. Like CREATE VIEW or like that.
Do you have any good idea or suggestion to solve our problem.
Thank you in advance. =)
-rob00
|
|
|
|
|
Use the query designer in Access then either cut and paste the SQL code generated in your VB.NET program, or save the query in Access and perform your SELECT, INSERT DELETE command upon the Access Query.
Research the System.Data.Oledb namespace, in particular the OleDbConnection, OleDbCommand, OleDbDataReader and the OleDbDataAdaptor classes.Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
And research the limitaions of SQL. Access does not support real stored procedures nor named parameters in parameterized queries.
|
|
|
|
|
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
|
|
|
|
|
Hi,
1.
Daniel Engelkes wrote: It does not print the in the same way on how it looks in notepad
is not a symptom we can work on. What does it do, and how is that different from what you want/expect?
2.
A do-loop containing printfile.ReadToEnd will iterate only once. Your first line goes to "menuitem", everything else goes to "DrawString", there isn't a second iteration.
3.
Most often, the correct way to print a number of lines is by having a loop, where each iteration prints one line of text, at a different location; so you need to have coordinates (x,y) which change as you iterate your loop.
4.
Very likely, I haven't checked that part of your code: in order to write a number of strings to a text file, there is no need to concatenate the text and write all in one go. One can:
- either use a FileStream and the WriteLine method;
- or fill a string array and use File.WriteAllLines().
|
|
|
|
|
I would load the file into a List or similar collection (coll) off String Array objects and then iterate through the collection, setting the x,y coordinates as appropriate:
'Read each line into an array and then put each array into a Generic.List(Of Array)
' Then do something like this in the PrintPage Event...
Dim l As Single = e.MarginBounds.Left ' Left margin
Dim y as Single = e.MarginBounds.Top ' Top margin
Dim h as Integer = 18 ' Row Height
Dim ws() As Single = {100, 50, 50, 50) ' Column widths
Dim sfs() As StringFormat = {StringFomat.Alignment.Far, StrngFormat.Alignment.Centre, _
StringFormat.Alignment.Near, StringFormat.Far}
Dim cuRow As Integer = 0
Dim linesReq As Integer = coll.Count - 1
Dim fnt as New Font("Courier New", 10, FontStype.Regular)
Dim pageline as Integer = 1
Dim linesPerPage as Integer = Math.Floor((e.MarginBounds.Bottom-y)/h)
For i as Integer = curRow to coll.Count -1
Do While (pageLine <= linesPerPage) And (curRow <= linesReq)
PrintText(e, coll.Item(curRow), l, y, ws, h, fnt, Brushes.Black, sfs())
y += h
pageLine += 1
curRow += 1
Loop
If (cuRow > linesReq)
Exit For
End If
Next i
...
Private Sub PrintText(ByVal e as PrintPageEventArgs, txtArray As Array, _
ByVal l as Single, ByVal y as Single, ByVal ws As Array, _
ByVal h As Single, ByVal fnt As Font, ByVal br as Brush, _
ByVal sfs As Array)
For i as Integer = 0 To txtArray.Count - 1
e.Graphics.DrawString(txtArray(i), l, y, ws(i), h, fnt, br, sfs(i))
l += ws(i)
Next
End Sub
<edited because="" i="" was="" drinking="" when="" wrote="" the="" reply="" -="" probably="" won't="" compile="" but="" you="" get="" idea="">I don't speak Idiot - please talk slowly and clearly
'This space for rent'
Driven to the arms of Heineken by the wife
modified on Friday, March 12, 2010 3:28 AM
|
|
|
|
|
How you read or write the file has nothing to do with how it prints.
Are you using the same font?
How are you handling the PrintDocument events for new Pages etc.?
Do you have the margins set up the same as notepad does?
The questions are endless.
|
|
|
|
|
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.
|
|
|
|
|
Ha, we finally got a symptom. Seems you want columnar results without using one DrawString for each cell. So you are relying on tabs (very difficult) or on spaces to get data formatted in columns. Unless you print individual cells, you need to choose a non-proportional or monospaced font, such as Courier New, and NOT a proportional font such as Arial. (If you choose Arial in Notepad, the data will look bad too!)
|
|
|
|
|
Private items() As String = {"Cheeseburger", "Onion Rings", "Chicken Sandwich", "Milk Shake"}
Private costs() As Integer = {5, 6, 5, 2}
Private quantities() As Integer = {1, 2, 2, 2}
Private intLinesPerPage As Integer = 25
Private intLinesPrinted As Integer
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
PrintHeadings(e)
PrintDetails(e)
End Sub
Private Sub PrintHeadings(ByVal e As System.Drawing.Printing.PrintPageEventArgs)
Dim recMenu As New System.Drawing.Rectangle(40, 20, 100, 40)
Dim recQuantity As New System.Drawing.Rectangle(120, 20, 60, 40)
Dim recCost As New System.Drawing.Rectangle(180, 20, 60, 40)
Dim recTotal As New System.Drawing.Rectangle(260, 20, 80, 40)
Dim fntDefault As New System.Drawing.Font("Arial", 8, FontStyle.Underline)
Dim fmtCentre As New StringFormat
fmtCentre.Alignment = StringAlignment.Center
e.Graphics.DrawString("Menu Items", fntDefault, Brushes.Black, recMenu, fmtCentre)
e.Graphics.DrawString("Quantity", fntDefault, Brushes.Black, recQuantity, fmtCentre)
e.Graphics.DrawString("Cost Price", fntDefault, Brushes.Black, recCost, fmtCentre)
e.Graphics.DrawString("Total", fntDefault, Brushes.Black, recTotal, fmtCentre)
End Sub
Private Sub PrintDetails(ByVal e As System.Drawing.Printing.PrintPageEventArgs)
Dim strMenu As New StringBuilder("")
Dim strQuantity As New StringBuilder("")
Dim strCost As New StringBuilder("")
Dim strTotal As New StringBuilder("")
Dim recMenu As New System.Drawing.Rectangle(20, 80, 100, 600)
Dim recQuantity As New System.Drawing.Rectangle(120, 80, 60, 600)
Dim recCost As New System.Drawing.Rectangle(180, 80, 60, 600)
Dim recTotal As New System.Drawing.Rectangle(240, 80, 80, 600)
Dim intLastLine As Integer = intLinesPrinted + intLinesPerPage
If intLastLine >= items.Length - 1 Then
intLastLine = items.Length - 1
e.HasMorePages = False
Else
e.HasMorePages = True
End If
Dim i As Integer
For i = intLinesPrinted To intLastLine
Dim strMenuItem As String = items(i)
If Len(strMenuItem) > 30 Then
strMenuItem = Microsoft.VisualBasic.Left(strMenuItem, 27) & "..."
End If
strMenu.Append(strMenuItem & ControlChars.NewLine)
strQuantity.Append(quantities(i) & ControlChars.NewLine)
strCost.Append(Format(costs(i), "0.00") & ControlChars.NewLine)
strTotal.Append(Format(quantities(i) * costs(i), "0.00") & ControlChars.NewLine)
Next
intLinesPrinted = i
Dim fntDefault As New System.Drawing.Font("Arial", 7)
Dim fmtCentre As New StringFormat
fmtCentre.Alignment = StringAlignment.Center
Dim fmtLeft As New StringFormat
fmtLeft.Alignment = StringAlignment.Near
Dim fmtRight As New StringFormat
fmtRight.Alignment = StringAlignment.Far
e.Graphics.DrawString(strMenu.ToString, fntDefault, Brushes.Black, recMenu, fmtRight)
e.Graphics.DrawString(strQuantity.ToString, fntDefault, Brushes.Black, recQuantity, fmtCentre)
e.Graphics.DrawString(strCost.ToString, fntDefault, Brushes.Black, recCost, fmtRight)
e.Graphics.DrawString(strTotal.ToString, fntDefault, Brushes.Black, recTotal, fmtRight)
End Sub
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PrintDocument1.Print()
End If
End Sub
You would need to play around with this a bit, but should get where you want to go with it. Hope this helps.
|
|
|
|
|
Aha, filling columns each with a string inside a rectangle. Interesting.
|
|
|
|
|
I am trying to figure out what the code is scrolling down one cell without actually having it name the cell. Below is the code right now but I dont want it to say a666, i just want it to go down 1 cell from what the end of the list is. Is there a way to do that.
Selection.End(xlDown).Select
ActiveWindow.SmallScroll Down:=12
Range("A666").Select
ActiveSheet.Paste
|
|
|
|
|
Going down one cell from the active cell should look something like that (haven't done this for a while):
ActiveCell.Offset(1, 0).activate"I love deadlines. I like the whooshing sound they make as they fly by." (DNA)
|
|
|
|
|
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
'
' 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(frmtodayscafe.cost(y))
y = y + 1
Next
'writeline(2) = filename(0) + vbTab + frmtodayscafe.totalitemquantity(0) + vbTab + _
'FormatCurrency(filename1(0)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(0))
'writeline(3) = filename(1) + vbTab + frmtodayscafe.totalitemquantity(1) + vbTab + _
'FormatCurrency(filename1(1)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(1))
' writeline(4) = filename(2) + vbTab + frmtodayscafe.totalitemquantity(2) + vbTab + _
' FormatCurrency(filename1(2)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(2))
' writeline(5) = filename(3) + vbTab + frmtodayscafe.totalitemquantity(3) + vbTab + _
'FormatCurrency(filename1(3)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(3))
' writeline(6) = filename(4) + vbTab + frmtodayscafe.totalitemquantity(4) + vbTab + _
'FormatCurrency(filename1(4)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(4))
' writeline(7) = filename(5) + vbTab + frmtodayscafe.totalitemquantity(5) + vbTab + _
'FormatCurrency(filename1(5)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(5))
' writeline(8) = filename(6) + vbTab + frmtodayscafe.totalitemquantity(6) + vbTab + _
'FormatCurrency(filename1(6)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(6))
'writeline(9) = filename(7) + vbTab + frmtodayscafe.totalitemquantity(7) + vbTab + _
'FormatCurrency(filename1(7)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(7))
' writeline(10) = filename(8) + vbTab + frmtodayscafe.totalitemquantity(8) + vbTab + _
' FormatCurrency(filename1(8)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(8))
' writeline(11) = filename(9) + vbTab + frmtodayscafe.totalitemquantity(9) + vbTab + _
'FormatCurrency(filename1(9)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(9))
' writeline(12) = filename(10) + vbTab + frmtodayscafe.totalitemquantity(10) + vbTab + _
'() 'ormatCurrency(filename1(10)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(10))
writeline(13) = vbNewLine + vbTab + vbTab + vbTab + vbTab + " OrderTotal:" + FormatCurrency(ordertotal)
writeline(14) = vbTab + vbTab + vbTab + vbTab + " DrinkTotal:" + FormatCurrency(frmtodayscafe.totaldrinktotal)
writeline(15) = vbTab + vbTab + vbTab + vbTab + " ---------------" + vbCrLf
writeline(16) = vbTab + vbTab + vbTab + vbTab + " SubTotal:" + FormatCurrency(subtotal)
writeline(17) = vbTab + vbTab + vbTab + vbTab + " Tax Amount:" + FormatCurrency(taxsamount)
writeline(18) = vbTab + vbTab + vbTab + vbTab + " ---------------" + vbCrLf
writeline(19) = vbTab + vbTab + vbTab + vbTab + "Grand Total:" + FormatCurrency(grandtotal)
inputfile = System.IO.File.CreateText(SaveFileDialog1.FileName)
inputfile.WriteLine()
inputfile.WriteLine()
For Me.counter = 0 To 19
'System.IO.File.AppendText(.FileName)
'inputfile.Write(filename(counter))
'inputfile.Write(vbTab)
'inputfile.Write(frmtodayscafe.totalitemquantity(counter))
'inputfile.Write(vbTab)
'inputfile.Write(FormatCurrency(filename1(y)))
'inputfile.Write(vbTab + vbTab)
'inputfile.WriteLine(FormatCurrency(frmtodayscafe.cost(y)))
inputfile.WriteLine(writeline(counter))
Next
inputfile.Close()
btnprint.Enabled = True
btncancel.Visible = False
btnclose.Visible = True
End If
End With
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
End Try
End Sub
I get the following results
Menu Items Qty Unit Cost Total Cost
---------- --- --------- ----------
cheeseburger 0 $5.00 $0.00
onion rings 0 $6.00 $0.00
chicken sdwch 1 $5.00 $5.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 0 $2.00 $0.00
cookies 0 $6.00 $0.00
OrderTotal:$5.00
DrinkTotal:$0.00
---------------
SubTotal:$5.00
Tax Amount:$0.38
---------------
Grand Total:$5.38
I need to make the file into columnar format. I tried using padleft and padright functions do not work.
by changing the for loop code to the following resolved issues
Dim y As Integer = 0
For x As Integer = 2 To 12
'writeline(2).PadLeft(5)
Dim tempwriteline As String
Dim writebuilder As New StringBuilder
tempwriteline = frmtodayscafe.filename(y)
writebuilder.Append(tempwriteline.PadLeft(15, " "))
tempwriteline = String.Format(" {0,10} ", frmtodayscafe.totalitemquantity(y))
writebuilder.Append(tempwriteline)
tempwriteline = String.Format(" {0,10} ", FormatCurrency(frmtodayscafe.filename1(y)))
writebuilder.Append(tempwriteline)
tempwriteline = String.Format(" {0,10} ", FormatCurrency(frmtodayscafe.cost(y)))
writebuilder.Append(tempwriteline)
writeline(x) = writebuilder.ToString
y = y + 1
Next
modified on Thursday, March 11, 2010 8:33 PM
|
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
