{"id":378,"date":"2024-08-20T12:48:27","date_gmt":"2024-08-20T12:48:27","guid":{"rendered":"https:\/\/xojo.itbib4you.be\/?page_id=378"},"modified":"2025-06-22T14:27:15","modified_gmt":"2025-06-22T14:27:15","slug":"a-list-of-transactions","status":"publish","type":"page","link":"https:\/\/xojo.itbib4you.be\/index.php\/a-list-of-transactions\/","title":{"rendered":"A List of Transactions"},"content":{"rendered":"\n
\n
Overview<\/a><\/div>\n<\/div>\n\n\n\n

Introduction<\/h2>\n\n\n\n

In this lesson we will use DesktopListBox<\/mark> to record and display all transactions made to our accounts.<\/p>\n\n\n\n

DesktopListBox<\/h2>\n\n\n\n

A DesktopListBox <\/mark> is used to store and display data in rows and columns. The row and column numbers start from zero<\/mark>.<\/p>\n\n\n

\n
\"DesktopListBox\"
DesktopListBox<\/figcaption><\/figure>\n<\/div>\n\n\n

The following properties<\/mark> are very useful:<\/p>\n\n\n\n

Property<\/th>Type<\/th>Description<\/th><\/tr><\/thead>
ColumnCount<\/td>Integer<\/td>The number of columns in the ListBox<\/td><\/tr>
HasHeader<\/td>Boolean<\/td>If True<\/mark>, a header is added to the ListBox<\/td><\/tr>
HasHorizontalScrollbar<\/td>Boolean<\/td>If True<\/mark>, adds a horizontal scrollbar if the sum of the width of all columns exceeds the width of the ListBox<\/td><\/tr>
HasVerticalScrollbar<\/td>Boolean<\/td>If True<\/mark>, adds a vertical scrollbar to the ListBox<\/td><\/tr>
LastAddedRowIndex<\/td>Integer<\/td>The number of the last row added<\/td><\/tr>
RowCount<\/td>Integer<\/td>The number of rows in the ListBox<\/td><\/tr>
SelectedRowIndex<\/td>Integer<\/td>The number of the selected row <\/td><\/tr><\/tbody><\/table>
DesktopListBox Properties<\/figcaption><\/figure>\n\n\n\n

The following methods<\/mark> are used frequently:<\/p>\n\n\n\n

Method<\/th>Type<\/th>Description<\/th><\/tr><\/thead>
AddRow<\/td>String()<\/td>Adds a new row to the end of the ListBox and fills the columns with the values in the String array<\/td><\/tr>
ColumnAlignmentAt<\/td>Integer<\/td>Gets or sets the alignment of the specified column<\/td><\/tr>
HeaderAt<\/td>Integer<\/td>Gets or sets the header of a specified column<\/td><\/tr>
RemoveAllRows<\/td><\/td>Removes all rows in the ListBox<\/td><\/tr>
RemoveRowAt<\/td>Integer<\/td>Removes the specified row<\/td><\/tr><\/tbody><\/table>
DesktopListBox Methods<\/figcaption><\/figure>\n\n\n\n

The following events<\/mark> will handle some user actions:<\/p>\n\n\n\n

Event<\/th>Description<\/th><\/tr><\/thead>
DoublePressed<\/td>The user has double-pressed on a row<\/td><\/tr>
SelectionChanged<\/td>The selected row has been changed by the user or by code<\/td><\/tr><\/tbody><\/table>
DesktopListBox Events<\/figcaption><\/figure>\n\n\n\n

Modifications to the application<\/h2>\n\n\n\n

Window lay-out<\/h3>\n\n\n
\n
\"All<\/figure>\n<\/div>\n\n\n

In our updated application we will store all transactions from all our accounts in a DesktopListBox<\/mark>.<\/p>\n\n\n\n

Add a DesktopListBox<\/h3>\n\n\n\n

The DesktopListBox <\/mark>control is available in the library<\/mark> under the Viewers<\/mark> section. Drag this control on the AccountWindow<\/mark>. Change the Name<\/mark> property of this control to TransactionList<\/mark>.<\/p>\n\n\n\n

It is good practice to end the name of a DesktopListBox<\/mark> with the suffix 'List<\/mark>'.<\/pre>\n\n\n\n
In the Inspector<\/mark> we can already initialise some properties of TransactionList<\/mark>(e.g. Column Count<\/mark>, Has Header<\/mark>, Has Horizontal Scrollbar<\/mark>…). These settings can also be defined by code in the Opening<\/mark> event of TransactionList<\/mark>. This is our code in the Opening<\/mark> event of TransactionList<\/mark>:<\/p>\n\n\n\n
Me.ColumnCount = 3

Me.HasHeader = True
Me.HeaderAt(0) = \"Account\"
Me.HeaderAt(1) = \"Deposit\"
Me.HeaderAt(2) = \"Withdraw\"

Me.ColumnAlignmentAt(0) = DesktopListBox.Alignments.Left
Me.ColumnAlignmentAt(1) = DesktopListBox.Alignments.Right
Me.ColumnAlignmentAt(2) = DesktopListBox.Alignments.Right<\/pre>\n\n\n\n
Instead of using the prefix Me<\/mark>, you can also refer to the name of the control TransactionList<\/mark> (e.g. TransactionList.ColumnCount = 3).  However, if you change the Name<\/mark> of the control, it must be changed in all statements.<\/p>\n\n\n\n
The Me<\/mark> prefix always refers to the control that contains the current event handler. When you change the Name<\/mark> property of the control the Me<\/mark> prefix still refers to the correct control.<\/pre>\n\n\n\n
The ColumnAlignmentAt<\/mark> method is assigned a value from the Enumeration set<\/mark> named Alignments<\/mark> available within the class DesktopListBox<\/mark>.<\/p>\n\n\n\n
An Enumeration set<\/mark> is a group of named elements.In our example the Name<\/mark> of this group is Alignments<\/mark> and the elements in the group are Left<\/mark>, Center<\/mark>,Right<\/mark> and Decimal<\/mark>(aligned to the decimal point). To refer to an element in the set you use the following construct:

ClassName.EnumerationName.EnumerationValue<\/em>

Example:

DesktopListBox.Alignments.Center<\/em><\/pre>\n\n\n\n
DepositButton: Pressed<\/h3>\n\n\n\n
The Pressed<\/mark> even of DepositButton<\/mark> should increase the selected account, but should also add a new row to TransactionList<\/mark>. A new row is added with the AddRow<\/mark> method.<\/p>\n\n\n\n
The following code can be used:<\/p>\n\n\n\n
Var<\/mark> accountName As String<\/mark> 
accountName = AccountPopup.SelectedRowText

Select Case<\/mark> accountName
Case<\/mark> \"CheckingAccount\"
  CheckingAccount.DepositMoney(1500.00)
  TransactionList.AddRow(\"CheckingAccount\", Str(1500.00,\"+#####.00\"))
Case<\/mark> \"SavingsAccount\"
  SavingsAccount.DepositMoney(600.00)
  TransactionList.AddRow(\"SavingsAccount\", Str(600.00,\"+#####.00\"))
Case<\/mark> \"RetirementAccount\"
  RetirementAccount.DepositMoney(200.00)
  TransactionList.AddRow(\"RetirementAccount\", Str(200.00,\"+#####.00\"))
End<\/mark> 
<\/pre>\n\n\n\n
The AddRow<\/mark> method fills two columns in the appended row of TransactionList<\/mark>: the first column with the name of the account, the second column with the value of the deposit. Both values are separated by a comma. <\/p>\n\n\n\n
The Str<\/mark> method used in the second column returns a formatted String<\/mark> of the value passed. The format specification is a String<\/mark> made up with the following characters:<\/p>\n\n\n\n
Character<\/th>Description<\/th><\/tr><\/thead>
+<\/td>Displays a plus sign to the left if the number is positive or a minus sign if the number is negative<\/td><\/tr>
–<\/td>Displays a minus sign to the left if the number is negative or a plus sign if the number is positive<\/td><\/tr>
#<\/td>Displays a digit on this place if a digit is present<\/td><\/tr>
0<\/td>Displays a digit on this place if a digit is present or a zero if no digit is present<\/td><\/tr>
.<\/td>Position of the decimal point<\/td><\/tr><\/tbody><\/table>
Format Specification Characters<\/figcaption><\/figure>\n\n\n\n
WithdrawButton: Pressed<\/h2>\n\n\n\n
The Pressed<\/mark> event of WithdrawButton<\/mark> is very similar to the Pressed<\/mark> event of DepositButton<\/mark>:<\/p>\n\n\n\n
Var<\/mark> accountName As String<\/mark> 
Var<\/mark> amount As Currency<\/mark>
accountName = AccountPopup.SelectedRowText

Select Case<\/mark> accountName
Case<\/mark> \"CheckingAccount\"
  amount = CheckingAccount.WithdrawMoney(275.00)
  TransactionList.AddRow(\"CheckingAccount\",\"\", _
     Str(-amount,\"+#####.00\"))
Case<\/mark> \"SavingsAccount\"
  amount = SavingsAccount.WithdrawMoney(150.00)
  TransactionList.AddRow(\"SavingsAccount\",\"\", _
     Str(-amount,\"+#####.00\"))
Case<\/mark> \"RetirementAccount\"
  amount = RetirementAccount.WithdrawMoney(100.00)
  TransactionList.AddRow(\"RetirementAccount\",\"\", _
     Str(-amount,\"+#####.00\"))
End<\/mark> <\/pre>\n\n\n\n
The third column in the list is used to display the amount withdrawn from an account. The second column (deposits) must stay empty. An empty String (“”) is used for the second column.<\/p>\n\n\n\n
The underscore<\/mark> character (_<\/mark>) is used to indicate that the code is continued on the next line.<\/pre>\n\n\n\n
ShowButton: Pressed<\/h3>\n\n\n\n
The Pressed<\/mark> event of ShowButton<\/mark> can be developed as follows:<\/p>\n\n\n\n
Var<\/mark> accountName As String<\/mark> 
accountName = AccountPopup.SelectedRowText

Select Case<\/mark> accountName
Case<\/mark> \"CheckingAccount\"
  BalanceLabel.Text = \"The balance of the checking account = \" + _ 
  CheckingAccount.GetBalance.ToString(locale.current)
Case<\/mark> \"SavingsAccount\"
  BalanceLabel.Text = \"The balance of the savings account = \" + _ 
  SavingsAccount.GetBalance.ToString(locale.current)
Case<\/mark> \"RetirementAccount\"
  BalanceLabel.Text = \"The balance of the retirement account = \" + _ 
  RetirementAccount.GetBalance.ToString(locale.current)
End<\/mark><\/pre>\n","protected":false},"excerpt":{"rendered":"
Introduction In this lesson we will use DesktopListBox to record and display all transactions made to our accounts. DesktopListBox A DesktopListBox is used to store and display data in rows and columns. The row and column numbers start from zero. The following properties are very useful: Property Type Description ColumnCount Integer The number of columns … Continue reading “A List of Transactions”<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"footnotes":""},"class_list":["post-378","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/xojo.itbib4you.be\/index.php\/wp-json\/wp\/v2\/pages\/378","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/xojo.itbib4you.be\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/xojo.itbib4you.be\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/xojo.itbib4you.be\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/xojo.itbib4you.be\/index.php\/wp-json\/wp\/v2\/comments?post=378"}],"version-history":[{"count":33,"href":"https:\/\/xojo.itbib4you.be\/index.php\/wp-json\/wp\/v2\/pages\/378\/revisions"}],"predecessor-version":[{"id":592,"href":"https:\/\/xojo.itbib4you.be\/index.php\/wp-json\/wp\/v2\/pages\/378\/revisions\/592"}],"wp:attachment":[{"href":"https:\/\/xojo.itbib4you.be\/index.php\/wp-json\/wp\/v2\/media?parent=378"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}