※この記事は【VB6・VB】古いコードのリプレース のシリーズその1です。 その1 コントロール配列(VB6) まあVB6ではよくあるパターン。むしろ無いほうが珍しい。 VB6には表みたいな機能がろくになかったので、表のようにラベルやテキストをコントロール配列でぺたぺた貼ってぐるぐる回して処理してたんですよねー。 対処法:手動で配列にセットして処理する。 ※以下、"Button1","Button2","Button3"という名前のボタンコントロール3つが画面で宣言されており、 これをコントロール配列として扱いたいとする。 Private BtnArray() As Button 'セットする配列 Public Sub Form1_Load() Handles Me.Load InitializeComponent() '順番を考慮して配列にセットする必要がある BtnArray = {B
![【VB6・VB】古いコードのリプレース その1 コントロール配列 - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/79efa0276b481a90629e17cb86075fcd80c56326/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Farticle-ogp-background-412672c5f0600ab9a64263b751f1bc81.png%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTk3MiZoPTM3OCZ0eHQ9JUUzJTgwJTkwVkI2JUUzJTgzJUJCVkIlRTMlODAlOTElRTUlOEYlQTQlRTMlODElODQlRTMlODIlQjMlRTMlODMlQkMlRTMlODMlODklRTMlODElQUUlRTMlODMlQUElRTMlODMlOTclRTMlODMlQUMlRTMlODMlQkMlRTMlODIlQjklRTMlODAlODAlRTMlODElOUQlRTMlODElQUUlRUYlQkMlOTElRTMlODAlODAlRTMlODIlQjMlRTMlODMlQjMlRTMlODMlODglRTMlODMlQUQlRTMlODMlQkMlRTMlODMlQUIlRTklODUlOEQlRTUlODglOTcmdHh0LWFsaWduPWxlZnQlMkN0b3AmdHh0LWNvbG9yPSUyMzIxMjEyMSZ0eHQtZm9udD1IaXJhZ2lubyUyMFNhbnMlMjBXNiZ0eHQtc2l6ZT01NiZzPTQyMDBmNzZkNmZlZDFmNzQ5ZmViODMxNzc5ZmQwYjhm%26mark-x%3D142%26mark-y%3D57%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZoPTc2Jnc9NzcwJnR4dD0lNDBzb19yZWkmdHh0LWNvbG9yPSUyMzIxMjEyMSZ0eHQtZm9udD1IaXJhZ2lubyUyMFNhbnMlMjBXNiZ0eHQtc2l6ZT0zNiZ0eHQtYWxpZ249bGVmdCUyQ3RvcCZzPWE0YzIwYWQ5MTU4MGFlYzNkYmM1ZTE4MzdkYmE5YTY5%26blend-x%3D142%26blend-y%3D486%26blend-mode%3Dnormal%26s%3D684bfca3a8fa2a5e10e1dc0bd62fcf2a)