Minimaliseren & Tijd & Titelbar weg!

[kevichill]

Hallo allemaal ik ben pas begonnen met VB6 en ik wil nu een soort van hulp programmaatje maken .
nu heb 1 knop waarmee je de prog sluit .. en nu wil een knop waarmee je de prog minimaliseert . weet iemand de minimaliseer code ?

Bvd

En weet iemand ook toevallig hoe ik de tijd aangeef in de prog de nederlandse tijd gewoon . ook bij deze bvd

En !!!
Weet iemand de code hoe je dus de titelbar waar al automatisch te titel van het prog + waar de ' - / X het vierkantje staan dus maximaliseer ' Weg krijgt ?

ook bij deze BVD

 

[That Guy]

NaamvanFormulier.Windowstate = integer
integer = 0 (normaal), 1(geminimalizeerd)of 2(gemaximaliseerd)

in jou geval is het dus

Form1.Windowstate = 1

dat zou moeten werken ;-)

V. :thumb:


EDIT:
de tijd (dit gaat vie de pc-tijd) laat je zien door de "fucntie" 'Time' aan te roepen.
bijvoorbeeld:

MsgBox Time

(dit geeft een 'popup' met de tijd. Ook kan je er van maken:

Form1.Caption = Time

dan laat het formulier in te titelbalk zien welke tijd jou pc heeft (van je pc-klok)
om je project zijn naam in te titelbalk te laten zien gebruik je de code:

Form1.Caption = App.EXEname

Verder krijg je het "kruisje: (X) niet weg zonder de iets geavanceerdere code, (API) maar minimalisatie/maximalisatie knop kan je weghalen door in de properties van Form1 "Maxbutton" of "Minbutton" op "False" te zetten

 

[RonaldGJ]

Zet dit in een module:

'=============================================================
'            [ Auther : Jim Jose              ]
'            [ Email  : jimjosev33@yahoo.com  ]
'=============================================================
'Hi,
'This code is made for all my friends in PSC. I uploaded this
'code inorder to get useful for anyone. If you found it useful
'please inform me. Your +Ve comments are my motive. Good Luck!
'=============================================================
Option Explicit

'[APIs]
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Declare Function CreateRectRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

'[This function can Set your form as BorderStyle=0 ]
'=============================================================
Public Sub SetZeroBorder(Frm As Form)
Dim hRgn As Long
Dim fScaleMode As Long
Dim ScrX As Long, ScrY As Long
Dim fLeft As Long, fTop As Long
Dim fBottom As Long, fRight As Long
    ScrX = Screen.TwipsPerPixelX
    ScrY = Screen.TwipsPerPixelY
    With Frm
        fScaleMode = .ScaleMode
        .ScaleMode = 1
        fLeft = (.Width - .ScaleWidth) / 2 / ScrX
        fTop = (.Height - .ScaleHeight) / ScrY - fLeft
        fRight = .Width / ScrX - fLeft
        fBottom = .Height / ScrY - fLeft
        hRgn = CreateRectRgn(fLeft, fTop, fRight, fBottom)
        SetWindowRgn .hWnd, hRgn, True
        .ScaleMode = fScaleMode
        DeleteObject hRgn
    End With
End Sub

Zet vervolgens in de code van je form:

SetZeroBorder Me

Als het goed is, is dan je border weg!

Greetz, Ronald!

 

[WarnedGraph]

Of zet de property van je form: "BorderStyle" of "FormBorderStyle" op "None"

Misschien HEEL wat simpeler!

 

[RonaldGJ]

Ja inderdaad:thumb: , maar met die module kun je ook bijvoorbeeld rondingen maken in de hoeken, en andere stukken eruit halen! Ik zal er eens mee experimenteren!

Alles beantwoord nu?

Greetz, Ronald!

 

[WarnedGraph]

Werkt de module ook voor VB.NET ?

 

[RonaldGJ]

Ik heb geen idee, dat zul je moeten proberen!