Question

我想从模块中的函数调用表单中的函数

所以我在表单中定义了函数Init_StockForm（）（称为Form）：

$page = (int) $request->input('page') ?: 1;

$files = collect(Storage::allFiles('/upload_file'));
$onPage = 15;

$slice = $files->slice(($page-1)* $onPage, $onPage);

$paginator = new \Illuminate\Pagination\LengthAwarePaginator($slice, $files->count(), $onPage);
return view('cms.viewSystem.gallery.manageFiles')->with('files', $paginator);

我在模块中调用该函数如下：

    Public Sub Init_StockForm()

      MsgBox ("Bla")

    End Sub

但这会导致运行时错误91

那么这里有什么问题？谢谢你帮忙

Answer 1

创建表单的新实例（VBA是面向对象的编程语言）

模块：

Private Sub callFormSub()
Dim myForm As New UserForm1
myForm.subInUserForm
End Sub

形式：

Public Sub subInUserForm()
MsgBox "BLA"
End Sub

Answer 2

感谢您的回答今天我发布的解决方案也有效（：/）原因可能是我的安装上的一个错误，因为宏在其他功能中也显示了一个非常奇怪的行为，但如果我不能，我会稍后在其他帖子中发布解决它

VBA Excel：从模块中调用表单子

2 个答案: