「仮＿TOOLBOX」の編集履歴（バックアップ）一覧はこちら

「仮＿TOOLBOX」(2013/06/08 (土) 23:44:17) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

***仮＿TOOLBOX
- ソース

 Private filename As String
 Private filepath As String
 
 Private Sub class_initialize()
     filename = ""
     filepath = ""
 End Sub
 
 Public Function GetFileName() As String
     GetFileName = filename
 End Function
 
 Public Function GetFilePath() As String
     GetFilePath = filepath
 End Function
 
 Public Function SetFileName(ByVal iStr As String)
     filename = iStr
 End Function
 
 Public Function SetFilePath(ByVal iStr As String)
     filepath = iStr
 End Function
 
 
 

[[トップ]]


　

***仮＿TOOLBOX
- ソース

 Option Compare Database
 Option Explicit
 
 Public Sub MessageBox(ByVal iMessage As String)
     MsgBox (iMessage)
 End Sub
 
 

[[トップ]]