none
Tam Ekran Sorunu(Maximize) Me.WindowState = FormWindowState.Maximized RRS feed

  • Soru

  • Form'un borderstyle özelliğini kapatıyorum temamın güzel olabilmesi için fakat karşılaştığım bir sorun var ben Me.WindowState = FormWindowState.Maximized kodunu kullanıyorum ama ekranı tamamen kaplıyor ben normal kaplamasını istiyorum windows araç çubugu falan hepsini kaplıyor bu kod =( internette derdime derman bulamadım yardımcı olurmusunuz ???
    25 Aralık 2013 Çarşamba 22:49

Yanıtlar

  • Sorunu çözdüm yanıtınız için teşekkürler... Şu kodu kullanarak çözdüm aynı sorunu yaşayan arkadaşlarımız için paylaşayım;

        Protected Overrides ReadOnly Property CreateParams() As CreateParams
            Get
                Const WS_CAPTION As Integer = &HC00000
                Dim baseParams As CreateParams = MyBase.CreateParams
                baseParams.Style = baseParams.Style And Not WS_CAPTION
                Return baseParams
            End Get
        End Property
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.Location = New Point(0, 0)
            Me.ClientSize = New Size(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height)
        End Sub

    26 Aralık 2013 Perşembe 16:29

Tüm Yanıtlar

  • Merhaba;

    BorderStyle kısmını none yapmazsanız, düzelir. Ayrıca ControlBox true olmalı.


    Microsoft bu servisi kullanıcılarına yardım etme, Microsoft urunleri ve teknolojileriyle ilgili bilgi bankasını genişletme amacıyla ucretsiz sunmaktadır. Bu icerik olduğu gibi benim tarafımdan hazırlanmış olup Microsoft tarafından herhangi bir sorumluluk ustlenildiği anlamına gelmez. Iletişim: Mail Gönder

    26 Aralık 2013 Perşembe 07:04
    Moderatör
  • Sorunu çözdüm yanıtınız için teşekkürler... Şu kodu kullanarak çözdüm aynı sorunu yaşayan arkadaşlarımız için paylaşayım;

        Protected Overrides ReadOnly Property CreateParams() As CreateParams
            Get
                Const WS_CAPTION As Integer = &HC00000
                Dim baseParams As CreateParams = MyBase.CreateParams
                baseParams.Style = baseParams.Style And Not WS_CAPTION
                Return baseParams
            End Get
        End Property
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.Location = New Point(0, 0)
            Me.ClientSize = New Size(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height)
        End Sub

    26 Aralık 2013 Perşembe 16:29