WankumaVBライブラリ関数一覧

• basEtc.bas
  • Public Function strGetGUID() As String
• basOpenFile.bas
  • Public Function blnSelectFile(ByRef strFileName As String, ByVal lnghWnd As Long) As Boolean
  • Public Function blnOpenFile(ByRef strFileName As String, ByVal lnghWnd As Long) As Boolean
  • Public Function strBrowseFolder(ByVal lnghWnd As Long, ByVal strInitialPath As String) As String
• ToolArray.cls
  • Public Function vntArrayCopy(ByVal vntSrcArray As Variant) As Variant()
• ToolControl.cls
  • Public Sub subLockTextbox(txtTarget As TextBox)
  • Public Sub subUnlockTextbox(txtTarget As TextBox)
  • Public Sub subLockCombo(cboTarget As ComboBox)
  • Public Sub subUnlockCombo(cboTarget As ComboBox)
• ToolDate.cls
  • Public Function blnIsYear(ByVal strCheckString As String) As Boolean
  • Public Function blnIsMonthSlash7(ByVal strCheckString As String) As Boolean
  • Public Function blnIsDateSlash10(ByVal strCheckString As String) As Boolean
  • Public Function blnIsDateOmitOr8(ByVal strCheckString As String) As Boolean
  • Public Function blnIsLeapYear(ByVal intYear As Integer) As Boolean
  • Public Function dtmLastDate(ByVal dtmDate As Date) As Date
  • Public Function dtmFirstDayOfWeek(ByVal dtmDate As Date, Optional ByVal intFirstDayofWeek As VbDayOfWeek = vbSunday) As Date
  • Public Function dtmLastDayOfWeek(ByVal dtmDate As Date, Optional ByVal intFirstDayofWeek As VbDayOfWeek = vbSunday) As Date
  • Public Function intDate2Nendo(ByVal dtmDate As Date) As Integer
  • Public Function strFormatDate(ByVal strDate As String, ByVal FormatDatePatern As enumFORMAT_DATE_PATERN) As String
• ToolDBCommon.cls
• Public Function strDBUpdateBIT(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As String
• Public Function strDBUpdateNUMBER(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As String
• Public Function strDBUpdateVARCHAR(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As String
• Public Function strDBWhereBIT(ByVal enumDBWHERE As enumDBWHERE_BIT_SIGN, Optional ByVal blnNullFlag As Boolean = True) As String
• Public Function strDBWhereNUMBER(ByVal vntTargetString As Variant, ByVal enumDBWHERE As enumDBWHERE_FIND_SIGN, Optional ByVal blnNullFlag As Boolean = True) As String
• Public Function strDBWhereVARCHAR(ByVal vntTargetString As Variant, ByVal enumDBWHERE As enumDBWHERE_VARCHAR_SIGN, Optional ByVal blnNullFlag As Boolean = True) As String
• Public Function strReplaceWhereLike(ByVal strCheckString As String, ByRef blnEscapeFlag As Boolean) As String
• Public Function vntSPUpdateBIT(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As Variant
• Public Function vntSPUpdateNUMBER(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As Variant
• Public Function vntSPUpdateVARCHAR(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As Variant
• Public Function vntSPUpdateDATE_YMD(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As Variant
• Public Function strDBReplaceUpdate(ByVal strCheckString As String) As String
• Public Function strReplaceUpdateChild(ByVal strCheckString As String) As String
• Public Function strSPReplaceUpdate(ByVal strCheckString As String) As String
• ToolDBOracle.cls
  • Public Function strDBUpdateDATE_Y(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBUpdateDATE_YM(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBUpdateDATE_YMD(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBUpdateBIT(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBUpdateNUMBER(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBUpdateVARCHAR(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBWhereBIT(ByVal enumDBWHERE As enumDBWHERE_BIT_SIGN, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBWhereDATE_Y(ByVal vntTargetString As Variant, ByVal enumDBWHERE As enumDBWHERE_FIND_SIGN, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBWhereDATE_YM(ByVal vntTargetString As Variant, ByVal enumDBWHERE As enumDBWHERE_FIND_SIGN, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBWhereDATE_YMD(ByVal vntTargetString As Variant, ByVal enumDBWHERE As enumDBWHERE_FIND_SIGN, Optional ByVal blnNullFlag As Boolean = True) As String
  • Private Function strDBWhereDATEChild(ByVal vntTargetString As Variant, ByVal enumDBWHERE As enumDBWHERE_FIND_SIGN, _
        ByVal blnNullFlag As Boolean, ByVal enum_DBWhereDATE_Child As enum_strDBWhereDATE_Child) As String
  • Public Function strDBWhereNUMBER(ByVal vntTargetString As Variant, ByVal enumDBWHERE As enumDBWHERE_FIND_SIGN, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBWhereVARCHAR(ByVal vntTargetString As Variant, ByVal enumDBWHERE As enumDBWHERE_VARCHAR_SIGN, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function vntSPUpdateBIT(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As Variant
  • Public Function vntSPUpdateDATE_YMD(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As Variant
  • Public Function vntSPUpdateNUMBER(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As Variant
  • Public Function vntSPUpdateVARCHAR(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As Variant
• ToolDBSQL.cls
  • Public Function strDBUpdateBIT(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBUpdateDATE_Y(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBUpdateDATE_YM(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBUpdateDATE_YMD(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBUpdateINT(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBUpdateVARCHAR(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBWhereBIT(ByVal enumDBWHERE As enumDBWHERE_BIT_SIGN, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBWhereDATE_Y(ByVal vntTargetString As Variant, ByVal enumDBWHERE As enumDBWHERE_FIND_SIGN, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBWhereDATE_YM(ByVal vntTargetString As Variant, ByVal enumDBWHERE As enumDBWHERE_FIND_SIGN, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBWhereDATE_YMD(ByVal vntTargetString As Variant, ByVal enumDBWHERE As enumDBWHERE_FIND_SIGN, Optional ByVal blnNullFlag As Boolean = True) As String
  • Private Function strDBWhereDATEChild(ByVal vntTargetString As Variant, ByVal enumDBWHERE As enumDBWHERE_FIND_SIGN, ByVal blnNullFlag As Boolean, ByVal enum_DBWhereDATE_Child As enum_strDBWhereDATE_Child) As String
  • Public Function strDBWhereINT(ByVal vntTargetString As Variant, ByVal enumDBWHERE As enumDBWHERE_FIND_SIGN, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function strDBWhereVARCHAR(ByVal vntTargetString As Variant, ByVal enumDBWHERE As enumDBWHERE_VARCHAR_SIGN, Optional ByVal blnNullFlag As Boolean = True) As String
  • Public Function vntSPUpdateBIT(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As Variant
  • Public Function vntSPUpdateDATE_YMD(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As Variant
  • Public Function vntSPUpdateINT(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As Variant
  • Public Function vntSPUpdateVARCHAR(ByVal vntTargetString As Variant, Optional ByVal blnNullFlag As Boolean = True) As Variant
  • Public Function strGetGUID(ByRef adoConnection As ADODB.Connection) As String
• ToolExcel.cls
  • Public Sub subDeleteNamesApplication(ByRef excelApplication As Excel.Application)
  • Public Sub subDeleteNamesWorkBook(ByRef excelWorkBook As Excel.Workbook)
  • Public Sub subDeleteNamesSheet(ByRef excelSheet As Excel.Worksheet)
  • Public Sub subPrintSetCellValue(ByRef excelApplication As Excel.Application, ByVal strReferenceName As String, ByVal vntValue As Variant, ByVal blnStringFlag As Boolean, Optional ByVal lngOffsetRow As Long = 0, Optional ByVal lngOffsetCol As Long = 0)
  • Public Sub subPrintPasteSpecial(ByRef excelApplication As Excel.Application, ByVal strReferenceName As String, ByVal lngOffsetRow As Long)
  • Public Function strConvCell2Range(ByVal lngRow As Long, ByVal lngCol As Long, Optional ByVal lngRow2 As Long, Optional ByVal lngCol2 As Long) As String
  • Private Function strConvCell2RangeChild(ByVal lngRow As Long, ByVal lngCol As Long) As String
  • Private Sub subDrawShapeLineChildSetV(ByRef xlsWorkSheet As Excel.Worksheet, ByVal lngCol As Long, ByVal lngRow As Long, ByRef sngY As Single, ByVal intVerticalPosition As enumEXCEL_SHAPE_VPOSITION)
  • Public Sub subDrawShapeLine(ByRef xlsWorkSheet As Excel.Worksheet, _
        ByVal lngRow As Long, _
        ByVal lngCol As Long, _
        ByVal sngColPersent As Single, _
        ByVal lngCol2 As Long, _
        ByVal sngCol2Persent As Single, _
        ByVal intVerticalPosition As enumEXCEL_SHAPE_VPOSITION, _
        ByVal msoAS_ArrorHead As Office.MsoArrowheadStyle, _
        ByVal msoLS_LineStyle As Office.MsoLineStyle, _
        ByVal xlsBW_LineWeight As XlBorderWeight)
  • Public Sub subCellUnion(ByRef excelApplication As Excel.Application, ByVal strReferenceName As String, _
        Optional ByVal lngOffsetRow As Long, Optional ByVal lngOffsetCol As Long, _
        Optional ByVal lngRow2 As Long, Optional ByVal lngCol2 As Long)
  • Public Sub subRowDel(ByRef excelApplication As Excel.Application, ByVal strReferenceName As String, _
        ByVal lngOffsetRow As Long)
  • Public Sub subPrintSetCellValueRC(ByRef excelApplication As Excel.Application, _
        ByVal lngRow As Long, ByVal lngCol As Long, _
        ByVal vntValue As Variant, ByVal blnStringFlag As Boolean, _
        Optional ByVal lngOffsetRow As Long = 0, Optional ByVal lngOffsetCol As Long = 0)
  • Public Function lngColumnReferenceFind(ByRef excelApplication As Excel.Application, ByVal strReferenceName As String, ByVal strFindValue As String) As Long
  • Public Function lngRowReferenceFind(ByRef excelApplication As Excel.Application, ByVal strReferenceName As String, ByVal strFindValue As String) As Long
• ToolFile.cls
  • Public Function strGetTempFolder() As String
  • Public Function strAppendFileNoFileName(ByVal strFileName As String, ByVal lngKetasu As Long, ByVal lngNo As Long, Optional ByVal strSeparator As String = "-") As String
  • Public Sub subSeparateFilePath(ByVal strFileName As String, ByRef strDestPath As String, ByRef strDestBody As String, ByRef strDestExtension As String)
  • Public Function blnParseCsv(ByVal strFileName As String, ByRef vntCsvData() As Variant, ByVal intColumnMax As Integer) As Boolean
• ToolRegistry.cls
  • Public Sub subSetRegistrySz(ByVal strPath As String, ByVal strKey As String, ByVal strValue As String)
  • Public Function strGetRegistrySz(ByVal strPath As String, ByVal strKey As String) As String
• ToolString.cls
  • Public Function vntReplace(ByRef vntExpression As Variant, ByRef strFind As String, ByRef strReplaceString As String, Optional ByRef lngStart As Long = 1, _
        Optional ByRef lngCount As Long = -1, Optional ByRef Compare As VbCompareMethod = vbBinaryCompare) As Variant
  • Public Function strLeftShiftJIS(ByVal strText As String, ByVal lngByteSize As Long) As String
  • Public Function strMidShiftJIS(ByVal strText As String, ByVal lngStartIndex As Long, ByVal lngByteSize As Long) As String
  • Public Function strRightShiftJIS(ByVal strText As String, ByVal lngByteSize As Long) As String
  • Public Function lngLenShiftJIS(ByVal strText As String) As Long
• ToolValueCheck.cls
• Public Function blnIsNumeric(ByVal strText As String) As Boolean
• Public Function blnIsKingaku(ByVal strText As String) As Boolean
• Public Function blnIsNumericOrAlphabet(ByVal strText As String) As Boolean
• Public Function blnIsTelephone(ByVal strCheckString As String) As Boolean
• Public Function blnIsZipCode(ByVal strCheckString As String) As Boolean
• Public Function blnIsHttpURI(ByVal strCheckString As String) As Boolean

投稿日時 : 2004年5月29日 22:12