Visual Basic 2008の不透明度の障害

Question

ここには2つのファイルがあります。 1つはメインフォームで、もう1つは作成したダイアログです。ここでダイアログにコードを入力して、ダイアルフォームにあるタイマーから徐々に透明度を取得しようとしています：

If Me.Opacity = "100" Then
            Timer1.Stop()
            Timer1.Enabled = False
        Else
            Me.Opacity = Me.Opacity + 1
        End If

次に、メインフォームから、ボタンを押すと次のようになります。

Dialog.Timer1.Enabled = True
        Dialog.Timer1.Start()

これは機能しないようです。ボタンを押しても何もしません。

誰かがこれに対する解決策を見つけることができますか？

ありがとう、

ケビン

Answer 1

ゼロと1の間で不透明度が測定されるため（ 50％= 0.5 、 4％= 0.04 、 100％= 1 など）

もちろん、不透明度を数字 100 ではなく、文字列＆quot; 100＆quot; と比較します。