Re: [VB6 ] 請問在模組裡要怎麼呼叫一般表單裡的控 …

[MaxMan (Max power)]

※ 引述《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