Form an Desktop grösse anpassen

[inmate]

Hallo, ich mache grade einen Systemfucker .Die Mainform soll sich aber an den Desktop anpassen sprich das sie den ganzen Desktop ausfüllt,da ich es so eingestellt habe das die frmMain immer im Fordergrund ist.Es soll so aussehen wie beim Jiqsaw Virus.

mfG

[DarkFire]

Dim WW As String = My.Computer.Screen.WorkingArea.Width.ToString
Dim WH As String = My.Computer.Screen.WorkingArea.Height.ToString


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

Me.Width = WW
Me.Height = WH
Me.Location = New Point(0, 0)
End Sub

[inmate]

Danke also gehen tut es nur man sieht die Taskleiste noch :/

kann man da noch was machen ?

mfg

[Kaspersky]

FormBorderstyle auf None machen
me.maximized = true

sollte reichen

[inmate]

ne geht leider nicht habe ich schon probiert ^^

[DarkFire]

Public Sub TaskBarVisible(ByVal Visible As Boolean)
Dim Handle As Integer = FindWindow("Shell_TrayWnd", "")

If Visible = True Then
SetWindowPos(Handle, 0, 0, 0, 0, 0, 64)
Else
SetWindowPos(Handle, 0, 0, 0, 0, 0, 128)
End If
End Sub


Wird aufgerufen mit:

TaskBarVisible(False)
TaskBarVisible(True)

[inmate]

Jap klappt ich musste nur noch die API´s deklarieren ;)

Danke an alle die mir geholfen haben


mfG