vb6.0如何调用fastreport ？

2026年09月20日 01:03

有2个网友回答

网友（1）：

Dim WithEvents frx As FastReport.TfrxReport

Private Sub Command1_Click()
Set frx = CreateObject("FastReport.TfrxReport")
frx.EngineOptions.SilentMode = simMessageBoxes
frx.LoadReportFromFile ("C:\Documents and Settings\Administrator\桌面\123.fr3")

网友（2）：

在窗体上放一个复选框check1，把Index的值设置为0
动态加载：

Dim i As Integer
Dim num As Integer

num = 10 'Num为你要加载的数
For i = 1 To num - 1
Load Me.Check1(i)
Check1(i).Left = Check1(0).Left + Check1(0).Width * i
Check1(i).Top = Check1(0).Top
Check1(i).Visible = True
Check1(i).Caption = "爱好" & i
Next i