Userform

Userform

07.03.2008 15:59:00

Petra

Hallo Ihr da draussen
wie kann ich es verhindern, dass eine UF verschoben wird?
Vielen Dank für Eure Tipps!
Liebe Grüße schickt die Petra

AW: Userform

07.03.2008 16:09:00

Matthias

Hallo Petra,
https://www.google.de/search?q=userform+verankern+site%3Awww.herber.de&sourceid=navclient-ff&ie=UTF-8&rlz=1B3DVFA_de___DE237
oder
http://www.gidf.de
Gruß Matthias

AW: Userform

07.03.2008 16:39:09

Original

Hi,
Code ins Modul der Userform:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long


Private Sub UserForm_Activate()
Dim Hwf As Long, Hwm As Long
Hwf = FindWindow(vbNullString, Me.Caption)
If Hwf  0 Then
Hwm = GetSystemMenu(Hwf, 0)
If Hwm  0 Then DeleteMenu Hwm, &HF010, &H0
End If
End Sub

mfg Kurt

AW: Userform

07.03.2008 16:57:34

Petra

Hi Matthias, hi Kurt
vielen Dank für Eure wertvollen Tipps
schönes Wochenende noch sagt Petra

Forumthread: Userform

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Userform

Forumthread: Userform

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread