すれ立てるまでもない質問はここで 第81刷
■ このスレッドは過去ログ倉庫に格納されています
0897デフォルトの名無しさん
2007/04/04(水) 00:28:18VB6で、For Each...Nextでコントロールのプロパティを設定しているのですが
例えばtxt999というTextBoxとlbl999というLabelがあり、(連番でない数字3桁が最後に付いている)
txtのプロパティを同じ数字のlblの同じプロパティの値に一定数値を加えた値にしたいのですが
For Each ob In Me.Controls
If ob = TextBox 'このIf文の内容を失念してしまったのですが、オブジェクトの種類がTextBoxならという処理だったはずです
ob.Top = "lbl" & Right$(ob.Name, 3) & ".Top + 1000"
(以下略)
とかボケた事書いたら当然のように文字列は入らねーよと言われました。
つまりはtxt001とかだった場合
txt001.Top = lbl001.Top + 1000
と同じ結果が得たいわけです。
ですが数値が連番でないうえに50個以上も適用しなければならないので個別に書くわけにもいきません。
どうかお力を貸していただければと思います。
言語経験ないのに一昨日からITドカタの仲間入りしました(´д`;)
教育はねーし、無いの?と言ったらメッチャ怒られたし
これからやってけるか不安ですがクビ切られるまで頑張ります
■ このスレッドは過去ログ倉庫に格納されています