UserForm Initialize Kodlarını Birleştirmek

[1Al2Ver]

Merhaba,

UserForm'un simge durumuna küçültme işlevini aşağıdaki kod ile alabiliyorum,

Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function EnableWindow Lib "User32" _
(ByVal hWnd As Long, ByVal bEnable As Long) As Long
Private Declare Function GetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Sub UserForm_Activate()
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub

Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub

Aynı UserForm'da ayrıca aşağıdaki kod mevcut,

Private Sub UserForm_Initialize()
    Dim a As Long
    a = Sheets("VERİLER").Range("x65536").End(3).Row
    ListBox1.RowSource = "VERİLER!x2:x" & a
    a = Empty
End Sub

UserForm'a 2 initialize komutu veremediğim için, kodda gerekli düzenlemeyi rica ediyorum,

Teşekkür ederim.

 

[Ömer]

Merhaba,

Aşağıdaki gibi birleştirme yapınca çalışmadı mı?

Private Sub UserForm_Initialize()

    Dim hWnd As Long
    hWnd = FindWindowA(vbNullString, Me.Caption)
    SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000

    Dim a As Long
    a = Sheets("VERİLER").Range("x65536").End(3).Row
    ListBox1.RowSource = "VERİLER!x2:x" & a
    a = Empty
    
End Sub

 

[1Al2Ver]

Sayın Ömer merhaba,

Çözüm için teşekkür ederim,

Denemiştim, ancak sonradan farkına vardım ki, kopyala-yapıştır yaptıktan sonra kopyaladığımı pasif yapmamışım,

Bu dikkatsizliğim için de sizi meşgul etmiş oldum, kusuruma bakmayın,

Tekrar teşekkür ederim,

Saygılarımla.

 

[Ömer]

Önemli değil, iyi çalışmalar.