Dim instance As TextLabel Dim value As System.Windows.Forms.Padding Dim returnValue As System.Windows.Forms.Padding instance.Padding = value returnValue = instance.Padding
'TextLabelクラス Paddingプロパティ Public Class AddIn Private std As Std Private tl As TextLabel Public Sub New() std = New Std() tl = New TextLabel(std.Owner) End Sub Public Sub AddIn_Start() tl.Text = "Hello World" tl.Padding = New System.Windows.Forms.Padding(5, 10, 20, 30) '左 上 右 下 tl.Show() End Sub Public Sub AddIn_Stop() tl.Close() End Sub End Class
このページのQRコード
便利ウェブサイト
便利 Android アプリ
便利 iOS(iPhone,iPad) アプリ