网上搜索,很多都是说子窗口传值到父窗口,我现在为了实现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
这里 Dim f2 As Form2 而不是定义为 Dim f2 As Form ,这样就可以直接访问form2中元素。
原文链接:/vb/258119.html