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_senddll の機能です。
prg_Timerはタイマー コントロールです。
Prg_barプログレスバーコントロールです。