görsel ve güzel bir userform Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private FensterRegion&, Region&
Private Hauptfensternummer&, Clientfensternummer&
Private dummy As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Const GW_CHILD = 5
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub UserForm_Initialize()
Call FensterOhneKopf
End Sub

Sub FensterOhneKopf()
Dim Abmessung As RECT
Dim Abmessung1 As RECT
Dim Pos1x&, Pos1y&, Pos2x&, Pos2y&
If FensterRegion  0 Then Exit Sub
UserForm1.BorderStyle = fmBorderStyleSingle
Call Fensternummer(UserForm1, Abmessung, Abmessung1)
Pos1x = 0
Pos1y = (Abmessung1.Top - Abmessung.Top)
Pos2x = Abmessung.Right - Abmessung.Left
Pos2y = Abmessung.Bottom - Abmessung.Top
Region = CreateRectRgn(Pos1x, Pos1y, Pos2x, Pos2y)
FensterRegion = SetWindowRgn(Hauptfensternummer, Region, True)
End Sub

'Fensterhandles und Infos über Fenster holen
Private Sub Fensternummer(Form As Object, Abmessung As RECT, Abmessung1 As RECT)
Dim Fenstername$, Suchstring$
Suchstring = "UserForm ohne Titelzeile"
Fenstername = Form.Caption
Form.Caption = Suchstring
Hauptfensternummer = FindWindow(vbNullString, Suchstring)
Form.Caption = Fenstername
Clientfensternummer = GetWindow(Hauptfensternummer, GW_CHILD)
dummy = GetWindowRect(Hauptfensternummer, Abmessung)
dummy = GetWindowRect(Clientfensternummer, Abmessung1)
End Sub

'Folgendes ist notwendig, um die Form ohne Titelleiste zu verschieben
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then
If Hauptfensternummer  0 Then
dummy = ReleaseCapture()
dummy = SendMessage(Hauptfensternummer, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If
Else
Unload UserForm1 ' Zum schließen, beim ausprobieren.
End If
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Benzer Sonuçlar
No	Makro Adı
1	görsel ve güzel bir userform
2	listbox'tan seçilen hücreyi silmek.
3	textbox hücre toplaminin yazdirilmasi
4	makrolar kutusu ve makrolar görünsün
5	excel dosyası belirli bir tarihten sonra açılmasın
6	kod yazarak showmodal durumunu ayarlamak.
7	multipage te gezinti scroll barla
8	uyan şartlara göre userform3teki commandbutton gizlensin.
9	find menüsü oluşturma
10	textboxa girerken her üç rakamın arasına bir nokta koyma
11	textboxta binlik ayıraclı toplama
12	bul ve listele
13	userforma farklı kaydet tuşu eklemek
14	userforma farklı kaydet tuşu
15	forma otomatik resim getirme
16	kullanıcı adı ve parola eklemek
17	userform un başliği haraket ediyor
18	userform un başlığı haraket ediyor
19	comboboxda verilerin yalnızca birer kere görünmesi
20	userformdan userforma

Benzer Sonuçlar

Makro Adı

görsel ve güzel bir userform

listbox'tan seçilen hücreyi silmek.

textbox hücre toplaminin yazdirilmasi

makrolar kutusu ve makrolar görünsün

excel dosyası belirli bir tarihten sonra açılmasın

kod yazarak showmodal durumunu ayarlamak.

multipage te gezinti scroll barla

uyan şartlara göre userform3teki commandbutton gizlensin.

find menüsü oluşturma

textboxa girerken her üç rakamın arasına bir nokta koyma