主题：论坛里发现的好作品 如何引用 求解

 

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

 

项目事件

 

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

 

自定义函数

 

全局代码

 

菜单事件

 

 

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