VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2005/01/06(Thu) 17:11 |
| 投稿者 | ： ダンボ |
| ＵＲＬ | ： |
| タイトル | ： (解決)ボタンコレクションを引数として渡す |
皆さん、どうもありがとうございました。魔界の仮面弁士さん、いつもお世話になっております。
こんな風に直して、目的どおりの動作ができました。VB.CommandButtonがミソだったかな。
Call DecideOP( cmd() )
：
Private Sub DecideOP(BTNS As Object)
Dim BTN As VB.CommandButton
Dim N As Integer, XSum As Long, YSum As Long, X As Double, Y As Double
N = BTNS.Count - 1
XSum = 0: YSum = 0
For Each BTN In BTNS
X = BTN.Left + BTN.Width / 2
Y = BTN.Top + BTN.Height / 2
XSum = XSum + X: YSum = YSum + Y
Next BTN
OPX = XSum / N: OPY = YSum / N
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）