Deaktivere muligheden for maksimering og minimering af vinduer.

Jeg benytter Visual Basic 6, hvis det kunne være til hjælp.

Du kan sætte Border Style på din Form til: 3 Fixed Dialog.

Jo tak, men jeg vil gerne have muligheden for at minimere vinduet også. Det kan jeg ikke da _ -knappen forsvinder.

Du kan sætte
minbutton = false
maxbutton = false
i properties for din form.
Så er knapperne væk

Når jeg mener gøre større, så er det ikke at minimere, men at trække i det. De pile der er i nederst i hjørnet af vinduet vil jeg gerne have væk.

rynke10 - du får 5 af pointene da du kun kom med det halve svar - men er der nogen der kan svare på denne kommentar, er der 5 point mere:

Når jeg mener gøre større, så er det ikke at minimere, men at trække i det. De pile der er nederst i hjørnet af vinduet vil jeg gerne have væk.

vad man ikke gør for 5-10 point ;-)

'------------------------- Module1 -------------------------
Option Explicit

Private Type WINDOWPOS
    hWnd As Long
    hWndInsertAfter As Long
    x As Long
    y As Long
    cx As Long
    cy As Long
    FLAGS As Long
End Type

' min/max form sizes
Private Const MIN_WIDTH = 200 '<-------------------- Min Width
'Private Const MAX_WIDTH = 1280
Private MAX_WIDTH
Private Const MIN_HEIGHT = 100 '<-------------------- Min Height
'Private Const MAX_HEIGHT = 1024
Private MAX_HEIGHT

Private Const WM_WINDOWPOSCHANGING = &H46
Private Const WM_WINDOWPOSCHANGED = &H47

Public OldResizeProc As Long
Public Const GWL_WNDPROC = (-4)

Declare Function CallResizeProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal MSG As Long, ByVal wParam As Long, lParam As WINDOWPOS) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Function ResizeProc(ByVal hWnd As Long, ByVal MSG As Long, ByVal wParam As Long, lParam As WINDOWPOS) As Long
  If MSG = WM_WINDOWPOSCHANGING Then
    MAX_HEIGHT = (Screen.Height / Screen.TwipsPerPixelY)
    MAX_WIDTH = (Screen.Width / Screen.TwipsPerPixelX)
    If lParam.cx < MIN_WIDTH Then lParam.cx = MIN_WIDTH
    If lParam.cx > MAX_WIDTH Then lParam.cx = MAX_WIDTH
    If lParam.cy < MIN_HEIGHT Then lParam.cy = MIN_HEIGHT
    If lParam.cy > MAX_HEIGHT Then lParam.cy = MAX_HEIGHT
  End If
ResizeProc = CallResizeProc(OldResizeProc, hWnd, MSG, wParam, lParam)
End Function
'------------------------- Module1 -------------------------

'------------------------- Form1 -------------------------
Option Explicit

Private Sub Form_Load()
  OldResizeProc = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf ResizeProc)
End Sub
'------------------------- Form1 -------------------------

Alt det der API er slet ikke nødvendigt... Sæt borderstyle til fixed dialog, og bagefter min button = true

Øhm...hvad er konceptet i bare og afvise svar? Virker det eller virker det ikke?

chris2k - Da jeg valgte muligheden kom den minimerknappen ikke frem, så det hjalp ikke.

Læg et svar rynke10, så deler jeg pointene mellem rynke10 og sjh.

Sorry, my bad... Du skulle vælge Fixed Single, ikke Fixed Dialog...

Så skulle det gerne virke...