The Open Source Swiss Army Knife
|
|||||
| | |||||
| sub-categories and articles | |
| --->create new sub-category | |
 Form_switchboard.txt | |
| add
VERSION 1.0 CLASS BEGIN MultiUse = -1 'True END Attribute VB_Name = "Form_switchboard" | |
| acctut11code1.txt | |
| add
Private Sub cmdOK_Click() Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim varItem As Variant Dim strCriteria As String | |
| lstHowto.txt | |
| add
1. populating a list box from callback function: VERSION 1.0 CLASS | |
| msdn.txt | |
| add
The next example shows how you can select items from one list box and copy them to another list box. To try this example, create a new form in the Northwind sample database and add two list boxes to the form, named List1 and List2. Set the MultiSelect property of List1 to Extended. Add the following code to the form's module to create the Load event procedure. When the form loads, this code will fill List1 with a list of product names from the Products table. It will also notify you if the MultiSelect property is set to None. Private Sub Form_Load() Dim lst1 As ListBox, lst2 As ListBox Dim strSQL As String, strMsg As String Set lst1 = Me!List1 | |
| multiSelect.txt | |
| add
The following code does just that. It loops through a list box and displays the combined final value in a message box. You could adapt this for your own requirements and add this code to the 'On Click' event of a command button. ' List2 is the name of the Listbox. Private Sub Command4_Click() ' Declaration of variables Dim IntLoop As Integer | |
| --->upload your article | |
User submitted category site links |
|
(None) | |
-->submit a page from your site dealing with listboxes to the sirfsup! web directory for listing | |