SolidWorks 使い方 入門
ソリッドワークス
メール
株式会社 サンエツ
SolidWorksの基本操作編
「Class calc」のコード全文です。
「Class calc」のコード全文
「Class calc」のコード全文を以下に掲載しておきます。参考にしてください。
Public Class
calc
Shared _rw As New Collections.Generic.List( Of String) '記号のリスト
Shared _hding As New Collections.Generic.List( Of String) '見出しのリスト
Shared _rownum As Integer '行数
Const shnbr As String = "記号"
Const stndrd As String = "規格値"
Const msr As String = "実測値"
Const err As String = "誤差"
'Class Form1から値を受け取るメソッド
Public Sub adrow(ByVal rint As Integer )
_rw.Clear() 'リストのクリア
_hding.Clear() 'リストのクリア
'記号（アルファベット）をリストにadd
For i As Integer = 97 To 122
'アルファベットを大文字に変換
_rw.Add(Chr(i).ToString().ToUpper())
Next
'見出しの項目をadd
_hding.Add(shnbr)
_hding.Add(stndrd)
_hding.Add(msr)
_hding.Add(err)
_rownum = rint 'Class Form1から渡された値
End Sub
'見出しのリストをプロパティに読み込む
Public ReadOnly Property hding() As Collections.Generic.List(Of String )
Get
Return _hding '見出しのリスト
End Get
End Property
'行数の読み取りプロパティ
Public ReadOnly Property rownum() As Integer
Get
Return _rownum
End Get
End Property
'アルファベットの読み取りプロパティ
Public ReadOnly Property rw() As Collections.Generic.List(Of String )
Get
Return _rw
End Get
End Property
End Class
Shared _rw As New Collections.Generic.List( Of String) '記号のリスト
Shared _hding As New Collections.Generic.List( Of String) '見出しのリスト
Shared _rownum As Integer '行数
Const shnbr As String = "記号"
Const stndrd As String = "規格値"
Const msr As String = "実測値"
Const err As String = "誤差"
'Class Form1から値を受け取るメソッド
Public Sub adrow(ByVal rint As Integer )
_rw.Clear() 'リストのクリア
_hding.Clear() 'リストのクリア
'記号（アルファベット）をリストにadd
For i As Integer = 97 To 122
'アルファベットを大文字に変換
_rw.Add(Chr(i).ToString().ToUpper())
Next
'見出しの項目をadd
_hding.Add(shnbr)
_hding.Add(stndrd)
_hding.Add(msr)
_hding.Add(err)
_rownum = rint 'Class Form1から渡された値
End Sub
'見出しのリストをプロパティに読み込む
Public ReadOnly Property hding() As Collections.Generic.List(Of String )
Get
Return _hding '見出しのリスト
End Get
End Property
'行数の読み取りプロパティ
Public ReadOnly Property rownum() As Integer
Get
Return _rownum
End Get
End Property
'アルファベットの読み取りプロパティ
Public ReadOnly Property rw() As Collections.Generic.List(Of String )
Get
Return _rw
End Get
End Property
End Class
コードにコメントを入れてありますので参考にしてください。
基本操作編INDEXに戻る場合はコチラ↓
