|
分類:[.NET 全般]
開発環境:Windows7 Professional SP1 32bit VisualBasic 2010 Express(VB.NET) 使用環境:Windows7 EnterPrize SP1 64Bit
初めまして。 他の投稿者様の投稿を見て度々勉強させて頂いております。 Windowsフォームにて、Form1の上にPicturebox1、そのまた上にLabel1を置いた状態で
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load Dim myBitmap As Bitmap(Me.GetType(), "砂浜.png") Form1.Transparencykey = Violet PictureBox1.Image = MyBitmap Label1.Backcolor = Yellow End Sub
Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click Label1.Backcolor = Violet End Sub
上記のコード「Label1をクリックするとその幅分だけ穴が開く(透明になる)」という物を作りました。
しかし、開発環境では問題無く動くのですが、冒頭の使用環境ではTransparencykeyが働いて無く(?) 透明になるはずの部分はVioletのままでした。 趣味で作ってるのですが原因が分からないまま一か月経ってしまいました。
どなたかご教授宜しくお願いします。
|