这是试用版的代码   如何用到开发版里面 求教

项目事件

AfterOpenProject

forms("图片播放").open()

计划管理

计划1

If Forms("图片播放").Opened Then

    With Tables("图片")

        .Position = .Position + 1

    End With

    If  Tables("图片").Position = Tables("图片").Rows.Count - 1 Then

        Tables("图片").Position = 0

    End If

End If

计划2

If Forms("图片播放").Opened Then

    Dim i As Integer

    For i = 0 To Tables("图片").Rows.Count -1

        Dim Val1 As Integer = Rand.Next(0,i)

        Dim s As String ="图片" & Val1 & ".jpg"

        With Tables("图片")

            Dim r As Integer

            r = .FindRow("[图片]=\'" & s & "\'", .Position + 1, True ) \'从当前行开始查找

            If r >= 0 Then \'如果找到的话

                .Position = r \'定位到找到的行.

            End If

        End With

    Next

End If

表事件

窗口表事件

窗口与控件事件

图片播放_AfterLoad

Tables("图片").Position = 0

Forms("图片播放").Controls("SplitContainer1").SplitterDistance = 943

e.Form.Controls("Label1").Text = ">>"

e.Form.BaseForm.showintaskbar = True

图片播放_Button1_Click

Tables("图片").AddNew

图片播放_Button2_Click

Tables("图片").Current.Delete

图片播放_Label1_Click

If e.Form.Controls("Label1").Text = "<<" Then

    Forms("图片播放").Controls("SplitContainer1").SplitterDistance = 943

    e.Form.Controls("Label1").Text = ">>"

Else

    Forms("图片播放").Controls("SplitContainer1").SplitterDistance = 698

    e.Form.Controls("Label1").Text = "<<"

End If

图片播放_RadioButton1_CheckedChanged

Dim rdo As WinForm.RadioButton

rdo = Forms("图片播放").Controls("RadioButton1")

If rdo.Checked = True Then

    MyTimers("计划2").Enabled = False

    MyTimers("计划1").Enabled = True

End If

图片播放_RadioButton2_CheckedChanged

Dim rdo As WinForm.RadioButton

rdo = Forms("图片播放").Controls("RadioButton2")

If rdo.Checked = True Then

    MyTimers("计划1").Enabled = False

    MyTimers("计划2").Enabled = True

End If

自定义函数

全局代码

菜单事件

不管是试用版，还是开发版，代码都通用的。