Declare Sub vxBrowseCase Lib "vxbase.dll" (ByVal DefCase As Integer)
Declare Sub vxBrowsePos Lib "vxbase.dll" (ByVal StartX As Integer, ByVal StartY As Integer, ByVal xWidth As Integer, ByVal yHeight As Integer)
Declare Sub vxCtlGrayReset Lib "vxbase.dll" ()
Declare Sub vxCtlGraySet Lib "vxbase.dll" ()
Declare Sub vxCtlLength Lib "vxbase.dll" (ByVal FieldName As String)
Declare Sub vxCtlStyle Lib "vxbase.dll" (CtlName As Any, ByVal Mode As Integer)
Declare Sub vxDouble Lib "vxbase.dll" (ByVal FieldName As String, DblAmount As Double)
Declare Sub vxExactOff Lib "vxbase.dll" ()
Declare Sub vxExactOn Lib "vxbase.dll" ()
Declare Sub vxFilter Lib "vxbase.dll" (ByVal FilterString As String)
Declare Sub vxFilterReset Lib "vxbase.dll" ()
Declare Sub vxFormFrame Lib "vxbase.dll" (ByVal Hwnd As Integer)
Declare Sub vxInit Lib "vxbase.dll" ()
Declare Sub vxJoin Lib "vxbase.dll" (ByVal DbfArea As Integer, ByVal NtxArea As Integer, ByVal JoinExpr As String, ByVal KeyType As Integer, ByVal JoinTitle As String)
Declare Sub vxJoinNoAuto Lib "vxbase.dll" ()
Declare Sub vxJoinReset Lib "vxbase.dll" ()
Declare Sub vxMemoEdit Lib "vxbase.dll" (ByVal Hwnd As Integer, ByVal FieldName As String)
Declare Sub vxMenuDeclare Lib "vxbase.dll" (ByVal NumItems As Integer)
Declare Sub vxMenuItem Lib "vxbase.dll" (ByVal MenuIndex As Integer, ByVal MenuLev As Integer, ByVal MenuString As String, ByVal MenuType As Integer)
Declare Sub vxReplDate Lib "vxbase.dll" (ByVal FieldName As String, ByVal DateString As String)
Declare Sub vxReplDouble Lib "vxbase.dll" (ByVal FieldName As String, DblAmount As Double)
Declare Sub vxReplInteger Lib "vxbase.dll" (ByVal FieldName As String, IntAmount As Integer)
Declare Sub vxReplLogical Lib "vxbase.dll" (ByVal FieldName As String, ByVal BoolVal As Integer)
Declare Sub vxReplLong Lib "vxbase.dll" (ByVal FieldName As String, LongInt As Long)
Declare Sub vxReplString Lib "vxbase.dll" (ByVal FieldName As String, ByVal FieldString As String)
Declare Sub vxSetDate Lib "vxbase.dll" (ByVal DateType As Integer)
Declare Sub vxSetErrorCaption Lib "vxbase.dll" (ByVal CaptionString As String)
Declare Sub vxSetLanguage Lib "vxbase.dll" (ByVal LangType As Integer)
Declare Sub vxSetupPrinter Lib "vxbase.dll" (ByVal Hwnd As Integer)
Declare Sub vxSum Lib "vxbase.dll" (ByVal FieldName As String, DblAmount As Double)
Declare Sub vxTableDeclare Lib "vxbase.dll" (ByVal ColorRef&, BofExpr As Any, EofExpr As Any, ByVal Scope%, ByVal Quick%, ByVal Columns%)
Declare Sub vxTableField Lib "vxbase.dll" (ByVal ColIndex As Integer, ByVal ColHead As String, ByVal ColExpr As String, ByVal ColType As Integer)
Declare Sub vxTableReset Lib "vxbase.dll" ()
Declare Sub vxWindowDereg Lib "vxbase.dll" (ByVal Hwnd As Integer)
' vxBase Functions
' ----------------
Declare Function vxAppendBlank Lib "vxbase.dll" () As Integer
Declare Function vxAppendFrom Lib "vxbase.dll" (ByVal FromFile As String) As Integer
Declare Function vxAreaDbf Lib "vxbase.dll" (ByVal DbfName As String) As Integer
Declare Function vxAreaNtx Lib "vxbase.dll" (ByVal NtxName As String) As Integer
Declare Function vxBof Lib "vxbase.dll" () As Integer
Declare Function vxBottom Lib "vxbase.dll" () As Integer
Declare Function vxChar Lib "vxbase.dll" (ByVal FieldName As String) As String
Declare Function vxClose Lib "vxbase.dll" () As Integer
Declare Function vxCloseAll Lib "vxbase.dll" () As Integer
Declare Function vxCloseNtx Lib "vxbase.dll" (ByVal NtxArea As Integer) As Integer
Declare Function vxCopy Lib "vxbase.dll" (ByVal NewDbfName As String) As Integer
Declare Function vxCopyStruc Lib "vxbase.dll" (ByVal NewDbfName As String) As Integer
Declare Function vxCreateNtx Lib "vxbase.dll" (ByVal NewNtxName As String, ByVal NtxExpr As String) As Integer
Declare Function vxDateFormat Lib "vxbase.dll" (ByVal DateField As String) As String
Declare Function vxDateString Lib "vxbase.dll" (ByVal DateField As String, ByVal DateType As Integer) As String
Declare Function vxDbfDate Lib "vxbase.dll" () As String
Declare Function vxDbfName Lib "vxbase.dll" () As String
Declare Function vxDeallocate Lib "vxbase.dll" () As Integer
Declare Function vxDecimals Lib "vxbase.dll" (ByVal FieldName As String) As Integer
Declare Function vxDeleted Lib "vxbase.dll" () As Integer
Declare Function vxDeleteRange Lib "vxbase.dll" (ByVal StartRec As Long, ByVal EndRec As Long) As Integer
Declare Function vxDeleteRec Lib "vxbase.dll" () As Integer
Declare Function vxDescend Lib "vxbase.dll" (ByVal KeyString As String) As String
Declare Function vxEmpty Lib "vxbase.dll" (ByVal FieldName As String) As Integer
Declare Function vxEof Lib "vxbase.dll" () As Integer
Declare Function vxField Lib "vxbase.dll" (ByVal FieldName As String) As String
Declare Function vxFieldCount Lib "vxbase.dll" () As Integer
Declare Function vxFieldName Lib "vxbase.dll" (ByVal FieldNumber As Integer) As String
Declare Function vxFieldSize Lib "vxbase.dll" (ByVal FieldName As String) As Integer
Declare Function vxFieldType Lib "vxbase.dll" (ByVal FieldName As String) As String
Declare Function vxFile Lib "vxbase.dll" (ByVal FileName As String) As Integer
Declare Function vxFound Lib "vxbase.dll" () As Integer
Declare Function vxGo Lib "vxbase.dll" (ByVal RecNum As Long) As Integer
Declare Function vxInteger Lib "vxbase.dll" (ByVal FieldName As String) As Integer
Declare Function vxIsMemo Lib "vxbase.dll" (ByVal MemoFieldName As String) As Integer
Declare Function vxIsRecLocked Lib "vxbase.dll" () As Integer
Declare Function vxLockDbf Lib "vxbase.dll" () As Integer
Declare Function vxLocked Lib "vxbase.dll" () As Integer
Declare Function vxLockRecord Lib "vxbase.dll" () As Integer
Declare Function vxLong Lib "vxbase.dll" (ByVal FieldName As String) As Long
Declare Function vxMemoRead Lib "vxbase.dll" (ByVal FieldName As String, ByVal LineWidth As Integer) As String
Declare Function vxNtxDeselect Lib "vxbase.dll" () As Integer
Declare Function vxNtxExpr Lib "vxbase.dll" (ByVal NtxArea As Integer) As String
Declare Function vxNtxName Lib "vxbase.dll" (ByVal NtxArea As Integer) As String
Declare Function vxNumRecs Lib "vxbase.dll" () As Long
Declare Function vxPack Lib "vxbase.dll" (ByVal Hwnd As Integer) As Integer
Declare Function vxRecall Lib "vxbase.dll" () As Integer
Declare Function vxRecNo Lib "vxbase.dll" () As Long
Declare Function vxRecord Lib "vxbase.dll" (RecStruc As Any) As Integer
Declare Function vxRecSize Lib "vxbase.dll" () As Integer
Declare Function vxReindex Lib "vxbase.dll" () As Integer
Declare Function vxReplMemo Lib "vxbase.dll" (ByVal FieldName As String, ByVal MemoString As String) As Integer
Declare Function vxSeek Lib "vxbase.dll" (ByVal SearchKey As String) As Integer
Declare Function vxSeekSoft Lib "vxbase.dll" (ByVal SearchKey As String) As Integer
Declare Function vxSelectDbf Lib "vxbase.dll" (ByVal DbfArea As Integer) As Integer
Declare Function vxSelectNtx Lib "vxbase.dll" (ByVal NtxArea As Integer) As Integer
Declare Function vxSetHandles Lib "vxbase.dll" (ByVal NumHandles As Integer) As Integer
Declare Function vxSkip Lib "vxbase.dll" (ByVal NumRecords As Long) As Integer
Declare Function vxTestNtx Lib "vxbase.dll" (ByVal NtxArea As Integer) As Integer
Declare Function vxTop Lib "vxbase.dll" () As Integer
Declare Function vxTrue Lib "vxbase.dll" (ByVal FieldName As String) As Integer
Declare Function vxUnlock Lib "vxbase.dll" () As Integer
Declare Function vxUseDbf Lib "vxbase.dll" (ByVal DbfName As String) As Integer
Declare Function vxUseDbfRO Lib "vxbase.dll" (ByVal DbfName As String) As Integer
Declare Function vxUseNtx Lib "vxbase.dll" (ByVal NtxName As String) As Integer
Declare Function vxWrite Lib "vxbase.dll" () As Integer
Declare Function vxZap Lib "vxbase.dll" () As Integer
' ---------------------------------------
' File structure data type. Add more
' elements or delete unnecessary elements
' as required by the largest dbf creation
' in your application
' ---------------------------------------
Type FileStruc
Fld01 As String * 16
Fld02 As String * 16
Fld03 As String * 16
Fld04 As String * 16
Fld05 As String * 16
Fld06 As String * 16
Fld07 As String * 16
Fld08 As String * 16
Fld09 As String * 16
Fld10 As String * 16
Fld11 As String * 16
Fld12 As String * 16
Fld13 As String * 16
Fld14 As String * 16
Fld15 As String * 16
Fld16 As String * 16
Fld17 As String * 16
Fld18 As String * 16
Fld19 As String * 16
Fld20 As String * 16
Fld21 As String * 16
Fld22 As String * 16
Fld23 As String * 16
Fld24 As String * 16
Fld25 As String * 16
Fld26 As String * 16
Fld27 As String * 16
Fld28 As String * 16
Fld29 As String * 16
Fld30 As String * 16
Fld31 As String * 16
Fld32 As String * 16
End Type
' declare functions that use FileStruc type
' -----------------------------------------
Declare Function vxCreateDbf Lib "vxbase.dll" (ByVal NewDbfName As String, ByVal NumFields As Integer, FStructure As FileStruc) As Integer
' ----------------------------------------
' define types file record structure for
' use in vxform8 and the vxRecord function
' ----------------------------------------
Type CatRec
cDelFlag As String * 1
Category As String * 3
CatName As String * 35
End Type
' note that every xbase record structure MUST begin
Global Const SCROLL_BARS = &H80000000 ' Scroll-bars gray area.
Global Const DESKTOP = &H80000001 ' Desktop.
Global Const ACTIVE_TITLE_BAR = &H80000002 ' Active window caption.
Global Const INACTIVE_TITLE_BAR = &H80000003 ' Inactive window caption.
Global Const MENU_BAR = &H80000004 ' Menu background.
Global Const WINDOW_BACKGROUND = &H80000005 ' Window background.
Global Const WINDOW_FRAME = &H80000006 ' Window frame.
Global Const MENU_TEXT = &H80000007 ' Text in menus.
Global Const WINDOW_TEXT = &H80000008 ' Text in windows.
Global Const TITLE_BAR_TEXT = &H80000009 ' Text in caption, size box, scroll-bar arrow box..
Global Const ACTIVE_BORDER = &H8000000A ' Active window border.
Global Const INACTIVE_BORDER = &H8000000B ' Inactive window border.
Global Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple document interface (MDI) applications.
Global Const HIGHLIGHT = &H8000000D ' Items selected item in a control.
Global Const HIGHLIGHT_TEXT = &H8000000E ' Text of item selected in a control.
Global Const BUTTON_FACE = &H8000000F ' Face shading on command buttons.
Global Const BUTTON_SHADOW = &H80000010 ' Edge shading on command buttons.
Global Const GRAY_TEXT = &H80000011 ' Grayed (disabled) text. This color is set to 0 if the current display driver does not support a solid gray color.
Global Const BUTTON_TEXT = &H80000012 ' Text on push buttons.
' BorderStyle (form, label, picture box, text box)