Programmstart -> Full Screen

[Sabo]

hi, ich habe mal ne Frage.
Kann mir jemand sagen wie ich es Programmieren kann, das wenn ich ein Programm starte es direkt in den Vollbildschirm Modus springt zb. 640x480 oder 800x600?

Big Thanks vorab
Sabo

[Mimo]

Wie meinst Du das?

Ein selbstgeschriebens VB Programm?

Oder irgendein fertiges, welches Du über eine Verknüpfung vom Explorer aus startest?

[cYrus]

also du kannst in den Eigenschaften des Forms wählen, dass es Maximiert gestartet wird und wenn du dann nur noch das Fenster sehen willst kannste auch noch wählen, dass es ohne Rahmen dargestellt werden soll, dann is auch gleich die Taskleiste noch weg bzw im Hintergrund..

so long
cYrus

[Sabo]

mhm ne cyrus ich meinte:
Ihr kennt doch so Spiele wenn man sie startet klackt der Monitor und schaltet in einer anderen Auflösung. Ich kenn mich da noch net so aus aber kann es sein das diese Option nur mit Dirext X Befehlen +.. verfügbar ist ?

Thanks vorab
Sabo

[fabian ackle]

ich bin mir zwar auch nicht 100%ig sicher aber ich glaube das es nur via DirectX geht... ist wahrscheinlich auch am einfachsten

greetz

fabian


habe noch etwas gefunden, aber wie gesagt, mit DirectX wird es einfacher sein...

Man erstelle ein Formular mit zwei Textboxen und einem Command-Button. Mit dem unten angegebenen Code wird die Auflösung in X (Text1.Text) Pixel und Y (Text2.Text) Pixel geändert.
Für X und Y müssen passende Werte angegeben werden (z.B. X=640 und Y=480).
Das Besondere daran ist, dass man nicht neu starten muss und dass sogar 320 x 280 funktioniert.

Option Explicit
Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long

Const CCDEVICENAME = 32
Const CCFORMNAME = 32
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
Private Type DEVMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type
Dim DevM As DEVMODE
Sub ChangeRes(iWidth As Single, iHeight As Single)
Dim a As Boolean
Dim i&
i = 0
Do
a = EnumDisplaySettings(0&, i&, DevM)
i = i + 1
Loop Until (a = False)
Dim b&
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
DevM.dmPelsWidth = iWidth
DevM.dmPelsHeight = iHeight
b = ChangeDisplaySettings(DevM, 0)
End Sub
Private Sub Command1_Click()
Call ChangeRes(Text1.Text, Text2.Text)
End Sub


http://www.schleichmichl.de/beispiel1.html#Beispiel13

[Sabo]

Danke Fabian das werde ich mir mal in Ruhe anschauen und testen.

greetz
Sabo