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是进度条控件。