WankumaVBライブラリ公開第1弾

ライブラリ公開第1弾

とりあえず関数一覧を作ろうとして途中で断念そのうちゆっくり作りたいと思います。

VBライブラリページ http://blogs.users.gr.jp/naka/category/217.aspx

ダウンロードページ http://blogs.users.gr.jp/naka/articles/2937.aspx

• 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
• Now Construct
• ToolDBOracle.cls
• Now Construct
• ToolDBSQL.cls
• Now Construct
• ToolExcel.cls
• Now Construct
• ToolFile.cls
• Now Construct
• ToolRegistry.cls
• Now Construct
• ToolString.cls
• Now Construct
• ToolValueCheck.cls
• Now Construct

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