teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

4

タグ編集

2018/06/27 07:57

投稿

nakajob
nakajob

スコア13

title CHANGED
File without changes
body CHANGED
File without changes

3

足りていないソースの追加

2018/06/27 07:57

投稿

nakajob
nakajob

スコア13

title CHANGED
File without changes
body CHANGED
@@ -30,6 +30,17 @@
30
30
 
31
31
  Public Class frmMain
32
32
  Public Shared index As Integer
33
+
34
+ Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
35
+ Dim f As New frmMain()
36
+ '表示位置
37
+ f.StartPosition = FormStartPosition.WindowsDefaultLocation
38
+ '最大サイズと最小サイズを現在のサイズに設定する
39
+ Me.MaximumSize = Me.Size
40
+ Me.MinimumSize = Me.Size
41
+ Me.TopMost = False
42
+ Me.FormBorderStyle = FormBorderStyle.None
43
+ End Sub
33
44
  Private Sub btn_frm1_Click(sender As System.Object, e As System.EventArgs) Handles btn_frm1.Click
34
45
  If index = 1 Then
35
46
  Else

2

誤字

2018/06/27 07:39

投稿

nakajob
nakajob

スコア13

title CHANGED
File without changes
body CHANGED
@@ -45,7 +45,7 @@
45
45
  End If
46
46
  End Sub
47
47
 
48
- Private Sub btn_frm2_Click(sender As System.Object, e As System.EventArgs) Handles btn_frm1.Click
48
+ Private Sub btn_frm2_Click(sender As System.Object, e As System.EventArgs) Handles btn_frm2.Click
49
49
  If index = 2 Then
50
50
  Else
51
51
  Dim f As New From2()

1

ソースを追加しました。

2018/06/27 07:37

投稿

nakajob
nakajob

スコア13

title CHANGED
File without changes
body CHANGED
@@ -22,4 +22,67 @@
22
22
  この時にForm2を開く時にForm1が開いていれば、そのフォームを閉じるという 方法を知りたいです。
23
23
  frmMainから(From1.Close())を試してもダメでした。
24
24
 
25
- よろしくお願いします。
25
+ よろしくお願いします。
26
+
27
+ ##追加です
28
+ ```VB.net
29
+ frmMain.vb
30
+
31
+ Public Class frmMain
32
+ Public Shared index As Integer
33
+ Private Sub btn_frm1_Click(sender As System.Object, e As System.EventArgs) Handles btn_frm1.Click
34
+ If index = 1 Then
35
+ Else
36
+ Dim f As New From1()
37
+ f.FormBorderStyle = FormBorderStyle.None
38
+ f.Top = Me.Top
39
+ f.Left = Me.Left
40
+ f.StartPosition = FormStartPosition.Manual
41
+ f.Show()
42
+ MsgBox("close")
43
+ Form2.Close()
44
+ index = 1
45
+ End If
46
+ End Sub
47
+
48
+ Private Sub btn_frm2_Click(sender As System.Object, e As System.EventArgs) Handles btn_frm1.Click
49
+ If index = 2 Then
50
+ Else
51
+ Dim f As New From2()
52
+ f.FormBorderStyle = FormBorderStyle.None
53
+ f.Top = Me.Top
54
+ f.Left = Me.Left
55
+ f.StartPosition = FormStartPosition.Manual
56
+ f.Show()
57
+ MsgBox("close")
58
+ Form1.Close()
59
+ index = 2
60
+ End If
61
+ End Sub
62
+ End Class
63
+
64
+ Form1.vb
65
+ Public Class From1
66
+ Private Sub From1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
67
+
68
+ '最大サイズと最小サイズを現在のサイズに設定する
69
+ Me.MaximumSize = Me.Size
70
+ Me.MinimumSize = Me.Size
71
+ ' このフォームを常に最前面に表示する
72
+ Me.TopMost = True
73
+ End Sub
74
+ End Class
75
+
76
+ Form2.vb
77
+ Public Class From2
78
+ Private Sub From2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
79
+
80
+ '最大サイズと最小サイズを現在のサイズに設定する
81
+ Me.MaximumSize = Me.Size
82
+ Me.MinimumSize = Me.Size
83
+ ' このフォームを常に最前面に表示する
84
+ Me.TopMost = True
85
+ End Sub
86
+ End Class
87
+ コード
88
+ ```