Private Sub Form_Load() SliderLinkText.Text = CStr(Slider1.Value) End Sub Private Sub Slider1_Change() SliderLinkText.Text = CStr(Slider1.Value) End Sub Private Sub Slider1_Scroll() SliderLinkText.Text = CStr(Slider1.Value) End Sub
Private Sub Form_Load() Label1.LinkTopic = "ProjectA|HideponForm" Label1.LinkItem = "SliderLinkText" Check1.Caption = "自動同期" Command1.Caption = "手動取得" End Sub Private Sub Check1_Click() Label1.LinkMode = IIf(Check1.Value, vbLinkAutomatic, vbLinkNone) End Sub Private Sub Command1_Click() Label1.LinkMode = vbLinkManual Label1.LinkRequest Label1.LinkMode = vbLinkNone End Sub