Προσπαθώ να δημιουργήσω μία νέα region για την Form1 (Ο κώδικας είναι convert από C -> πιθανά λάθη):
Public
Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim components As System.ComponentModel.Container = Nothing
Dim FrmBack As New Bitmap("C:\Documents and Settings\user\Desktop\foto.bmp")
Regions.test.CreateControlRegion(
Me, FrmBack)
End Sub
End
Class
'''''''''''''''''''''''''''''''' Έως εδώ ο κώδικας για την Form1 ''''''''''''''''''''''''''''''''
Namespace
Regions
Public Class test
Public test
Public Shared Sub CreateControlRegion(ByVal control As Control, ByVal bitmap As Bitmap)
control.Width = bitmap.Width
control.Height = bitmap.Height
Dim form As Form = CType(control, Form)
form.Width += 15
form.Height += 35
form.FormBorderStyle = FormBorderStyle.None
form.BackgroundImage = bitmap
Dim graphicsPath As Drawing2D.GraphicsPath = CalculateControlGraphicsPath(bitmap)
End Sub
Private Shared Function CalculateControlGraphicsPath(ByVal bitmap As Bitmap) As Drawing2D.GraphicsPath
Dim graphicsPath As New Drawing2D.GraphicsPath
Dim row As Integer
Dim col As Integer
Dim colOpaquePixel As Integer = 0
For row = 0 To bitmap.Height - 1
colOpaquePixel = 0
For col = 0 To bitmap.Width - 1
If bitmap.GetPixel(col, row) <> Color.Transparent Then
colOpaquePixel = col
Dim colnext As Integer
colnext = col
For colnext = colOpaquePixel To bitmap.Width - 1
If bitmap.GetPixel(colnext, row) = Color.Transparent Then
Exit For
graphicsPath.AddRectangle(
New Rectangle(colOpaquePixel, row, colnext - colOpaquePixel, 1))
col = colnext
End If
Next colnext
End If
Next col
Next row
Return graphicsPath
End Function
End Class
End
Namespace
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Το πρόγραμμα τρέχει, η Form1 παίρνει το μέγεθος της foto αλλά δεν την εμαφανίζει(συνεχίζω να βλέπω μόνο την επιφάνεια του Studio)! Όταν κάνω minimize το Studio κατά την δειάρκεια του run, η περιοχή που κανονικά έπρεπε να απεικονίζει την Form παγώνει στην εικόνα που έδειχνε πριν από λίγο το Visual Studio... (το πρόγραμμα κάνει run χωρίς κάποιο "κόλλημα"). Τι μπορεί να φταίει? Μάλλον κάτι στον κώδικα ![Big Smile [:D]](/cs/emoticons/emotion-2.gif)
! Μπορεί να βοηθήσει κάποιος?
Ευχαριστώ προκαταβολικά..
No knowledge can be certain, if it is not based
upon mathematics or upon some other knowledge
which is itself based upon the mathematical
sciences.