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