当前位置：首页 → 问答吧 → 一个简单送分的问题关于Function

一个简单送分的问题关于Function

时间：2011-09-30

来源：互联网

如题 :

FindPic 0,0,1024,768,"0.bmp",0.9,intx,inty
if intx>0 and inty>0 then
..............

这个函数的作用是查找图片的坐标并赋值到intx和inty
请问一下在Function子程序中该如何定义 intx和inty

作者: sayonekui 发布时间: 2011-09-30

dim intx as integer
dim inty as integer
FindPic 0,0,1024,768,"0.bmp",0.9,intx,inty
if intx>0 and inty>0 then
..............

作者: BestBadGod 发布时间: 2011-10-01

Private Function FindPic(x,y)

x=123
y=456
end function

FindPic intx,inty
msgbox intx
msgbox inty

作者: sayonekui 发布时间: 2011-10-01

引用 2 楼 sayonekui 的回复:

Private Function FindPic(x,y)

x=123
y=456
end function

FindPic intx,inty
msgbox intx
msgbox inty

作者: BestBadGod 发布时间: 2011-10-01

自已試了一下解決了。。。哈哈

Private Function FindPic(x,y)

x=123
y=456
end function

Private Sub Command1_Click()
FindPic intx,inty
msgbox intx
msgbox inty
end sub

無論 FindPic intx,inty 或者 FindPic intxxx,intyyy
msgbox intx 或intxxx 都等於 x
msgbox inty 或intyyy 都等於 y

作者: sayonekui 发布时间: 2011-10-01

有興趣請幫忙搞一下這個
完善一下代碼
http://topic.csdn.net/u/20110930/14/32de6776-ed87-4408-9cd2-043345eb8ed0.html

作者: sayonekui 发布时间: 2011-10-01