title image


Smiley Re: Zugang zu Steuerelementen Löschen, MaxSize eines UserForms
Hallo MarioSo ein Ding könnte etwa so aussehen:Es gibt ein Aufruf (der Code ist in einem normalen Modul, da API-Aufrufe ex Userform nicht möglich ist).Das UserForm heisst im Beispiel UserForm1 bestückt mit der Schaltfläche CommandButton1.Das UserForm sollte 90% des Bildschirmes einnehmen.GrussSilva Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As LongSub UserFormAufrufen() Dim ResX As Long Dim ResY As Long ResX = GetSystemMetrics(0) ResY = GetSystemMetrics(1) UserForm1.InitForm ResX, ResYEnd SubSub InitForm(x, y) Me.Caption = "So schnell wirst Du mich nicht los !!!" Me.Height = x * 9 / 10 Me.Width = y * 9 / 10 UserForm1.ShowEnd SubPrivate Sub CommandButton1_Click() MsgBox "Nun, wenn Du es partout nicht anders willst..." Unload MeEnd SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode 1 Then Cancel = 1 MsgBox "Auf diese Art weiche ich bestimmt nicht, ätsch !!!"End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: