none
请教关于sstab的问题 RRS feed

  • 问题

  • 目前在学习vb制作浏览器. 不知道为什么sstab1_click达不到command3_click()的效果.我是想切换tab的同时隐藏另一个webbrowser.用了sstab1_click怎么就变成了全部的webbrowser都visible false了.

     

     

     

    Dim i As Integer
    Private Sub Command1_Click()
    WebBrowser1(0).Navigate "www.baidu.com"
    End Sub

    Private Sub Command2_Click()
    SSTab1.Tabs = 2

    Load WebBrowser1(1)
    WebBrowser1(1).Visible = True
    WebBrowser1(0).Left = 100
    WebBrowser1(0).Width = 5000
    WebBrowser1(1).Left = 5000
    WebBrowser1(1).Navigate "www.google.com"
    'SSTab1.Tab = 1
    End Sub

     

    Private Sub Command3_Click()
    If SSTab1.Tab = 0 Then
        WebBrowser1(0).Visible = True
        WebBrowser1(1).Visible = False
        MsgBox "激活1"

    Else
        WebBrowser1(0).Visible = False
        WebBrowser1(1).Visible = True
        MsgBox "激活2"

    End If
    End Sub

    Private Sub SSTab1_Click(PreviousTab As Integer)
    If SSTab1.Tab = 0 Then
        WebBrowser1(0).Visible = True
        WebBrowser1(1).Visible = False
        MsgBox "激活1"
    Else
        WebBrowser1(0).Visible = False
        WebBrowser1(1).Visible = True
        MsgBox "激活2"
    End If
    End Sub
    2008年12月25日 6:36

答案

全部回复

  • 你把webbrowser放到不同的tab上

     

    只要设置SSTab1.Tab =

     

    不需要隐藏

    2008年12月25日 8:04
    版主
  • webbrowser1(0)是手动拖到sstab1.tab=0上的,我想问一下load生成的webbrowser1(1)以及后面的怎么让它生成在指定的tab上?

    先sstab1.tab = N,然后load webbrowser(M)?

     

    尝试了下似乎没有效果,在sstab1.tab上看不见新生成的webbrowser1(1)

    SSTab1.Tab = 1
    Load WebBrowser1(1)
    WebBrowser1(1).Visible = True
    WebBrowser1(1).Navigate "www.google.com"

     

    OK.还需要再定义width.问题解决,感谢楼上

     

     

    2008年12月25日 8:10