Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Temmuz 2008 Pazar

UserForm WindowState Nothing


'UserForm1
'Add Tools on UserForm1: CommandButton1
Option Explicit
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 Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim Pencere As Long

Private Sub UserForm_Initialize()
On Error Resume Next
'UserForm.WindowState; xlMinimized= Nothing
'UserForm.WindowState; xlNormal= Nothing
'UserForm.WindowState; xlMaximized= Nothing
'UserForm.WindowState; xlClosed= Nothing

Me.Caption = "[PBİD®] UserForm xlClose Menu Nothing..."
Pencere = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption)
SetWindowLongA Pencere, -16, GetWindowLongA(Pencere, -16) And &HFFF7FFFF
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
Unload Me
End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul