フォームをランダムに呼び出すには？

解決

---

ボタンを押したらフォームがランダムで表示させる方法がわかりそうでわからないのですが、どなたかわかる人がおられたら教えてください。お願いします。あと一回表示したらかぶらないようにする方法もできればお願いします。

編集 削除

---

複数のFormのなかから、という意味でしょうか？
Formがn個あるなら、
0〜n-1の整数をシャッフルして配列に入れ、
順に取り出して、それをIndex値として
formsコレクションで取り出すとか・・・

編集 削除

---

説明不足でしたね。複数のフォームの中からどれかをとりだすということです。

編集 削除

---

なにぶん初心者の中の初心者なので適当でいいんでソースを表示してもらえれば幸いなのですが・・・ぜひお願いします。

編集 削除

---

なんでもアリと思いますが、一例です。
Private Sub cmdCommand_Click()
   Call subSample
以下略

Public Sub subSample()
Dim frmSample As Form
        Select Case Int(Rnd(1)*5)+1    
          Case 1
            Set frmSample = New Form1
          Case 2
            Set frmSample = New Form2
略
        End Select
        frmSample.Show vbModal
略
   frmSample = Nothing
Exit Sub

編集 削除

---

こんなわがままな質問に答えていただいてどうもありがとうございました！また色々とおねがいすることになるかもしれませんがよろしくお願いします。

編集 削除

---

送信を押してないのに投稿されてしまいました。
乱数箇所は一度変数に格納してから、比較しないといけませんね。

Dim intR As Integer
intR = Int(Rnd(1)*5)+1    
        Select Case intR

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。