SpinButton1应用一例

ningyong58

Book1.rar (9.82 KB, 下载次数: 59)

2010-1-2 09:39 上传

点击文件名下载附件

在应用时一定要注意下面的设置
    .Min = 1
    .Max = 30
    .SmallChange = 1
如在下Flash通讯时，数据源的间隔设置与Flash的关键帧的设置问题．
序号        "计量
高度"
1        100
2        200
3        300
4        400


Private Sub SpinButton1_Change()
  With SpinButton1
    'Sheet1.ShockwaveFlash1.GotoFrame .Value - 1
    nn = .Value
    Debug.Print "nn = .Value / 5", nn, .Value
    .Min = 1
    .Max = 30
    .SmallChange = 1
  End With

  With Sheet1
    'If Sheet1.SpinButton1.Value > 1 Then
      '.ShockwaveFlash1.SetVariable "vStr", "计量高度:" & Sheet1.Cells(13 + nn, 2) & "mm"
      .Cells(10, 7) = Sheet1.Cells(13 + nn, 2)
      .Cells(12, 2) = Sheet1.Cells(13 + nn, 4)
    'End If
  End With
End Sub

ningyong58

此帖讨论的问题是
Private Sub SpinButton1_Change(SpinScale)不成立
Private Sub SpinButton1_Change()成立
对于采用SpinButton与Flash关键帧的关联有个问题比例问题
  totFrame = Sheet1.ShockwaveFlash1.TotalFrames
    totSpin = .Max
    SpinScale = totFrame / totSpin
此程序只能放到SpinButton1_Change中．不可能用
Private Sub SpinButton1_Change(SpinScale)，下面程序是不成立的．

Private Sub SpinButton1_Change(SpinScale)
  Dim totFrame, totSpin
  With SpinButton1
    totFrame = Sheet1.ShockwaveFlash1.TotalFrames
    totSpin = .Max
    SpinScale = totFrame / totSpin
    Sheet1.ShockwaveFlash1.GotoFrame .Value * SpinScale ' - 1
    nn = .Value '/ 10 + 1

  End With

  With Sheet1
    'If Sheet1.SpinButton1.Value > 1 Then
      .ShockwaveFlash1.SetVariable "vStr", "计量高度:" & Sheet1.Cells(13 + nn, 2) & "mm"
      .Cells(10, 7) = Sheet1.Cells(13 + nn, 2)
      .Cells(12, 2) = Sheet1.Cells(13 + nn, 4)
    'End If
  End With
End Sub