formu tam ekran yapma

[hakkım]

arkadaşlar excelin vbasında bi form çizdim bu formun nasıl tam ekran şeklinde açılmasını dağlayabilirim.

birde şunu sorcam mesale ben o formun arka planı için bir resim hazırladım .
ama bu resimden üç tane yaptım yani şöyle biri 800*600 biri 1024*768 biride 1280*1024 boyutunda burda şöle bişey istiyorum eğer formun açıldığı pc nin ekran ayarı 800*600 ise 800*600lük resmi eğer 1024*768 lik se 1024*768 lük resmi eğer 1280*1024 lük isede 1280*1024 resmi nasıl arka plan yapabilirim

 

[hakkım]

kimse yokmu arkadaşlar

 

[programer]

Birinci Sorunuzun Cevabı UserForm Açıldığı Zaman Ekran Çözünürlüğüne Göre Tam Ekran Olur.

'##############_OTOMATİK TAM EKRAN KODLARI_##############################
    Dim X1 As Long, Y1 As Long, Y2 As Long, X2 As Long
    Dim CX As Double, CY As Double
    Dim MyCtrl As Control
    X1 = Application.Width
    Y1 = Application.Height
    X2 = Me.Width
    Y2 = Me.Height
    CX = X1 / X2
    CY = Y1 / Y2
    Me.Width = X1
    Me.Height = Y1
    For Each MyCtrl In Me.Controls
    MyCtrl.Top = MyCtrl.Top * CY
    MyCtrl.Left = MyCtrl.Left * CX
    MyCtrl.Width = MyCtrl.Width * CX
    MyCtrl.Height = MyCtrl.Height * CY
    On Error Resume Next
    MyCtrl.Font.Size = MyCtrl.Font.Size * CY
    On Error GoTo 0
    Next
'#########################################################################

İkinci Sorunuzun Cevabı Ekran Çözünürlüğüne Göre İstediğiniz Yerdeki Resimleri Kullanabilirsiniz.

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Sub UserForm_Initialize()
cozunurluk = GetSystemMetrics(0) & "-" & GetSystemMetrics(1)
Select Case cozunurluk
        Case "800-600"
        UserForm1.Picture = LoadPicture("C:\800-600.bmp")
        Case "1024-768"
        UserForm1.Picture = LoadPicture("C:\1024-768.bmp")
        Case "1280-1024"
        UserForm1.Picture = LoadPicture("C:\1280-1024.bmp")
End Select
End Sub

 

[hakkım]

sayın programer ikinci kodun çok güzel çalışıyo ama birinci kodda hata veriyo yardıcı olurmusunuz birinci kod çalışmıyo tam ekran yapma kodu

 

[hakkım]

sayın programer ikinci kodun çok güzel çalışıyo ama birinci kodda hata veriyo yardıcı olurmusunuz birinci kod çalışmıyo tam ekran yapma kodu

 

[programer]

sayın programer ikinci kodun çok güzel çalışıyo ama birinci kodda hata veriyo yardıcı olurmusunuz birinci kod çalışmıyo tam ekran yapma kodu

ne gibi bir hata veriyor peki bende kod gayet güzel çelışıyor. Birinci Kodu UserFormun Initialize kısmına yazmanız gerekiyor aşağıdaki gibi kod gayet güzel çalışıyor

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Sub UserForm_Initialize()
cozunurluk = GetSystemMetrics(0) & "-" & GetSystemMetrics(1)
Select Case cozunurluk
        Case "800-600"
        UserForm1.Picture = LoadPicture("C:\800-600.bmp")
        Case "1024-768"
        UserForm1.Picture = LoadPicture("C:\1024-768.bmp")
        Case "1280-1024"
        UserForm1.Picture = LoadPicture("C:\1280-1024.bmp")
End Select

'##############_OTOMATİK TAM EKRAN KODLARI_##############################
    Dim X1 As Long, Y1 As Long, Y2 As Long, X2 As Long
    Dim CX As Double, CY As Double
    Dim MyCtrl As Control
    X1 = Application.Width
    Y1 = Application.Height
    X2 = Me.Width
    Y2 = Me.Height
    CX = X1 / X2
    CY = Y1 / Y2
    Me.Width = X1
    Me.Height = Y1
    For Each MyCtrl In Me.Controls
    MyCtrl.Top = MyCtrl.Top * CY
    MyCtrl.Left = MyCtrl.Left * CX
    MyCtrl.Width = MyCtrl.Width * CX
    MyCtrl.Height = MyCtrl.Height * CY
    On Error Resume Next
    MyCtrl.Font.Size = MyCtrl.Font.Size * CY
    On Error GoTo 0
    Next
'#########################################################################

End Sub

 

[Civan Jack]

Formu tekrar eski haline getirmek için kullanacağımız kodlar nedir ?
ToggleButton ile yapılabilir mi ?
Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linkte buna benzer bir onu işlenmişti. İncelermisiniz.

http://www.excel.web.tr/showthread.php?t=21611&highlight=userform+resize

 

[Civan Jack]

Anladım teşekkürler Korhan bey, sağolun...
İyi çalışmalar...