Question

按键精灵8调用子函数获取返回值怎么实现？就是判断，返回参数，我想返回flag参数，但是返回不了

Sub huoqu(flag)

s=Plugin.GetSysInfo.GetScreenResolutionX
Msgbox "获得屏幕分辨率宽度："&s
If s=1440 Then
flag=yes
Else
flag=no
End if
//下面这句是获得屏幕分辨率高度
SH = Plugin.GetSysInfo.GetScreenResolutionY
Msgbox "获得屏幕分辨率高度："&SH
End sub
Call huoqu(g)

msgbox "s=["&s&"]sh="&sh&"flag="&g //这里想返回一个参数

Answer 1

//调用过程的方法实现显示三个变量值：
DIM s , sh , flag//定义全局变量，可以不用
Call huoqu() //调用过程
msgbox "s=["&s&"]sh="&sh&"flag="&flag

SUB huoqu() //定义过程
s=Plugin.GetSysInfo.GetScreenResolutionX
Msgbox "获得屏幕分辨率宽度："&s
If s=1440 Then
flag="yes" //字符串用双引号
Else
flag="no" ///字符串用双引号
End if
//下面这句是获得屏幕分辨率高度
SH = Plugin.GetSysInfo.GetScreenResolutionY
Msgbox "获得屏幕分辨率高度："&SH
End SUB

//用过程返回值，好象不行；可以用返回函数值的方法
//调用方法：
DIM s , sh //定义全局变量，可以不用
//不用flag做变量，直接使用函数名就可以
msgbox "s=["&s&"]sh="&sh&"flag="&huoqu//使用函数名，得到返回函数值

Function huoqu()//定义函数
s=Plugin.GetSysInfo.GetScreenResolutionX
Msgbox "获得屏幕分辨率宽度："&s
If s=1440 Then
huoqu="yes" //函数名=返回值
Else
huoqu="no" //函数名=返回值
End if
//下面这句是获得屏幕分辨率高度
SH = Plugin.GetSysInfo.GetScreenResolutionY
Msgbox "获得屏幕分辨率高度："&SH
End Function