株式会社 サンエツ
「Class Form1」のコードのコードの作成
「Class Form1」のコードのコードの作成
動作の流れ
- 「Form1_Shown」イベントで「NumericUpDown1」の初期値を設定します。
こちらはデザイナー画面のプロパティの編集でも設定できます。
- 「NumericUpDown1_ValueChanged」イベントで「NumericUpDown1」の値が変化した場合
制限値を超えたらカスタムエラーにします。
- 「Button1_Click」イベントで「Class calc」の作成と「NumericUpDown1」の値を「Class calc」
に渡してフォームを閉じます。
デザイナー画面の画像を掲載しますので参考にしてください。
「NumericUpDown1_ValueChanged」イベント
記号の表示はアルファベット1文字ですので「NumericUpDown1_ValueChanged」イベントでは
行数が2行から25行までに制限します。コードはこのようにしました。アルファベットは27文字ありますのでもっと
増やしてもいいですね。
Private Sub
NumericUpDown1_ValueChanged(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles
NumericUpDown1.ValueChanged
If
NumericUpDown1.Value < 2
Then
NumericUpDown1.Value = 2
ElseIf
NumericUpDown1.Value > 25
Then
NumericUpDown1.Value = 25
End If
End Sub
Button1_Clickイベント
「Class calc」の作成をします。
Dim cl As New calc()
「NumericUpDown1」の値を変数intに代入します。
Dim int As Integer = NumericUpDown1.Value
「Class calc」に値を渡します。
cl.adrow(int)
adrowは「Class SolidWorksMacro」の中で作成します。
値を「Class calc」に渡したら」Form1は必要ありませんので閉じます。
Me.Close()
Button1_Clickイベントのコードです。
Private Sub
Button1_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles
Button1.Click
'Class calcの作成
Dim
cl As New
calc()
'NumericUpDown1の値をintに代入
Dim
int As Integer
= NumericUpDown1.Value
'Class calcに値を渡す
cl.adrow(int)
'Form1を閉じる
Me
.Close()
End Sub
このページでは「Class Form1」のコードを作成しました。次はマクロで生成した
「Class SolidWorksMacro」の編集をします。