Userform Görünüm Tanımlarının olduğu ClassMOdulü xla olarak kaydedip, tüm excel kitap

H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Userform Görünüm Tanımlarının olduğu ClassMOdulü xla olarak kaydedip, tüm açık excel kitaplarından çağırabilmenin yolu nedir arkadaşlar.

Tankut SAZLI' Alıntı:
Çalışmalarınızda size fikir verecek birkaç Userform uygulamasını tek dosyada derledim.İnceleyin,hoşunuza gidecek.
Umarım işinizi görür.

NOT:Örnek yenilendi.Bazı yeniliklerle hatalar giderilmeye çalışıldı.(09.01.2007)
Genişletmek için tıkla ...

Sn Tankut SAZLI nın hazırlamış olduğu aşağıdaki örnekte
http://www.excel.web.tr/attachment.php?attachmentid=8965&d=1168377680


CFormChanger Classını Userform Özelliklerini belirteceğim kitaba ekleyip,

o kitaptaki tüm userformlarda
Userform_EkOzellik yordamında isteklerimi tanımlayıp activide çağırıyorum.

Peki bu işlemi Bir xla haline dönüştürmek mümkünmü acaba?CFormChanger Classının Özelliklere belirteceğim kitaba ekleyip,

o kitaptaki tüm userformlarda
Userform_EkOzellik yordamında isteklerimi tanımlayıp activide çağırıyorum.

Peki bu işlemi Bir xla haline dönüştürmek mümkünmü acaba?

CFormChanger Class modulü UserformOzellikleri.xla da olacak
biz sadece aşağıdaki gibi userformlarda, prosodüre isteklerimizi yazacağız?






USERFORM/LAR
Kod: 
Option Explicit
Option Compare Text
Dim oFormChanger As New CFormChanger
Private Sub UserForm_activate()
Call Userform_EkOzellik(Me)
End Sub
Private Sub Userform_EkOzellik(Form As Object)
Set oFormChanger.Form = Form
With oFormChanger
    .Modal = False               'Modal?
    .ShowCaption = True          'True:Başlıklı, False:Başlıksız
    .ShowTaskBarIcon = True     'Görev çubuğunda olmasın: false; olsun; True
    .ShowCloseBtn = False         'Kapatma Butonu Aktifse: True, Pasifse; False
    .ShowMaximizeBtn = False      'Max Butonu Aktifse: True, Pasifse; False
    .ShowMinimizeBtn = False      'Min Butonu Aktifse: True, Pasifse; False
    .Sizeable = False            'Boyutlandırma Aktifse: True, Pasifse; False
    .SmallCaption = False        'küçük Başlık
    .ShowSysMenu = True          '????????????
    .IconPath = "C:\Documents and Settings\xx\Desktop\7.ico"  'icon yolu
    .ShowIcon = False           'ikon Gösterilsinmi
    If .SmallCaption = True Then Me.Height = Me.Height - 0.4     'küçük başlık seçilmişse userformu küçült
    If .ShowCloseBtn = False And .ShowMaximizeBtn = False And _
    .ShowMinimizeBtn = False And .ShowIcon = False Then   'Min,Max,Close Butonları ve icon gösterilmeyecekse
    '.IconPath = "" then
        .ShowCaption = False                              'başlıkta kaldırılsın.
    End If
End With
End Sub

Private Sub kapat_Click()
Unload Me
End Sub
CFormChanger Class modulü
Kod: 
Option Explicit
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 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 Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Long, ByVal fEnable As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SetFocus Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex 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 Const GWL_STYLE As Long = (-16)
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_CAPTION As Long = &HC00000
Private Const WS_SYSMENU As Long = &H80000
Private Const WS_THICKFRAME As Long = &H40000
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const WS_POPUP As Long = &H80000000
Private Const WS_VISIBLE As Long = &H10000000
Private Const WS_EX_DLGMODALFRAME As Long = &H1
Private Const WS_EX_APPWINDOW As Long = &H40000
Private Const WS_EX_TOOLWINDOW As Long = &H80
Private Const SC_CLOSE As Long = &HF060
Private Const SW_HIDE As Long = 0
Private Const SW_SHOW As Long = 5
Private Const WM_SETICON = &H80
Dim hWndForm As Long, mbSizeable As Boolean, mbCaption As Boolean, mbIcon As Boolean, miModal As Integer
Dim mbMaximize As Boolean, mbMinimize As Boolean, mbSysMenu As Boolean, mbCloseBtn As Boolean
Dim mbAppWindow As Boolean, mbToolWindow As Boolean, msIconPath As String
Dim moForm As Object

Public Property Set Form(oForm As Object)
    If Val(Application.Version) < 9 Then
        hWndForm = FindWindow("ThunderXFrame", oForm.Caption)
    Else
        hWndForm = FindWindow("ThunderDFrame", oForm.Caption)
    End If
    Set moForm = oForm
    SetFormStyle
End Property
Public Property Let Sizeable(bSizeable As Boolean)
    mbSizeable = bSizeable
    SetFormStyle
End Property
Public Property Get Sizeable() As Boolean
    Sizeable = mbSizeable
End Property
Public Property Let ShowCaption(bCaption As Boolean)
    mbCaption = bCaption
    SetFormStyle
End Property
Public Property Get ShowCaption() As Boolean
    ShowCaption = mbCaption
End Property

Public Property Let Modal(bModal As Boolean)
    miModal = Abs(CInt(Not bModal))
    EnableWindow FindWindow("XLMAIN", Application.Caption), miModal
End Property
Public Property Get Modal() As Boolean
    Modal = (miModal <> 1)
End Property
Public Property Let ShowIcon(bIcon As Boolean)
    mbIcon = Not bIcon
    ChangeIcon
    SetFormStyle
End Property
Public Property Get ShowIcon() As Boolean
    ShowIcon = (mbIcon <> 1)
End Property
Public Property Let IconPath(sNewPath As String)
    msIconPath = sNewPath
    ChangeIcon
End Property
Public Property Get IconPath() As String
    IconPath = msIconPath
End Property
Public Property Let ShowMaximizeBtn(bMaximize As Boolean)
    mbMaximize = bMaximize
    SetFormStyle
End Property
Public Property Get ShowMaximizeBtn() As Boolean
    ShowMaximizeBtn = mbMaximize
End Property
Public Property Let ShowMinimizeBtn(bMinimize As Boolean)
    mbMinimize = bMinimize
    SetFormStyle
End Property
Public Property Get ShowMinimizeBtn() As Boolean
    ShowMinimizeBtn = mbMinimize
End Property
Public Property Let ShowSysMenu(bSysMenu As Boolean)
    mbSysMenu = bSysMenu
    SetFormStyle
End Property
Public Property Get ShowSysMenu() As Boolean
    ShowSysMenu = mbSysMenu
End Property
Public Property Let ShowCloseBtn(bCloseBtn As Boolean)
    mbCloseBtn = bCloseBtn
    SetFormStyle
End Property
Public Property Get ShowCloseBtn() As Boolean
    ShowCloseBtn = mbCloseBtn
End Property
Public Property Let ShowTaskBarIcon(bAppWindow As Boolean)
    If hWndForm <> 0 And mbAppWindow And Not bAppWindow Then
        EnableWindow FindWindow("XLMAIN", Application.Caption), True
        ShowWindow hWndForm, SW_HIDE
    End If
    mbAppWindow = bAppWindow
    SetFormStyle
    moForm.Repaint
    EnableWindow FindWindow("XLMAIN", Application.Caption), miModal
End Property
Public Property Get ShowTaskBarIcon() As Boolean
    ShowTaskBarIcon = mbAppWindow
End Property
Public Property Let SmallCaption(bToolWindow As Boolean)
    mbToolWindow = bToolWindow
    SetFormStyle
End Property
Public Property Get SmallCaption() As Boolean
    SmallCaption = mbToolWindow
End Property
Private Sub SetFormStyle()
    Dim iStyle As Long, hMenu As Long, hID As Long, iItems As Integer
    If hWndForm = 0 Then Exit Sub
    iStyle = GetWindowLong(hWndForm, GWL_STYLE)
    If mbCaption Then iStyle = iStyle Or WS_CAPTION Else iStyle = iStyle And Not WS_CAPTION
    If mbSysMenu Then iStyle = iStyle Or WS_SYSMENU Else iStyle = iStyle And Not WS_SYSMENU
    If mbSizeable Then iStyle = iStyle Or WS_THICKFRAME Else iStyle = iStyle And Not WS_THICKFRAME
    If mbMinimize Then iStyle = iStyle Or WS_MINIMIZEBOX Else iStyle = iStyle And Not WS_MINIMIZEBOX
    If mbMaximize Then iStyle = iStyle Or WS_MAXIMIZEBOX Else iStyle = iStyle And Not WS_MAXIMIZEBOX
    If mbAppWindow Then iStyle = iStyle And Not WS_VISIBLE And Not WS_POPUP Else iStyle = iStyle Or WS_VISIBLE Or WS_POPUP
    SetWindowLong hWndForm, GWL_STYLE, iStyle
    iStyle = GetWindowLong(hWndForm, GWL_EXSTYLE)
    If mbIcon Then iStyle = iStyle Or WS_EX_DLGMODALFRAME Else iStyle = iStyle And Not WS_EX_DLGMODALFRAME
    If mbAppWindow Then iStyle = iStyle Or WS_EX_APPWINDOW Else iStyle = iStyle And Not WS_EX_APPWINDOW
    If mbToolWindow Then iStyle = iStyle Or WS_EX_TOOLWINDOW Else iStyle = iStyle And Not WS_EX_TOOLWINDOW
    SetWindowLong hWndForm, GWL_EXSTYLE, iStyle
    If mbCloseBtn Then
        hMenu = GetSystemMenu(hWndForm, 1)
    Else
        hMenu = GetSystemMenu(hWndForm, 0)
        DeleteMenu hMenu, SC_CLOSE, 0&
    End If
    ShowWindow hWndForm, SW_SHOW
    DrawMenuBar hWndForm
    SetFocus hWndForm
End Sub
Private Sub ChangeIcon()
    Dim hIcon As Long
    If hWndForm <> 0 Then
        Err.Clear
        If msIconPath = "" Then
            hIcon = 0
        ElseIf Dir(msIconPath) = "" Then
            hIcon = 0
        ElseIf Err.Number <> 0 Then
            hIcon = 0
        ElseIf Not mbIcon Then
            hIcon = ExtractIcon(0, msIconPath, 0)
        Else
            hIcon = 0
        End If
        SendMessage hWndForm, WM_SETICON, True, hIcon
        SendMessage hWndForm, WM_SETICON, False, hIcon
    End If
End Sub
 
H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
bunu t&#252;m kitaplarda kullanab&#287;ilmek i&#231;in
Public WithEvents eklenti As Application
gibi bir eklenti yazmak laz&#305;m herhalde en &#252;ste ama ben beceremedim.

Yard&#305;mlar&#305;n&#305;z i&#231;in te&#351;ekk&#252;rler
 
L

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Amac&#305;n&#305;z bu uygulamay&#305; t&#252;m userformlarda kullanmaksa bunu yukar&#305;daki dosyay&#305; eklenti haline getirerek yapamazs&#305;n&#305;z. Ba&#351;ka t&#252;rl&#252; yap&#305;labilirmi fikrim yok.
 
H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Evet amac&#305;m dedi&#287;iniz gibi
xla olarak kaydettikten sonra A&#231;t&#305;&#287;&#305;m t&#252;p kitaplar&#305;n userformlar&#305;nda kullanbilmek.
 
H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Sn Levent Hocam a&#351;a&#287;&#305;daki gibi ben hallettim payla&#351;mak istedim.
MODUL
Kod: 
Sub UserformlardaEkOzellik(Form As Object, _
                        Optional ByVal blMODAL As Boolean = False, _
                        Optional ByVal blShwCap As Boolean = True, _
                        Optional ByVal blShwTskBr As Boolean = True, _
                        Optional ByVal blShwClsBt As Boolean = False, _
                        Optional ByVal blShwMaxBt As Boolean = False, _
                        Optional ByVal blShwMinBt As Boolean = False, _
                        Optional ByVal blBoyutlndr As Boolean = False, _
                        Optional ByVal blKckCap As Boolean = False, _
                        Optional ByVal blShwSysMn As Boolean = True, _
                        Optional ByVal blShwIcon As Boolean = False, _
                        Optional ByVal strIcnPth As String = "")
                        

'Call KlsrDgr
Set oFormChanger.Form = Form
With oFormChanger
    .Modal = blMODAL               'Modal?
    .ShowCaption = blShwCap          'True:Ba&#351;l&#305;kl&#305;, False:Ba&#351;l&#305;ks&#305;z
    .ShowTaskBarIcon = blShwTskBr     'G&#246;rev &#231;ubu&#287;unda olmas&#305;n: false; olsun; True
    .ShowCloseBtn = blShwClsBt         'Kapatma Butonu Aktifse: True, Pasifse; False
    .ShowMaximizeBtn = blShwMaxBt      'Max Butonu Aktifse: True, Pasifse; False
    .ShowMinimizeBtn = blShwMinBt      'Min Butonu Aktifse: True, Pasifse; False
    .Sizeable = blBoyutlndr            'Boyutland&#305;rma Aktifse: True, Pasifse; False
    .SmallCaption = blKckCap        'k&#252;&#231;&#252;k Ba&#351;l&#305;k
    .ShowSysMenu = blShwSysMn          '????????????
    .ShowIcon = True           'ikon G&#246;sterilsinmi
    .IconPath = strIcnPth
    
    
    If .SmallCaption = True Then Form.Height = Form.Height - 0.4     'k&#252;&#231;&#252;k ba&#351;l&#305;k se&#231;ilmi&#351;se userformu k&#252;&#231;&#252;lt
    If .ShowCloseBtn = False And .ShowMaximizeBtn = False And _
        .ShowMinimizeBtn = False And .ShowIcon = False Then   'Min,Max,Close Butonlar&#305; yoksa ve icon g&#246;sterilmeyecekse
        .ShowCaption = False                              'ba&#351;l&#305;kta kald&#305;r&#305;ls&#305;n.
    End If
End With
End Sub


CFormChanger Class modul&#252;
Kod: 
Option Explicit
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 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 Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Long, ByVal fEnable As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SetFocus Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex 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 Const GWL_STYLE As Long = (-16)
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_CAPTION As Long = &HC00000
Private Const WS_SYSMENU As Long = &H80000
Private Const WS_THICKFRAME As Long = &H40000
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const WS_POPUP As Long = &H80000000
Private Const WS_VISIBLE As Long = &H10000000
Private Const WS_EX_DLGMODALFRAME As Long = &H1
Private Const WS_EX_APPWINDOW As Long = &H40000
Private Const WS_EX_TOOLWINDOW As Long = &H80
Private Const SC_CLOSE As Long = &HF060
Private Const SW_HIDE As Long = 0
Private Const SW_SHOW As Long = 5
Private Const WM_SETICON = &H80
Dim hWndForm As Long, mbSizeable As Boolean, mbCaption As Boolean, mbIcon As Boolean, miModal As Integer
Dim mbMaximize As Boolean, mbMinimize As Boolean, mbSysMenu As Boolean, mbCloseBtn As Boolean
Dim mbAppWindow As Boolean, mbToolWindow As Boolean, msIconPath As String
Dim moForm As Object

Public Property Set Form(oForm As Object)
    If Val(Application.Version) < 9 Then
        hWndForm = FindWindow("ThunderXFrame", oForm.Caption)
    Else
        hWndForm = FindWindow("ThunderDFrame", oForm.Caption)
    End If
    Set moForm = oForm
    SetFormStyle
End Property
Public Property Let Sizeable(bSizeable As Boolean)
    mbSizeable = bSizeable
    SetFormStyle
End Property
Public Property Get Sizeable() As Boolean
    Sizeable = mbSizeable
End Property
Public Property Let ShowCaption(bCaption As Boolean)
    mbCaption = bCaption
    SetFormStyle
End Property
Public Property Get ShowCaption() As Boolean
    ShowCaption = mbCaption
End Property

Public Property Let Modal(bModal As Boolean)
    miModal = Abs(CInt(Not bModal))
    EnableWindow FindWindow("XLMAIN", Application.Caption), miModal
End Property
Public Property Get Modal() As Boolean
    Modal = (miModal <> 1)
End Property
Public Property Let ShowIcon(bIcon As Boolean)
    mbIcon = Not bIcon
    ChangeIcon
    SetFormStyle
End Property
Public Property Get ShowIcon() As Boolean
    ShowIcon = (mbIcon <> 1)
End Property
Public Property Let IconPath(sNewPath As String)
    msIconPath = sNewPath
    ChangeIcon
End Property
Public Property Get IconPath() As String
    IconPath = msIconPath
End Property
Public Property Let ShowMaximizeBtn(bMaximize As Boolean)
    mbMaximize = bMaximize
    SetFormStyle
End Property
Public Property Get ShowMaximizeBtn() As Boolean
    ShowMaximizeBtn = mbMaximize
End Property
Public Property Let ShowMinimizeBtn(bMinimize As Boolean)
    mbMinimize = bMinimize
    SetFormStyle
End Property
Public Property Get ShowMinimizeBtn() As Boolean
    ShowMinimizeBtn = mbMinimize
End Property
Public Property Let ShowSysMenu(bSysMenu As Boolean)
    mbSysMenu = bSysMenu
    SetFormStyle
End Property
Public Property Get ShowSysMenu() As Boolean
    ShowSysMenu = mbSysMenu
End Property
Public Property Let ShowCloseBtn(bCloseBtn As Boolean)
    mbCloseBtn = bCloseBtn
    SetFormStyle
End Property
Public Property Get ShowCloseBtn() As Boolean
    ShowCloseBtn = mbCloseBtn
End Property
Public Property Let ShowTaskBarIcon(bAppWindow As Boolean)
    If hWndForm <> 0 And mbAppWindow And Not bAppWindow Then
        EnableWindow FindWindow("XLMAIN", Application.Caption), True
        ShowWindow hWndForm, SW_HIDE
    End If
    mbAppWindow = bAppWindow
    SetFormStyle
    moForm.Repaint
    EnableWindow FindWindow("XLMAIN", Application.Caption), miModal
End Property
Public Property Get ShowTaskBarIcon() As Boolean
    ShowTaskBarIcon = mbAppWindow
End Property
Public Property Let SmallCaption(bToolWindow As Boolean)
    mbToolWindow = bToolWindow
    SetFormStyle
End Property
Public Property Get SmallCaption() As Boolean
    SmallCaption = mbToolWindow
End Property
Private Sub SetFormStyle()
    Dim iStyle As Long, hMenu As Long, hID As Long, iItems As Integer
    If hWndForm = 0 Then Exit Sub
    iStyle = GetWindowLong(hWndForm, GWL_STYLE)
    If mbCaption Then iStyle = iStyle Or WS_CAPTION Else iStyle = iStyle And Not WS_CAPTION
    If mbSysMenu Then iStyle = iStyle Or WS_SYSMENU Else iStyle = iStyle And Not WS_SYSMENU
    If mbSizeable Then iStyle = iStyle Or WS_THICKFRAME Else iStyle = iStyle And Not WS_THICKFRAME
    If mbMinimize Then iStyle = iStyle Or WS_MINIMIZEBOX Else iStyle = iStyle And Not WS_MINIMIZEBOX
    If mbMaximize Then iStyle = iStyle Or WS_MAXIMIZEBOX Else iStyle = iStyle And Not WS_MAXIMIZEBOX
    If mbAppWindow Then iStyle = iStyle And Not WS_VISIBLE And Not WS_POPUP Else iStyle = iStyle Or WS_VISIBLE Or WS_POPUP
    SetWindowLong hWndForm, GWL_STYLE, iStyle
    iStyle = GetWindowLong(hWndForm, GWL_EXSTYLE)
    If mbIcon Then iStyle = iStyle Or WS_EX_DLGMODALFRAME Else iStyle = iStyle And Not WS_EX_DLGMODALFRAME
    If mbAppWindow Then iStyle = iStyle Or WS_EX_APPWINDOW Else iStyle = iStyle And Not WS_EX_APPWINDOW
    If mbToolWindow Then iStyle = iStyle Or WS_EX_TOOLWINDOW Else iStyle = iStyle And Not WS_EX_TOOLWINDOW
    SetWindowLong hWndForm, GWL_EXSTYLE, iStyle
    If mbCloseBtn Then
        hMenu = GetSystemMenu(hWndForm, 1)
    Else
        hMenu = GetSystemMenu(hWndForm, 0)
        DeleteMenu hMenu, SC_CLOSE, 0&
    End If
    ShowWindow hWndForm, SW_SHOW
    DrawMenuBar hWndForm
    SetFocus hWndForm
End Sub
Private Sub ChangeIcon()
    Dim hIcon As Long
    If hWndForm <> 0 Then
        Err.Clear
        If msIconPath = "" Then
            hIcon = 0
        ElseIf Dir(msIconPath) = "" Then
            hIcon = 0
        ElseIf Err.Number <> 0 Then
            hIcon = 0
        ElseIf Not mbIcon Then
            hIcon = ExtractIcon(0, msIconPath, 0)
        Else
            hIcon = 0
        End If
        SendMessage hWndForm, WM_SETICON, True, hIcon
        SendMessage hWndForm, WM_SETICON, False, hIcon
    End If
End Sub

yukar&#305;daki mod&#252;lleri olu&#351;turduktan sonra belgenizi BenimUserformum.xla olara kaydedin.
BenimUserformum.xla dosyas&#305;n&#305; eklentilerde i&#351;aretleyin.
userforma ek &#246;xellik katmak istedi&#287;iniz belgenizde refernceslerden de BenimUserformum.xla se&#231;in.

A&#351;a&#287;&#305;daki gibi t&#252;m userformlar&#305;n&#305;zda &#246;zellikleri kullan&#305;n.
'UserformlardaEkOzellik(me,ModalDurumu,Ba&#351;l&#305;kG&#246;z&#252;kecekmi,TaskbardaG&#246;z&#252;kecekmi,KapatmaButonuOlacakm&#305;,MaxButonuOlacakm&#305;,MinButonuOlacakm&#305;
'>>boyutland&#305;rmaolacakm&#305;,Ba&#351;l&#305;kK&#252;&#231;&#252;km&#252;olacak,Sysmenn&#252;s&#252;G&#246;z&#252;ks&#252;nm&#252;,&#304;conG&#246;z&#252;kecekmi,G&#246;z&#252;kecekseDosyaYolu"

Yukar&#305;daki gibi sorular&#305; cevaplay&#305;n

USERFORMLAR
Kod: 
Private Sub UserForm_Activate()
Call UserformlardaEkOzellik(Me, False, False, True, True, False, False, False, False, True, False, "")
End Sub
E&#287;er icon kullanacaksan&#305;z 16 x 16 format&#305;nda ve ico uzant&#305;l&#305; olmal&#305; en az&#305;ndan jpg yi kullanamad&#305;m.
"C:\Users\CASPER\AppData\Roaming\Microsoft\AddIns\AddInsResim\A.ico"
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Üst