baoo777

Option Explicit
Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Public Type TAG_FIELD
    Text As String

baoo777

Option Compare Database
Option Explicit
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
    ByVal hwndParent As Long, _
    ByVal hwndChildAfter As Long, _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Public Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" _
    (ByVal hWnd As Long, _
    ByVal Msg As Long, _

baoo777

'###########################################################################################
'  ClickCompactAndRepair
'
'  データベースの最適化ボタンをクリック
'
'  引数:無し
'
'  戻り値:無し
'
'  備考:参照設定にてUIAutomationClientにチェックすること

baoo777

Option Explicit
Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Public Type TAG_FIELD
    Text As String

baoo777

' /////////////////////////////////////////////////////////////////////////////////////
' //#名称 SrcToString
' //
' //#概要
' //
' //#引数 無し
' //
' //#戻値 無し
' //
' //#解説

baoo777

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
    ByVal hWnd1 As Long, _
    ByVal hWnd2 As Long, _
    ByVal lpsz1 As String, _
    ByVal lpsz2 As String) As Long
Private Declare Function GetCursorPos Lib "user32" ( _

baoo777

Option Explicit
Sub aaaa()
    
    Dim lngArry() As Variant
    ReDim lngArry(9) As Variant
    
    Dim i As Long
    For i = 0 To 9
        lngArry(i) = i
    Next i

baoo777

Option Explicit


Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Sub Test()

baoo777

Option Compare Database
Option Explicit
Private lngSelectColumn As Long
Private Sub cmdCreateMail_Click()

    Dim i As Long
    Dim objOutlook As Outlook.Application
    Dim objMail As Outlook.MailItem
    
    Set objOutlook = New Outlook.Application

baoo777

Option Compare Database
Option Explicit
Public objExcel As Object
Private mnu1 As clsMnuEvnt
Private mnu2 As clsMnuEvnt
Private Sub testIn()
    
    Dim cb As CommandBar
    Dim ctl1 As CommandBarControl