- Katılım
- 9 Ocak 2009
- Mesajlar
- 557
- Excel Vers. ve Dili
-
2002 TÜRKÇE
2007 TÜRKÇE
2010 TÜRKÇE
2019 TÜRKÇE
'_____Forma minimise and maximise button eklemek_____
lngCurrentStyle = GetWindowLong(lngHwnd, -16)
lngNewStyle = lngCurrentStyle Or 131072 Or 65536
lngNewStyle = lngNewStyle And Not 268435456 And Not &H80000000
SetWindowLong lngHwnd, -16, lngNewStyle
Merhabalar;
Yukarıda kod ile userforma küçültme ve büyültme tuşları ekledim. Fakat mesela büyültme tuşuna basınca kod çalışmasını nasıl sağlayabilirim.
lngCurrentStyle = GetWindowLong(lngHwnd, -16)
lngNewStyle = lngCurrentStyle Or 131072 Or 65536
lngNewStyle = lngNewStyle And Not 268435456 And Not &H80000000
SetWindowLong lngHwnd, -16, lngNewStyle
Merhabalar;
Yukarıda kod ile userforma küçültme ve büyültme tuşları ekledim. Fakat mesela büyültme tuşuna basınca kod çalışmasını nasıl sağlayabilirim.