作者MaxMan (Max power)
看板Visual_Basic
标题Re: [VB6 ] 请问在模组里要怎麽呼叫一般表单里的控 …
时间Tue Jan 16 01:04:15 2007
※ 引述《orangeterry (orangeterry)》之铭言：
: 我在表单里用工具箱里的元件建一个picture box(名字为Picture2)
: 现在我想在模组里(bas档里)去呼叫它...可是VB却说我没有设定物件
: 请问要怎麽解决啊?????谢谢
: 程式码如下
: '这是在frm档里
: Private Sub Form_Load()
: Picture2.Scale (0, 250)-(11, 0)
: Call picture2_scale
: End Sub
: '这是在模组档(.bas)里
: function Sub picture2_scale()
: Picture2.Line (3, 20)-(4, 240), &HFFC0C0
: End Sub
你的 Form 叫什麽名子? 假设是 MainForm
In .Bas :
Sub picture2_scale()
MainForm.Picture2.Line (xxxx..... )
End Sub
Function 开头表示有传回值
Function picture2_scale() as String '型态
MainForm.Picxxxx.xxxxx
picture2_scale = "Yes"
End Function
In MainForm:
函式呼叫的时候有 () 表示有回传值(用 Function 宣告)
如果没有 (), 表示没有回传值(用 Sub 宣告)
Function 宣告 picture2_scale() :
Dim tmp as String;
tmp = picture2_scale(参数1, 参数2,...)
Sub 宣告 picture2_scale() :
picture2_scale 参数1, 参数2,...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.68.165.235