2008-08-12から1日間の記事一覧
Dim FL As New List(Of String) 'リストを作成 Public Sub ContAdd(ByVal FName As String) '重複のしないようにリストに追加 If FL.Contains(FName) = False Then FL.Add(FName) End If End Sub Public Function ExteJudge(ByVal FN As String) As Boolean …
Dim FL As New List(Of String) 'リストを作成 Public Sub ContAdd(ByVal FName As String) '重複のしないようにリストに追加 If FL.Contains(FName) = False Then FL.Add(FName) End If End Sub Public Function ExteJudge(ByVal FN As String) As Boolean …