Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Schuifbalken met VB 6.0

Anoniem
thiceman
13 antwoorden
  • Sorry ik heb deze topic op het verkeerde voard geplaats (werk altijd met 4 vensters als ik op ctforum surf :-(


    Ik wil graag een verticale schuifbalk voor een picturebox (picUitvoer)

    Ik heb wel een voorbeeld gevonden op internet aleen werkt dit alleen voor een heel forum en niet alleen voor een deel ervan.

    Dit is de code
    [code:1:fd38f9243d]
    Option Explicit

    ' Arrange the scroll bars.
    Private Sub ArrangeScrollBars()
    Dim have_wid As Single
    Dim have_hgt As Single
    Dim need_wid As Single
    Dim need_hgt As Single
    Dim need_hbar As Boolean
    Dim need_vbar As Boolean

    ' Don't bother if we're minimized.
    If WindowState = vbMinimized Then Exit Sub

    ' See how much room we need and
    ' how much room we have.
    need_wid = picInner.Width + (picOuter.Width - picOuter.ScaleWidth)
    need_hgt = picInner.Height + (picOuter.Height - picOuter.ScaleHeight)
    have_wid = ScaleWidth
    have_hgt = ScaleHeight

    ' See which scroll bars we need.
    need_hbar = (need_wid > have_wid)
    If need_hbar Then have_hgt = have_hgt - HBar.Height

    need_vbar = (need_hgt > have_hgt)
    If need_vbar Then
    ' This takes away a little width so we
    ' might need the horizontal scroll bar now.
    have_wid = have_wid - VBar.Width
    If Not need_hbar Then
    need_hbar = (need_wid > have_wid)
    If need_hbar Then have_hgt = have_hgt - HBar.Height
    End If
    End If

    ' Position the outer PictureBox leaving room
    ' for the scroll bars.
    picOuter.Move 0, 0, have_wid, have_hgt

    ' Position or hide the scroll bars.
    If need_hbar Then
    HBar.Move 0, have_hgt, have_wid
    HBar.Min = 0
    HBar.Max = picOuter.ScaleWidth - picInner.Width
    HBar.LargeChange = picOuter.ScaleWidth
    HBar.SmallChange = picOuter.ScaleWidth / 5
    HBar.Visible = True
    Else
    HBar.Visible = False
    End If

    If need_vbar Then
    VBar.Move have_wid, 0, VBar.Width, have_hgt
    VBar.Min = 0
    VBar.Max = picOuter.ScaleHeight - picInner.Height
    VBar.LargeChange = picOuter.ScaleHeight
    VBar.SmallChange = picOuter.ScaleHeight / 5
    VBar.Visible = True
    Else
    VBar.Visible = False
    End If
    End Sub
    Private Sub Form_Resize()
    ArrangeScrollBars
    End Sub
    Private Sub HBar_Change()
    picInner.Left = HBar.Value
    End Sub


    Private Sub HBar_Scroll()
    picInner.Left = HBar.Value
    End Sub


    Private Sub VBar_Change()
    picInner.Top = VBar.Value
    End Sub


    Private Sub VBar_Scroll()
    picInner.Top = VBar.Value
    End Sub
    [/code:1:fd38f9243d]
  • Waar moet deze heen … heb er geen kaas van gegeten, is dit nu scripting/programeren of webdesign? meld ff het goeie forum dan verplaats ik de topic.
  • Ha, dit is Visual basic en hoort dus bij programming.
  • Een move dus ;)
  • IS er dan niemand die antwoord op mijn vraag weet. Ik wil gewoon weten hoe je de schuifbalk kunt koppelen aan een picturebox. Is nergens te vinden!
  • Wil je de picturebox zelf verplaatsen, of alleen de picture in de box? Dat laatste is niet mogelijk, dat eerste zul je zelf moeten doen aan de hand van de events van de scrollbar.

    Dit topic staat trouwens nog steeds op de verkeerde plek…
  • Ik heb een aantal getallen als output voor de picturebox. Omdat dezwe rij vrij lang kan worden wil ik hierdoorheen kunnen scrollen
  • Is het niet makkelijker die getallen in een textbox te zetten?
  • Maakt dat uit dan?
  • Wat je kunt doen is een groter picturebox in een kleiner picture box te plaatsen. Je kunt wel de grotere box bekijken door gebruik te maken van de scrollbars. Ik weet dat ik dit ergens gezien heb maar ben vergeten waar.
  • [quote:6d2f7b8161="DarkScribe"]Wat je kunt doen is een groter picturebox in een kleiner picture box te plaatsen. Je kunt wel de grotere box bekijken door gebruik te maken van de scrollbars. Ik weet dat ik dit ergens gezien heb maar ben vergeten waar.[/quote:6d2f7b8161]

    Ik heb ook lang zitten denken over scrollen met een picturebox en ik kwam toen op dezelfde oplossing uit. Ik heb hier geen VB dus kan niet ff een voorbeeltje voor je maken.
    Maar het id was id een picturebox te maken die met autosize de grote van het plaatje aan nam. Dan de picturebox in een andere zetten. Met scrolbalken kun je dan de width en hight van de picture veranderen waardoor hij lijkt te scrollen.
  • [quote:585b302ff9="sdk"]Maakt dat uit dan?[/quote:585b302ff9]

    Natuurlijk, een textbox kan standaard al scrollen. Gewoon de properties multiline op true zetten en de scrollbars op 2 - Vertical.
  • bedankt voor de vele reacties, ik zal het nog eens proberen

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.