فعال شدن text box ها بعد از لود شدن WebBrowser

[00936]

سلام . من جعبه متن(text box) رو enable غیر فعال کردم false - می خوام وقتی آدرسی که به WebBrowser دادم بعد از لود شدن کامل سایت enable های text box ها true بشه اگر ممکنه یکی کمکم کنه .

-------------------------

چند تا text box گزاشتم که وقتی درون آن چیزی می نویسم در همون سایت مثل صفحه لوگین سایت اونجا نشان داده می شه ولی تا وقتی که سایت که همان WebBrowser داده شده برنامه اررور میده وقتی سایت لود نشده و من چیزی درون text box می نویسم می خوام اول سایت لود شه بعد enable ها فعال شه آیا امکانش هست؟

[00936]

واقعا اینقدر سخت بود؟

[arashrj]

سلام
دستورات را در رويداد DocumentComplete كنترل WebBrowserبنويسيد :

کد:

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Text1.Enabled = True
    Text2.Enabled = True
    Text3.Enabled = True
End Sub

موفق باشيد

[00936]

سلام آرش جان واقعا ممنونم از کمکتون . ولی با کد بالایی که دادین ارور می داد برای همین از کد زیر استفاده کردم و جواب داد بازم ممنون از کمکتون.

کد:

Private Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Text1.Enabled = False Then Text1.Enabled = True
If Text2.Enabled = False Then Text2.Enabled = True
If Text3.Enabled = False Then Text3.Enabled = True
End Sub