Aradığınız içerik sitemizde mevcut durumdadır
buradan sitemize dönebilirsiniz !
Forum Başlıklarına gitmek için tıklayınız
Form Basliginin Pixel cinsinden bulunmasi
Form Basliginin Pixel cinsinden bulunmasi
’Module içine yazilacak kod:
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
’Form_resize içerisine yazilacak kod:
Private Sub Form_Resize()
On Local Error Resume Next
Dim a
a = GetSystemMetrics(4) ’Form basliginin boyu
Frame1.Width = Width - 200
SSTab1.Width = Frame1.Width
SSTab1.Height = Height - (a * 15) - SSTab1.Top - 150 ’Boyu pixele çeviriyoruz.
End Sub
Hosting Sponsorumuz - Noktahost internet hizmetleri