20 lines
481 B
VB.net
20 lines
481 B
VB.net
' MyModule: The main module of the sample project
|
|
' by imacat <imacat@mail.imacat.idv.tw>, 2017-08-01
|
|
|
|
Option Explicit
|
|
|
|
' Main: The main program
|
|
Sub Main
|
|
Dim oDialog As Object
|
|
|
|
DialogLibraries.loadLibrary "SampleProject"
|
|
oDialog = CreateUnoDialog (DialogLibraries.SampleProject.MyDialog)
|
|
' Cancelled
|
|
If oDialog.execute = 0 Then
|
|
Exit Sub
|
|
End If
|
|
|
|
|
|
MsgBox GetResString ("DinnerChoice") & oDialog.getControl ("MenuList1").getSelectedItem
|
|
End Sub
|