掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VBで強固なパスチェックルーチンを組むには? (ID:74030)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
できた。 Private Sub Command1_Click() H = 1 A: DoEvents H = H + Y If H <> Int(H) Then H = Int(H) If H <> Int(H) Then GoTo A: Y = Y + 1 If H = 1000410# Then End N$ = "the calculator 2019." 'キー名を構築 N$ = N$ + Trim$(Str$(H)) N$ = N$ + ".key" Open N$ For Append As #1 '作成 Close #1 If H > 1000000 Then End 'キーナンバーが1000000以上になったら中止 GoTo A: End Sub Private Sub Command1_Click() H = 1 A: DoEvents H = H + Y If H <> Int(H) Then H = Int(H) If H <> Int(H) Then GoTo A: Y = Y + 1 If H = 1000410# Then End N$ = "the calculator 2019." 'キー名を構築 N$ = N$ + Trim$(Str$(H)) N$ = N$ + ".key" Open N$ For Append As #1 '作成 Close #1 If H > 1000000 Then End 'キーナンバーが1000000以上になったら中止 GoTo A: End Sub Hの増幅方法は多種多様です。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.