Net_mang_Form.Prg_bar.Visible = True
Net_mang_Form.Prg_bar.Value = 0
Net_mang_Form.prg_Timer.Start()
Dim chk As Integer = file_send(dev_id, dev_type, Net_mang_Form.snd_file_path, ip_addr & "#1206", contrl_id)
'=================== Upload Process is finished =====================
Net_mang_Form.prg_Timer.Stop()
Net_mang_Form.Prg_bar.Visible = False
'====================================================================
ここNet_mang_Form
にForm1
、このコードは のボタン クリック イベントに記述されていますForm2
。
file_send
dll の機能です。
prg_Timer
はタイマー コントロールです。
Prg_bar
プログレスバーコントロールです。