teratail
回答率
85.47%
質問するログイン新規登録
トップに関する質問複数のメソッドを数値だけ変えて実行出来るようにしたい

編集履歴

質問編集履歴

2

変数名が間違っていたので修正

2019/06/29 09:11

投稿

Phonesuca
Phonesuca

スコア11

test CHANGED
File without changes
test CHANGED
@@ -102,7 +102,7 @@
102
102
 
103
103
  数値１ = 数値を記載するクラス.数値B.数値１
104
104
 
105
- 数値１ = 数値を記載するクラス.数値B.数値２０
105
+ 数値２０ = 数値を記載するクラス.数値B.数値２０
106
106
 
107
107
  End If
108
108
 

1

コード追加

2019/06/29 09:11

投稿

Phonesuca
Phonesuca

スコア11

test CHANGED
File without changes
test CHANGED
@@ -37,3 +37,119 @@
37
37
  なにか良い方法があればご教授ください。
38
38
 
39
39
  よろしくおねがいいたします。
40
+
41
+
42
+
43
+
44
+
45
+ 追記(5/29/17:45頃)
46
+
47
+ 現状での設計は以下の通りです。
48
+
49
+ 分かり辛くてすいません。
50
+
51
+
52
+
53
+ ```ここに言語を入力
54
+
55
+ Class 呼び出し元
56
+
57
+ Sub 制御メソッド()
58
+
59
+ Dim 処理インスタンスA = New 処理クラス("パターンA")
60
+
61
+ 処理インスタンスA.処理メソッド１()
62
+
63
+ 処理インスタンスA.処理メソッド２()
64
+
65
+
66
+
67
+ Dim 処理インスタンスB = New 処理クラス("パターンB")
68
+
69
+ 処理インスタンスB.処理メソッド１()
70
+
71
+ 処理インスタンスB.処理メソッド２()
72
+
73
+
74
+
75
+ End Sub
76
+
77
+ End Class
78
+
79
+
80
+
81
+
82
+
83
+ Class 処理クラス
84
+
85
+
86
+
87
+ ReadOnly Property 数値１ As Integer
88
+
89
+ ReadOnly Property 数値２０ As Integer
90
+
91
+
92
+
93
+ Sub New(パターン As String)
94
+
95
+ If パターン = "パターンA" Then
96
+
97
+ 数値１ = 数値を記載するクラス.数値A.数値１
98
+
99
+ 数値２０ = 数値を記載するクラス.数値A.数値２０
100
+
101
+ Else
102
+
103
+ 数値１ = 数値を記載するクラス.数値B.数値１
104
+
105
+ 数値１ = 数値を記載するクラス.数値B.数値２０
106
+
107
+ End If
108
+
109
+ End Sub
110
+
111
+
112
+
113
+ Sub 処理メソッド１()
114
+
115
+ '処理１
116
+
117
+ End Sub
118
+
119
+
120
+
121
+ Sub 処理メソッド２()
122
+
123
+ '処理２
124
+
125
+ End Sub
126
+
127
+ End Class
128
+
129
+
130
+
131
+ Class 数値を記載するクラス
132
+
133
+ Enum 数値A
134
+
135
+ 数値１ = 1
136
+
137
+ 数値２０ = 2
138
+
139
+ End Enum
140
+
141
+
142
+
143
+ Enum 数値B
144
+
145
+ 数値１ = 10
146
+
147
+ 数値２０ = 11
148
+
149
+ End Enum
150
+
151
+
152
+
153
+ End Class
154
+
155
+ ```