Oct 25th, 2002, 08:37 PM
#1
Thread Starter
Frenzied Member
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:
Dim BrwIntMax As Long
Private Sub Command1_Click()
SSTab1.TabsPerRow = SSTab1.TabsPerRow + 1
SSTab1.Tabs = SSTab1.Tabs + 1
SSTab1.Tab = SSTab1.Tabs - 1
BrwIntMax = BrwIntMax + 1
' Load a new browser
Load WebBrowser1(BrwIntMax)
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?
Oct 25th, 2002, 08:39 PM
#2
Lively Member
You can do WebBrowser1(BrwIntMax).container = SSTab1.tab(whatever tab man), that will shift the browser onto that tab.
Oct 25th, 2002, 08:45 PM
#3
Thread Starter
Frenzied Member
How do i make the browser window show?
Its loaded up, but it isnt visible?
VB Code:
Dim BrwIntMax As Long
Private Sub Command1_Click()
SSTab1.TabsPerRow = SSTab1.TabsPerRow + 1
SSTab1.Tabs = SSTab1.Tabs + 1
SSTab1.Tab = SSTab1.Tabs - 1
BrwIntMax = BrwIntMax + 1
' Load a new browser
Load WebBrowser1(BrwIntMax)
WebBrowser1(BrwIntMax).Container = SSTab1.Tab = SSTab1.Tabs - 1
WebBrowser1(BrwIntMax).Left = WebBrowser1(0).Left
WebBrowser1(BrwIntMax).Top = WebBrowser1(0).Top
WebBrowser1(BrwIntMax).Width = WebBrowser1(0).Width
WebBrowser1(BrwIntMax).Height = WebBrowser1(0).Height
WebBrowser1(BrwIntMax).Visible = True
End Sub
The Origional Browser is shown etc, but not its "New Browsers" ?
Oct 25th, 2002, 08:51 PM
#4
Lively Member
WebBrowser1(BrwIntMax).Zorder should bring it forth.
"Some love is fire, some love is rust. But the finest, cleanest love is lust." - James Bond
Oct 26th, 2002, 10:05 AM
#5
Thread Starter
Frenzied Member
: 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
Oct 26th, 2002, 12:45 PM
#6
Lively Member
Sorry I forgot to include that information.
VB Code:
WebBrowser1(BrwIntMax).ZOrder (0) 'should bring it forward
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
Oct 26th, 2002, 12:53 PM
#7
Thread Starter
Frenzied Member
Attached Files
Oct 26th, 2002, 03:48 PM
#8
Lively Member
I appologize, I gave you the incorrect usage for .container.
VB Code:
Set Control.Container = SSTab1
"Some love is fire, some love is rust. But the finest, cleanest love is lust." - James Bond
Oct 26th, 2002, 04:11 PM
#9
Thread Starter
Frenzied Member
Dat still dont make it visible for me though?
Do u have a working copy?
Oct 26th, 2002, 04:19 PM
#10
Lively Member
VB Code:
Set label9.Container = FrameTab0 ' change it to another frame
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
Oct 26th, 2002, 04:36 PM
#11
Thread Starter
Frenzied Member
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?
Posting Permissions
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
Forum Rules
Click Here to Expand Forum to Full Width