Dim instance As Std = New Std() Dim value1 As ToolStripButton = New ToolStripButton() instance.AddInMenuAdd(value1) Dim value2 As ToolStripLabel = New ToolStripLabel() instance.AddInMenuAdd(value2) Dim value3 As ToolStripSplitButton = New ToolStripSplitButton() instance.AddInMenuAdd(value3) Dim value4 As ToolStripDropDownButton = New ToolStripDropDownButton() instance.AddInMenuAdd(value4) Dim value5 As ToolStripSeparator = New ToolStripSeparator() instance.AddInMenuAdd(value5) Dim value6 As ToolStripComboBox = New ToolStripComboBox() instance.AddInMenuAdd(value6) Dim value7 As ToolStripTextBox = New ToolStripTextBox() instance.AddInMenuAdd(value7) Dim value8 As ToolStripProgressBar = New ToolStripProgressBar() instance.AddInMenuAdd(value8)
'Stdクラス プロパティ AddInMenuAdd Imports System.Windows.Forms Public Class AddIn Private std As Std Public Sub New() std = New Std() End Sub Public Sub AddIn_Start() Dim ddButton As ToolStripDropDownButton = New ToolStripDropDownButton("user") Dim dd As ToolStripDropDownMenu = New ToolStripDropDownMenu() ddButton.DropDown = dd End Sub '''''' ONと言う名前のボタンを追加します。 ''' Private Sub tsbOn() Dim tsbOn As ToolStripButton = New ToolStripButton("ON") std.AddInMenuAdd(tsbOn) End Sub '''''' OFFと言う名前のボタンを追加します。 ''' Private Sub tsbOff() Dim tsbOff As ToolStripButton = New ToolStripButton("OFF") std.AddInMenuAdd(tsbOff) End Sub '''''' セパレーターを追加します。 ''' Private Sub tss() Dim tss As ToolStripSeparator = New ToolStripSeparator() tss.AutoSize = True std.AddInMenuAdd(tss) End Sub '''''' ラベルを追加します。 ''' Private Sub tsLabel() Dim tsl As ToolStripLabel = New ToolStripLabel tsl.Text = "ラベル" std.AddInMenuAdd(tsl) End Sub '''''' テキストボックスを追加します。 ''' Private Sub tsText() Dim tst As ToolStripTextBox = New ToolStripTextBox std.AddInMenuAdd(tst) End Sub End Class
このページのQRコード
便利ウェブサイト
便利 Android アプリ
便利 iOS(iPhone,iPad) アプリ