古いVB6アプリケーションの色のテーマを変更しようとしています（もう少し現代的に見せてください）。VB6フォーム上のすべてのコントロールの色を変更する
フォーム上の各コントロールのバックカラーを、コントロールごとに（ラベル、ボタン、フレームなど）変更せずにどのように変更できるか教えてもらえますか？
私は約50のフォームを持っています。これらはすべてこのようなコントロールを含んでいて、コード内の各フォームに対してこれを手動で行うのは時代がかかります。
私はVB6アプリケーションのスキン/テーマをどのようにすることができるかについて、より良い提案とアイデアを公開していますか？あなたがControlsコレクションをループし、それぞれの背景を設定することにより、実行時にこれを行うことができ、事前
あなたはそれぞれを行い、必要のないコントロールを削除することができます。
Dim frmThing as Form
Dim ctlThing as Control
For Each frmThing In Forms
frmThing.BackColor = vbYellow
For Each ctlThing In frmThing.Controls
If (TypeOf ctlThing Is TextBox) Or _
(TypeOf ctlThing Is CheckBox) Or _
(TypeOf ctlThing Is ComboBox) Then
ctlThing.BackColor = vbYellow
End If
Next
Next
で
感謝。これはあなたのテーマを変更する柔軟性を与えるでしょう。
ソースファイルを操作してコントロールを解析し、必要な背景色を入力/変更することもできます。このアプローチはおそらくより少ない報酬のために、より多くの仕事です。
今はかなりの年が経っていますが、背景色は「透明」ではありませんでしたか？
すべてのラベルを透明な背景に設定し、フォームの色を一度設定するだけで済みます。
それはラベルを付けるが、他のコントロールはしない。 http://msdn.microsoft.com/en-us/library/aa245036(VS.60).aspx OPに透明をサポートしていないテキストボックスとフレームが記載されています。 – MarkJ
.frmファイルは、標準的なANSIテキストファイルです。コントロールの背景色プロパティは、次のようになります -
BackColor = &H80000005&
（上記はシステムカラーですが、あなたは下位3つのバイトを使用して、高いバイト0を残して使用してRGBの色を指定することもできます）。
制御などラベルは次のようになります -
Begin VB.Label Label1
Caption = "Hello:"
Height = 285
Left = 90
TabIndex = 3
Top = 480
Width = 1305
End
だから、そのタスクが.FRMファイルを解析し、挿入（または交換）により字句のBackColor属性行を行うことができます。
編集：
MarkJによってコメントで掲示お役立ちリンク：Form Description Propertiesただ、完全性について
...
ssCheckは、BackColorプロパティを持っていないと、前述を使用してエラーを生成しますメソッド
〜マイク〜
@Tomalak：yes Typeof xはyです（yはVB6では有効ですが、あなたはそれを知るには若すぎます;） – AnthonyWJones
VBプロジェクトでこの種の機能を常に覚えています。 IF ORステートメントの代わりに、私はCASEを使用します。 – Ferdeen
@AnthonyWJones：年齢でなければなりません。 ;-)私は実際にTypeOfを認識しませんでした...まあ、それを "If文の拡張"と呼ぶことができます。それはそれ自体のオペレータではありませんが、それは知っていいです。 – Tomalak