Results 1 to 11 of 11

Thread: OK, Adding an item to a perticular Tab on an SSTab?

  1. #1

    Thread Starter
    Frenzied Member wpearsall's Avatar
    Join Date
    Feb 2002
    Location
    England / UK
    Posts
    1,065

    OK, Adding an item to a perticular Tab on an SSTab?

    Hey ya,

    With the loading of a new profile, i load a new browser (Get the info in a browser cuz The profile is on my website ETC ), cuz i dont wanna X Out the previous info, so im adding it to SSTabs, and adding the SSTabs ETC, as new windows are opened.

    Any how:

    VB Code:
    1. Dim BrwIntMax As Long
    2.  
    3. Private Sub Command1_Click()
    4. SSTab1.TabsPerRow = SSTab1.TabsPerRow + 1
    5. SSTab1.Tabs = SSTab1.Tabs + 1
    6. SSTab1.Tab = SSTab1.Tabs - 1
    7.  
    8.         BrwIntMax = BrwIntMax + 1
    9.        
    10.         ' Load a new browser
    11.         Load WebBrowser1(BrwIntMax)
    12. End Sub

    With this code, i load the browser ETC, but,

    How do i get the WebBrowser1(BrwIntMax) onto the
    SSTab1.Tab = SSTab1.Tabs - 1?
    Wayne

  2. #2
    Lively Member Daniel McCool's Avatar
    Join Date
    Oct 2002
    Posts
    127
    You can do WebBrowser1(BrwIntMax).container = SSTab1.tab(whatever tab man), that will shift the browser onto that tab.

  3. #3

    Thread Starter
    Frenzied Member wpearsall's Avatar
    Join Date
    Feb 2002
    Location
    England / UK
    Posts
    1,065
    How do i make the browser window show?

    Its loaded up, but it isnt visible?

    VB Code:
    1. Dim BrwIntMax As Long
    2.  
    3. Private Sub Command1_Click()
    4. SSTab1.TabsPerRow = SSTab1.TabsPerRow + 1
    5. SSTab1.Tabs = SSTab1.Tabs + 1
    6. SSTab1.Tab = SSTab1.Tabs - 1
    7.  
    8.         BrwIntMax = BrwIntMax + 1
    9.        
    10.         ' Load a new browser
    11.         Load WebBrowser1(BrwIntMax)
    12.         WebBrowser1(BrwIntMax).Container = SSTab1.Tab = SSTab1.Tabs - 1
    13.        
    14. WebBrowser1(BrwIntMax).Left = WebBrowser1(0).Left
    15. WebBrowser1(BrwIntMax).Top = WebBrowser1(0).Top
    16. WebBrowser1(BrwIntMax).Width = WebBrowser1(0).Width
    17. WebBrowser1(BrwIntMax).Height = WebBrowser1(0).Height
    18. WebBrowser1(BrwIntMax).Visible = True
    19. End Sub

    The Origional Browser is shown etc, but not its "New Browsers" ?
    Wayne

  4. #4
    Lively Member Daniel McCool's Avatar
    Join Date
    Oct 2002
    Posts
    127
    WebBrowser1(BrwIntMax).Zorder should bring it forth.
    "Some love is fire, some love is rust. But the finest, cleanest love is lust." - James Bond

  5. #5

    Thread Starter
    Frenzied Member wpearsall's Avatar
    Join Date
    Feb 2002
    Location
    England / UK
    Posts
    1,065
    : ZOrder(??)

    What do i need to add for the Possition? (Lol used to only using Stuff i add to the form myself, so this is a little "New" to me

    tnx
    Wayne

  6. #6
    Lively Member Daniel McCool's Avatar
    Join Date
    Oct 2002
    Posts
    127
    Sorry I forgot to include that information.
    VB Code:
    1. WebBrowser1(BrwIntMax).ZOrder (0) 'should bring it forward
    2. WebBrowser1(BrwIntMax).ZOrder (1) 'should send it back
    "Some love is fire, some love is rust. But the finest, cleanest love is lust." - James Bond

  7. #7

    Thread Starter
    Frenzied Member wpearsall's Avatar
    Join Date
    Feb 2002
    Location
    England / UK
    Posts
    1,065
    Still not working?
    Attached Files Attached Files
    Wayne

  8. #8
    Lively Member Daniel McCool's Avatar
    Join Date
    Oct 2002
    Posts
    127
    I appologize, I gave you the incorrect usage for .container.

    VB Code:
    1. Set Control.Container = SSTab1
    "Some love is fire, some love is rust. But the finest, cleanest love is lust." - James Bond

  9. #9

    Thread Starter
    Frenzied Member wpearsall's Avatar
    Join Date
    Feb 2002
    Location
    England / UK
    Posts
    1,065
    Dat still dont make it visible for me though?

    Do u have a working copy?
    Wayne

  10. #10
    Lively Member Daniel McCool's Avatar
    Join Date
    Oct 2002
    Posts
    127
    VB Code:
    1. Set label9.Container = FrameTab0 ' change it to another frame
    2.         Label8.Move Label8.Left, 60, Label8.Width, Label8.Height ' move it
    "Some love is fire, some love is rust. But the finest, cleanest love is lust." - James Bond

  11. #11

    Thread Starter
    Frenzied Member wpearsall's Avatar
    Join Date
    Feb 2002
    Location
    England / UK
    Posts
    1,065
    OK, Sorry, its working now (missed the "Set" )

    OK, now, its only going into

    SSTab1.Tab = 0

    How do i go into tab = SSTab1.Tabs -1?
    Wayne

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width