フォームにスキン画像

  画像処理そのもの



こちらに にあるサンプルそのままですので、おそらく一般的なんだと思います。
もっとかっこいい画像を用意したかったんですが、専門外なんで・・・

透明色は、フォームの右側の欠けている部分の色で、ボタンの背景色はコントロールの背景色を使うと透過
してしまうので変更してあります。

  
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load

	Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
	Me.Size = New Size(545, 500)
	Dim bmp As New Bitmap("C:\user\vb\2008_04\form.bmp")
	Dim transColor As Color = bmp.GetPixel(500, 480)
	bmp.MakeTransparent(transColor)
	Me.BackgroundImage = bmp
	Me.BackColor = transColor
	Me.TransparencyKey = transColor

End Sub
  





  オレンジのタイトル部分でのウインドウの移動



完璧では無いと思いますが、使えるレベルだとは思います
サイズ変更を実装したい場合は、画像処理を含めてもっと頑張る必要があります。

  
Private basep As Point
Private movep As Point
Private flg As Boolean = False

Private Sub Form1_MouseDown(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown

	If System.Windows.Forms.Cursor.Position.Y - Me.Top < 23 Then
		Me.Capture = True
		flg = True
		basep.X = Me.Left
		basep.Y = Me.Top
		movep.X = System.Windows.Forms.Cursor.Position.X
		movep.Y = System.Windows.Forms.Cursor.Position.Y
	End If


End Sub

Private Sub Form1_MouseUp(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp

	If flg Then
		Me.Capture = False
		flg = False
	End If

End Sub

Private Sub Form1_MouseMove(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

	If flg Then
		Me.Left = basep.X + (System.Windows.Forms.Cursor.Position.X - movep.X)
		Me.Top = basep.Y + (System.Windows.Forms.Cursor.Position.Y - movep.Y)
	End If


End Sub
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ