dlgsetpicture函数示例.sbs

来自「SPSS的实战介绍」· SBS 代码 · 共 31 行

Sub Main
	Begin Dialog UserDialog 700,413,.DialogFunc ' %GRID:10,7,1,1
		Picture 340,7,350,336,"",0,.Picture
		PushButton 290,371,140,28,"&图片浏览",.photo
		Picture 10,7,320,336,"Picture1",0,.Picture1
		PushButton 510,371,130,28,"取    消",.Cancel
		PushButton 70,371,140,28,"显示图片",.view
	End Dialog
    Dim dlg As UserDialog
    Debug.Print Dialog(dlg)
End Sub

Function DialogFunc%(DlgItem$, Action%, SuppValue%)
    Select Case Action%
    Case 1
        Beep
    Case 2
        Select Case DlgItem$
        Case "photo"
            FileName = GetFilePath("Bitmap","BMP")
            DlgSetPicture "Picture",FileName,0
            DialogFunc% = True
        Case "view"
            DlgSetPicture "Picture1","c:\Windows\安装程序.bmp",0
            DialogFunc%=True
        Case "Cancel"
            DialogFunc=False
        End Select
    End Select
End Function