質問編集履歴

3

コード編集

2016/01/18 07:41

投稿

IkumiFukiishi
IkumiFukiishi

スコア13

test CHANGED
File without changes
test CHANGED
@@ -7,8 +7,6 @@
7
7
  現在,問題をランダムな文字と色の組み合わせで表示させること,下の答えをランダムな文字で表示させること,これらの文字を2秒毎に表示させることが下記のコードでできています.
8
8
 
9
9
  問題開始から5分後に色を4色にするために新しいフォームを表示させたいのですが,うまくいきません.
10
-
11
- おそらく初めからForm2が呼び出されています.
12
10
 
13
11
  アドバイスをお願いします.
14
12
 

2

コード修正

2016/01/18 07:41

投稿

IkumiFukiishi
IkumiFukiishi

スコア13

test CHANGED
File without changes
test CHANGED
@@ -66,7 +66,7 @@
66
66
 
67
67
  Me.Timer2.Interval = 1000 * 60 * 5
68
68
 
69
- Me.Timer2.Enabled = True
69
+ Me.Timer2.Start()
70
70
 
71
71
  End Sub
72
72
 
@@ -80,11 +80,9 @@
80
80
 
81
81
  Sub Timer2_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer2.Tick
82
82
 
83
- Dim f As New Form2
83
+ Me.Close()
84
84
 
85
- f.Owner = Me
86
-
87
- f.Show()
85
+ Form2.Show()
88
86
 
89
87
  End Sub
90
88
 

1

現状

2016/01/18 07:03

投稿

IkumiFukiishi
IkumiFukiishi

スコア13

test CHANGED
File without changes
test CHANGED
@@ -7,6 +7,8 @@
7
7
  現在,問題をランダムな文字と色の組み合わせで表示させること,下の答えをランダムな文字で表示させること,これらの文字を2秒毎に表示させることが下記のコードでできています.
8
8
 
9
9
  問題開始から5分後に色を4色にするために新しいフォームを表示させたいのですが,うまくいきません.
10
+
11
+ おそらく初めからForm2が呼び出されています.
10
12
 
11
13
  アドバイスをお願いします.
12
14