如何定义有返回的过程！在线等待

'在模块中  
  Public   Function   GetVlaue()   As   String  
   
  getvalue=20  
   
  End   Function  
   
   
  我在其它窗体要得到   GetValue的值为20，以上过程该怎么写？？ 问题点数：20、回复次数：6Top

1 楼YHeng（我来也！！！！！！）回复于 2002-05-22 17:08:24 得分 0

有返回值的是函数。  
  Public   Function   GetVlaue(iValue   as   integer)   As   integer  
   
  getvalue=ivalue*10  
   
  End   Function  
   
  调用：  
   
  dim   i   as   integer  
  i=GetVlaue(2)  
  debug.print   i   'i=20  
   
  Top

2 楼sunxl（小呆）回复于 2002-05-22 17:09:48 得分 20

Public   Function   GetVlaue()   As   String  
  getvalue=20  
  GetVlaue=getvalue  
  End   Function  
  呵呵   给分Top

3 楼daturawing（爱看书的乌龟）回复于 2002-05-22 17:12:53 得分 0

什么意思？有点晕！解释一下Top

4 楼vbhua（我来学习的）回复于 2002-05-22 17:14:15 得分 0

谢谢Top

5 楼jdsbjcailei（基度山伯爵）回复于 2002-05-22 17:17:06 得分 0

来晚了呀！Top

6 楼sunxl（小呆）回复于 2002-05-22 17:17:25 得分 0

把这个粘在模块里   或   粘在form1里  
  Public   Function   GetVlaue()   As   String  
  getvalue=20  
  GetVlaue=getvalue  
  End   Function  
   
   
   
  这个   在form1里  
   
  Private   Sub   Form_Click()  
  msgbox   GetVlaue  
  end   sub  
   
   
  运行     然后     点一下   窗体  
  Top

相关问题

• 模块
• getvlaue
• stringgetvalue
• getvalueend
• 窗体
• 粘在
• 过程
• ivalue
• 有返回
• form1里

• 帖主：vbhua
• sunxl

• Visual Basic类图书
• Visual Basic类源码下载