userformunuzun başliği+şeklinde 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 GetWindowLong Lib "user32" Alias _ 
      "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex _ 
      As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias _ 
      "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex _ 
      As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias _ 
      "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _ 
      ByVal wParam As Integer, ByVal lParam As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal _ 
      hWnd As Long) As Long

Private wHandle As Long

Private Sub UserForm_Initialize() 
    On Error Resume Next 
    Me.Caption = "pir" 
    Image1.Visible = False 
    If Val(Application.Version) >= 9 Then 
        wHandle = FindWindow("ThunderDFrame", Me.Caption) 
    Else 
        wHandle = FindWindow("ThunderXFrame", Me.Caption) 
    End If 
    If wHandle = 0 Then Exit Sub 
    hIcon = Image1.Picture 
    SendMessage wHandle, &H80, True, hIcon 
    SendMessage wHandle, &H80, False, hIcon 
    frm = GetWindowLong(wHandle, -20) 
    frm = frm And Not &H1 
    SetWindowLong wHandle, -20, frm 
    DrawMenuBar wHandle 
End Sub

Benzer Sonuçlar
No	Makro Adı
1	userformunuzun başliği+şeklinde
2	userformunuzun başlığı+şeklinde
3	userformunuzun başlığını kodlarla istediğinizi şekilde ayarlayabilirsiniz
4	commoboxa atanacak sabit
5	formunuzun başliğini kodlarla istediğinizi şekilde ayarlayabilirsiniz;
6	userform un başliği haraket ediyor
7	userform un başlığı haraket ediyor
8	userin başliği hareket eder
9	userform 1 userform başlığı
10	hareketsiz userform başlığı
11	başlıksız userform
12	makrolar kutusu ve makrolar görünsün
13	listbox veya combobox başlık formatı
14	listbox ve combobox'a veri girmek
15	şifrelemede son nokta
16	userformun açılış sayısını sınırlamak (demo yapmak)
17	userforma kalan süre yazdır
18	excel userformunu exe yapmak
19	kullanıcı adı ve parola eklemek
20	Inputbox içine yazilan karakterler "*****" (password veya şifre karakterleri) şeklinde çikabilir mi?

Benzer Sonuçlar

Makro Adı

userformunuzun başliği+şeklinde

userformunuzun başlığı+şeklinde

userformunuzun başlığını kodlarla istediğinizi şekilde ayarlayabilirsiniz

commoboxa atanacak sabit

formunuzun başliğini kodlarla istediğinizi şekilde ayarlayabilirsiniz;

userform un başliği haraket ediyor

userform un başlığı haraket ediyor

userin başliği hareket eder

userform 1 userform başlığı

hareketsiz userform başlığı