掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
動的にコントロール配列をLoadする際、すでにLoadされているかチェックする方法について (ID:86511)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
On Error 使った方が楽そうだけどこんな方法も。 Private Sub Command1_Click() Dim objTxt As Object Dim AddIndex As Integer AddIndex = 1 If Not IsIndex(AddIndex, Text1) Then ' ; Load Text1(AddIndex) ' ; End If End Sub Private Function IsIndex(No As Integer, objBase As Object) As Boolean Dim objX As Object For Each objX In objBase If objX.Index = No Then IsIndex = True Exit Function End If Next End Function
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.