#End Region
Public Structure Records
Public IDNumber As Integer
Public Name As String
Public Address As String
Public Credit As String
Public Balance As String
End Structure
'
Public Structure sLogRecords
Public SourceName As Integer
Public DestName As String
Public SourceIP As String
Public DestIP As String
Public Address As String
Public Credit As String
Public Balance As String
End Structure
Private mfntPrint As Font
Private sfCurrent As SizeF
Private msngYPos As Single
Private msngFontHeight As Single
Private IDNumber As String
Private Address As String
Private CreditLimit As Single
Private BalanceDue As Single
Private PreferredCustomer As Boolean
Private OrderFrequency As Integer
Private LogRecords(11) As sLogRecords
Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
'Declaring a local variable dlgResult
Dim dlgResult As DialogResult
' declaring a Message Box Button to use in solution
Dim MessageBoxButton As MessageBoxDefaultButton
dlgResult = MessageBox.Show("Are you Sure You Want to Exit?", "Exit", _
MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If dlgResult = DialogResult.Yes Then
Me.Close()
End If
End Sub
Private Sub btnprint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprint.Click
Dim pp As New PrintPreviewDialog
pp.Document = PdReport
pp.WindowState = FormWindowState.Maximized
pp.ShowDialog()
End Sub
Private Sub PdReport_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PdReport.PrintPage
Dim graCurrent As Graphics = e.Graphics
Dim sfCurrent As New StringFormat
Dim recCurrent As New RectangleF
recCurrent = New RectangleF(0, 0, 850, 1100)
Dim penline = penline
penline = New Pen(Color.Black, 4)
e.Graphics.DrawRectangle(penline, e.PageBounds.Left + 100, e.PageBounds.Top + 100, e.PageBounds.Right - 200, e.PageBounds.Bottom - 200)
Dim msngCurrentPage As Single
mfntPrint = New Font("Arial", 16)
msngYPos = e.MarginBounds.Top + (2 * mfntPrint.GetHeight(e.Graphics))
recCurrent = New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Right - 100, msngYPos)
sfCurrent.Alignment = StringAlignment.Center
e.Graphics.DrawString("Customer List", mfntPrint, Brushes.Black, recCurrent, sfCurrent)
mfntPrint = New Font("Arial", 11)
msngFontHeight = mfntPrint.GetHeight(e.Graphics)
msngYPos += msngFontHeight
End Sub
Private Sub btnopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnopen.Click
Dim Name(11) As String
Dim Credit(11) As String
Dim Balance(11) As String
Dim IDNumber(11) As String
Dim Address(11) As String
'Dim DataRecords(3) As Records
Name(0) = "Steve McCracken"
Name(1) = "Allen Smith"
Name(2) = "Tom Stevenson"
Name(3) = "Bob Noel"
Name(4) = "Marcus Bell"
Name(5) = "Phil Gretzky"
Name(6) = "Jack Orr"
Name(7) = "Chris Hull"
Name(8) = "Craig Alomar"
Name(9) = "Norm Jagr"
Name(10) = "Ted Yzernam"
'
Credit(0) = "21,000"
Credit(1) = "15,000"
Credit(2) = "9,000"
Credit(3) = "20,000"
Credit(4) = "30,000"
Credit(5) = "50,0000"
Credit(6) = "3,500"
Credit(7) = "4,500"
Credit(8) = "36,000"
Credit(9) = "13,000"
Credit(10) = "23,000"
'
Balance(0) = "5,000"
Balance(1) = "14,000"
Balance(2) = "2,000"
Balance(3) = "15,000"
Balance(4) = "20,000"
Balance(5) = "40,000"
Balance(6) = "200"
Balance(7) = "500"
Balance(8) = "3,000"
Balance(9) = "12,000"
Balance(10) = "21,000"
'
IDNumber(0) = "34538573"
IDNumber(1) = "13729472"
IDNumber(2) = "48502847"
IDNumber(3) = "48397548"
IDNumber(4) = "28495621"
IDNumber(5) = "12345678"
IDNumber(6) = "91011122"
IDNumber(7) = "34627842"
IDNumber(8) = "43244245"
IDNumber(9) = "15745462"
IDNumber(10) = "q546567"
'
Address(0) = "36 MaxBecker Drive"
Address(1) = "9 Coopperleaf Road"
Address(2) = "100 besideme Place"
Address(3) = "45 Crackmenow Street"
Address(4) = "190 Oppsok Drive"
Address(5) = "78 listwer Street"
Address(6) = "34 Fisher Drive"
Address(7) = "56 Dixie Road"
Address(8) = "12 Guelph Street"
Address(9) = "99 Peaks Street"
Address(10) = "45 Brayshaw Drive"
'
LogRecords(0).SourceName = "Steve McCracken"
LogRecords(1).SourceName = "Allen Smith"
LogRecords(2).SourceName = "Tom Stevenson"
LogRecords(3).SourceName = "Bob Noel"
LogRecords(4).SourceName = "Marcus Bell"
LogRecords(5).SourceName = "Phil Gretzky"
LogRecords(6).SourceName = "Jack Orr"
LogRecords(7).SourceName = "Chris Hull"
LogRecords(8).SourceName = "Craig Alomar"
LogRecords(9).SourceName = "Norm Jagr"
LogRecords(10).SourceName = "Ted Yzernam"
'
Dim psrdCurrent As System.IO.StreamReader
Dim pintCount As Integer
Dim pstrLine As String
Dim pstrFields() As String
Dim pintCurrent As Integer
Dim ofd As Windows.Forms.OpenFileDialog
ofd.ShowDialog()
psrdCurrent = New System.IO.StreamReader(ofd.FileName)
pstrLine = psrdCurrent.ReadLine()
'
Do Until pstrLine = Nothing
ReDim Preserve LogRecords(pintCount)
LogRecords(pintCount).SourceName = pstrFields(0)
LogRecords(pintCount).SourceIP = pstrFields(1)
LogRecords(pintCount).DestName = pstrFields(2)
LogRecords(pintCount).DestIP = pstrFields(3)
Loop
psrdCurrent.Close()
'
For pintCurrent = 0 To LogRecords.GetUpperBound(0)
cbonumber.Items.Add(LogRecords(pintCount).SourceName)
Next
'
If radfrequent.Checked = True Then
radfrequent.Text = 1
ElseIf radAverage.Checked = True Then
radAverage.Text = 2
ElseIf radInfrequent.Checked = True Then
radInfrequent.Text = 3
End If
'
'If IDNumber.Items.Count > 0 Then
Dim sfd As New System.Windows.Forms.SaveFileDialog
sfd.ShowDialog()
Dim fname As String = sfd.FileName
Dim sw As IO.StreamWriter = New IO.StreamWriter(fname)
Dim idx As Integer
For idx = 0 To IDNumber.Add.Count(-1)
sw.WriteLine(Name.Items(idx))
sw.WriteLine(lstValue.Items(idx))
Next
sw.Close()
'End If
End Sub
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
ok go ahead I am sure it is pretty funny lol
Reply With Quote