Comments on: License Acceptance Form

By: Todd Hogarth

Todd Hogarth — Thu, 21 Jun 2007 21:06:00 +0000

Since OpenOffice is open source, you might try looking at the source code.

By: Ivan F Moala

Ivan F Moala — Sat, 09 Jun 2007 15:23:00 +0000

Doug

Using a Frame would work
Assumes Frame1, commandbutton Named cmdAccept

Frame settings;
ScrollBars = 2 - frmScrollBarsVertical
ScrollHeight = set to show scroll eg larger then Height of Frame (mine @ 500)

Option Explicit

Dim m_Vertical As Single

Private Sub Frame1_Scroll(ByVal ActionX As MSForms.fmScrollAction, ByVal ActionY As MSForms.fmScrollAction, _
ByVal RequestDx As Single, ByVal RequestDy As Single, ByVal ActualDx As MSForms.ReturnSingle, _
ByVal ActualDy As MSForms.ReturnSingle)

If ActualDy + Frame1.ScrollTop = m_Vertical Then cmdAccept.Enabled = True

End Sub

Private Sub UserForm_Initialize()

m_Vertical = 0

Do
Frame1.ScrollTop = m_Vertical
If Frame1.ScrollTop <> m_Vertical Then Exit Do
m_Vertical = m_Vertical + 1
Loop

m_Vertical = m_Vertical - 1
Frame1.ScrollTop = 0
cmdAccept.Enabled = False

End Sub

By: Jon Peltier

Jon Peltier — Sat, 26 May 2007 20:26:00 +0000

Andy -

Clever. That's conceptually related to your textbox to measure the height of a chart's text element by moving it down to the bottom of the chart, then subtracting its .Top property from the chart area's .Height property.

By: Andy Pope

Andy Pope — Sat, 26 May 2007 17:24:00 +0000

Get the listbox to tell you the information you need.

Force the last item in the listbox to be the topindex. Then when you check the property it will return the actual topindex needed for the test.

Private m_lngTopIndex As Long
Private Sub UserForm_Initialize()

Dim lngIndex As Long

With ListBox1
For lngIndex = 1 To 50
.AddItem lngIndex
Next

.TopIndex = .ListCount - 1
m_lngTopIndex = .TopIndex
.TopIndex = 0
End With
CommandButton1.Enabled = False

End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If Me.ListBox1.TopIndex = m_lngTopIndex Then
Me.CommandButton1.Enabled = True
End If

End Sub

By: Doug Glancy

Doug Glancy — Sat, 26 May 2007 16:36:00 +0000

Dick, I spent way too much time trying to do this last night with a frame and its scroll event. It really seemed like it should work, there’s quite a bit of info with that event, but none that I could figure that would let me know when I’d hit bottom.