同じラベル名を使う | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#module
#define WM_LBUTTONDOWN  $00000201   ;マウス左ボタン押下
#deffunc m_setup
    oncmd gosub *On_WM_LBUTTONDOWN,  WM_LBUTTONDOWN ;マウス左ボタン押下
    return
*On_WM_LBUTTONDOWN
    mes "click !"
    return
#global
;----
m_setup
gosub *On_WM_LBUTTONDOWN
stop
;モジュールの外なので同じラベル名が使用出来る！
*On_WM_LBUTTONDOWN
    mes "hogehoge"
    return
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX