🚀 go-pugleaf

$B7'@n$H?=$7$^$9!#(B

$BE*30$l$JJVEz$G$7$?$i!"L5;k$7$F$/$@$5$$!#(B

$BFbMF$rFI$s$G5?Ld$@$C$?$N$G$9$,!"(B
$B$3$l$O!"#F#O#R#M#1!%"~"~"~"~!%!y!y!y!y$NFbMF$r(B
$BJL4X?t$KEO$;$J$$$H$$$&OC$G$OL5$/!"(B
$B#F#O#R#M#1!%"~"~"~"~!%!y!y!y!y$KJL4X?t$+$iFbMF(B
$B$r@_Dj$G$-$J$$$H$$$&OC$J$N$G$7$g$&$+!)(B

$B$b$7!"EO$;$J$$$H$$$&LdBj$G$7$?$i!"62$i$/0z?t$N(B
$B%G!<%?7?$,$*$+$7$$$@$1$@$H;W$$$^$9!#(B

$BJL4X?t$+$i%W%m%Q%F%#$r@_Dj$G$-$J$$$H$$$&LdBj$O(B
$B#V#B$,%3%s%H%m!<%k$N%W%m%Q%F%#$J$I$rEO$9$H$-$O(B
$B;2>HEO$7$G$O$J$/!"CMEO$7$K$J$C$F$7$^$C$F$$$k$+(B
$B$i$G$O!"$J$$$G$7$g$&$+!#0z?t$NF,$K(BByRef $B$rIU$1(B
$B$F$b7k2L$,JQ$o$i$J$+$C$?$3$H$+$i!"62$i$/;EMM$G(B
$B$9!#(B
$B$d$O$j%W%m%Q%F%#$rJQ99$9$k$J$I$N=hM}$N>l9g$O!"(B
$B%3%s%H%m!<%k$N;2>H$rEO$9$N$,%Y%?!<$G$O$J$$$+$H(B
$B;W$$$^$9!#(B

>  $B#V#B#5$K$*$$$F4X?t$N(B"form$B!I4XO"$NEO$7J}$GJ,$+$i$J$$E@$,$"$j$^$9$N$G$I$J$?$+(B
>$B65$($F$$$?$@$1$J$$$G$7$g$&$+!#(B
>
>$B!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!](B
>
>call A( form1.check1.caption)
>      |
>      |
>sub a(f as form)
>$B$G$b(B
>sub a(f)
>$B$G$b!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(B $B!!(B_    _
>$B$=$NB>2r$kHO0O$G%H%i%$$r$7$^$7$?(B..............$B$,!!&D!2&D!*!!(B
>$BEO$j$^$;$s(B
>call$B!!(BA(form1.check1)
>call  A(form1.text1)
>call  A(form1.command1)
>etc
>$B$J$I$OEO$k$N$G$9$,(B..........
>
>sub A(f)
> f(index).caption = "ABCDEF"
> f(index).text    = "ABCDEF"
> f(index).caption = "ABCDEF"
>end sub
>$B$H$$$&7?$G$O!!!!#O#K!!$J$N$G$9$,!)!)!)(B
>
>$B#F#O#R#M#1!%"~"~"~"~!%!y!y!y!y!!(B
>
>$B!y!y!y!y$^$GM-$k$H!!EO$j$^$;$s!!$?$V$s%H%C%W%"%I%l%9$rEO$7$F$$$k$H;W$o$l$k$N$G(B
>$B$9$,(B
>caption$B!"(Btext$B!!;2>H$G$-$kJ}K!$OL5$$$N$G$7$g$&$+!)(B
>
>  $B0J>e$h$m$7$/$*4j$$$7$^$9!#(B

岸上と申します。

Your Name <you@alps.co.jp> wrote in article
<66qbst$o7u@qalpsgw1.alps.co.jp>...
>  
ＶＢ５において関数の"form”関連の渡し方で分からない点がありますのでどなたか
> 教えていただけないでしょうか。

　渡し方と言っても、手続き側で何をしたいかによっていくつかの方法が
あります。目的を書いておけばより的確なアドバイスがもらえると思いま
す。
　以下、気がついたところだけ書いておきます。何か引っかかってくれれ
ばいいのですが。

> call A( form1.check1.caption)
>       |
>       |
> sub a(f as form)
> でも
> sub a(f)
> でも　　　　　　　　　　　　　　　　　　　　 　_    _
> その他解る範囲でトライをしました..............が　δ＿δ！　
> 渡りません

　CaptionはString型のプロパティですから、前者はとにかく、後者は受
け取れるはずです。変数とは違いますから、値を入れて返すことはできま
せんが。見かけ上は
　　Sub A(ByVal f As Variant)
と同じように振る舞います。

　手続き側で代入をしたいということでしたら、
> call　A(form1.check1)
> call  A(form1.text1)
> call  A(form1.command1)
の様にコントロールを渡す方がよいと思います。これがだめな理由は何で
しょう?渡すコントロールによってプロパティが違うからでしょうか?
　手続きの中でコントロールの種類を判別できればいいのですが、残念な
がら、私はその方法を知りません。TypeName関数か何かを使うのだと思い
ますが、渡され得るすべての型をチェックしなければならないので、結構
煩雑になりそうです。

　いろいろなコントロールのプロパティを変更するなら、目的にもよりま
すが、
　　Function a() As String
として、
　　' 呼び出し側
　　form1.check1.Caption = a()
とする方がわかり易いと思います。

-- 
（株）五星 ( gosei@gosei.co.jp )
企画部 ( system@gosei.co.jp )　　岸上

In article <01bd09e8$9d2433a0$3e44e2ca@meteor.gosei.co.jp>, 岸上幸生 wrote:
>　手続きの中でコントロールの種類を判別できればいいのですが、残念な
>がら、私はその方法を知りません。TypeName関数か何かを使うのだと思い
>ますが、渡され得るすべての型をチェックしなければならないので、結構
>煩雑になりそうです。

TypeName 関数の他に、TypeOf キーワードを使用する方法もありますね。

If TypeOf Obj Is Form Then
  MsgBox TypeName(Obj)
End If

など。より煩雑になりそうですが...。

-- 
Computer Institute of Japan, Ltd.
佐藤正宏 masahiro@cij.co.jp

阿部＠アルプス電気です

御礼の言葉を書こうと思って
なかなかかけませんでした,すいません！！
form　について　沢山のアドバイス
ありがとうございました
助かりました

form１．check１．caption
これは
どうしてもcaptionだけわ
渡りませんでした
type．．．．．他　etc
使ってみましたが．出来ませんでした残念
プログラムはこうなんです

Sub  k_main() 
            Call　formＡ（　Ｆｏｒｍ１!Command.Ｃａｐｔｉｏｎ　,　100　,　
dat_ary　)
End Sub

Sub formA( f , cnt_max , dat_ary )
Do
       f( cnt ) = ary( cnt )
       cnt=cnt+1
Loop Until cngt = 100

End  Sub
以上は　ＥＲＲＯＲ　プログラムです

無駄なプログラムかも？？？？？

Ｃａｐｔｉｏｎ　設定が沢山有る時は
助かるのです．．．．．？

Sub  k_main() 
            Call　formＡ（　Ｆｏｒｍ１!Command　,　100　,　dat_ary　)
End Sub

Sub formA( f , cnt_max , dat_ary )
Do
       f( cnt )．ｃａｐｔｉｏｎ = ary( cnt )
       cnt=cnt+1
Loop Until cngt = 100

End  Sub
以上は　ＯＫ　プログラムです

また良い方法があたりしたら
お願いします