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
|