The Open Source Swiss Army Knife
|
|||||
| | |||||
| sub-categories and articles | ||
 FileCopy |
add | |
| FileCopyxxx |
add | |
| Filecopy2 |
will not open in my visual basic | |
| --->create new sub-category | ||
 DualListManager_src.zip | ||
| add
| ||
| additem.txt | ||
| add
Here is a procedure may help you Private Sub Form_Load() Dim g_DBINFO as ADODB.Connection Set g_DBINFO= New ADODB.Connection | ||
| arrays.htm | ||
| add
| ||
| dateconversion.txt | ||
| add
'*******************************************************************'Purpose : Stores date as long integer'Receives : String implementation of date value'Returnes : Long integer representing provided date'------------------------------------------------------------------------------------------'Created by Vital on 14/02/1997'********************************************************************Function Date2Num(strDate As String) As Long On Error GoTo err_hndl Dim lngResult As Long lngResult = CDate(strDate) - 29220 MinMaxLong lngResult, -(2 ^ 15 - 2), 2 ^ 15 - 1 Date2Num = lngResult Exit Functionerr_hndl: Date2Num = 0End Function'*******************************************************************'Purpose : Limits value inside provided ranks'Receives : Long integers of value and its ranks'Returnes : Long integer '------------------------------------------------------------------------------------------'Created by Vital on 14/02/1997'********************************************************************Public Sub MinMaxLong(A&, B&, C&) If A& < B& Then A& = B& If A& > C& Then A& = C&End Sub'*******************************************************************'Purpose : Converts Long into string representing date'Receives : Long integer implementing date value'Returnes : String in format dd/mm/yyyy'------------------------------------------------------------------------------------------'Created by Vital on 14/02/1997'********************************************************************Function Num2Date(lngCurDat) As String On Error GoTo err_hndl Num2Date$ = Format(lngCurDat + 29220, "dd/MM/yyyy") Exit Functionerr_hndl: Num2Date = ""End Function | ||
| listbox.txt | ||
| add
Remarks When a list box control's MultiSelect property is set to None, only one item can have its Selected property set to True. When a list box control's MultiSelect property is set to Simple or Extended, any or all of the items can have their Selected property set to True. A multiple-selection list box bound to a field will always have a Value property equal to Null. You use the Selected property or the ItemsSelected collection to retrieve information about which items are selected. You can use the Selected property to select items in a list box by using Visual Basic. For example, the following expression selects the fifth item in the list: Me!Listbox.Selected(4) = True | ||
| --->upload your article | ||
User submitted category site links |
||
(None) | ||
-->submit a page from your site dealing with vb to the sirfsup! web directory for listing | ||