vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Transparente Form 
Autor: Thunderstorm
Datum: 19.01.05 13:35

hallo zusammen,

also ich habe hier ein problem

ich will das bil in meiner startform transparent anzeigen und habe dafür auch schon einen code aber es kommt immer eine fehlermeldung.

in klasse 2 bei Public Shared imaSplashScreen kommt die fehlermeldung der wert kann nicht null sein.

wo ist denn hier der fehler?

eine form
zwei klassen

klasse 1

Imports dra = System.Drawing
Imports frm = System.Windows.Forms
Imports sys = System
Class APP
Private Shared m_Assembly As sys.Reflection.Assembly = sys.Reflection.Assembly.GetExecutingAssembly()

Private Shared m_AssemblyPath As String = APP.m_Assembly.GetName().Name().Replace(" ", "_")
Public Shared Function GetResource(ByVal FileName As String) As sys.IO.Stream

Return APP.m_Assembly.GetManifestResourceStream(APP.m_AssemblyPath & "." & FileName)

End Function
End Class

klasse 2

Imports sys = System
Imports dra = System.Drawing
Imports frm = System.Windows.Forms
Imports dat = System.Data
Imports vb = Microsoft.VisualBasic
Class IMA
Public Shared imaSplashScreen As dra.Image = dra.Image.FromStream(APP.GetResource("Splash Screen.png"))
End Class

form1

Imports sys = System
Imports dra = System.Drawing
Imports frm = System.Windows.Forms


Public Class SplashScreen : Inherits frm.Form
#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

Me.InitializeComponent()
Me.Initialize()

End Sub

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ComponentModel.IContainer

Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(SplashScreen))
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(480, 428)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(84, 23)
Me.Button1.TabIndex = 1

'Button2
'
Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button2.Location = New System.Drawing.Point(480, 460)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(84, 23)
Me.Button2.TabIndex = 1
Me.AcceptButton = Me.Button1
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
Me.CancelButton = Me.Button2
Me.ClientSize = New System.Drawing.Size(304, 164)
Me.ControlBox = False
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Button2)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "SplashScreen"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.TopMost = True
Me.ResumeLayout(False)

End Sub

#End Region

Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)

Dim gfx As dra.Graphics = pevent.Graphics

gfx.DrawImage(IMA.imaSplashScreen, New dra.Rectangle(0, 0, Me.Width, Me.Height))

End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Transparente Form1.118Thunderstorm19.01.05 13:35
Re: Transparente Form666ModeratorDaveS19.01.05 14:05
Re: Transparente Form646Thunderstorm20.01.05 12:06
Re: Transparente Form658ModeratorDaveS20.01.05 12:19
Re: Transparente Form611Thunderstorm20.01.05 14:09
Re: Transparente Form705Thunderstorm20.01.05 17:20

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel