网上搜索,很多都是说子窗口传值到父窗口,我现在为了实现webbrowser的自定义下载,前面的功夫都做到了,就差如何做个下载进度指示,之前一直不知道如何解决,后来从其他代码中忽然灵感一现.....
父窗口:Form1中按钮Button1,定时器Timer1
Public Class Form1
Dim f2 As Form2
Dim step1 As Integer = 1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
f2 = New Form2
f2.Show()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
f2.TextBox1.Text = step1
step1 += 1
If step1 > 20 Then
f2.Close()
step1 = 1
Timer1.Enabled = False
End If
End Sub
End Class
子窗口:Form2中文本框TextBox1
这里 Dim f2 As Form2 而不是定义为 Dim f2 As Form ,这样就可以直接访问form2中元素。