form tam ekran

[Fuat Şirin]

hocam vb6 da formu ekran çözürlüğüne göre

tam ekran yapmak istiyorum nasıl yaoarım hocam

 

[Fuat Şirin]

değerli hocalarım lütfen yardım

 

[Fuat Şirin]

değerli hocalarım lütfen bu konuda yardımcı olunuz saygılar

 

[Sa.NaL]

Evet buna ilaveten bende değerli hocalarımdan birşey istiyorum userformu A4 boyutuna nasıl getiririz ayarlarında yükseklik ve genişliği kaç olsun ki A4 boyutunda çıktısnı alayım UserForm1.PrintForm kodu ile şimdiden tşkler

 

[Fuat Şirin]

yardımcı olunursa sevinirim

 

[Fuat Şirin]

kodları uyarlama

Private Sub UserForm_Initialize()
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

bu kodları vb6 daki forma nasıl uyarlarım

saygılar şimdiden

 

[Fuat Şirin]

hocalarım lütfen yardım edelim

 

[PLTNAZR]

İlk Açılışta kullandığınız Formun Açıldığında Olay Yordamına
DoCmd.Maximize
Veya Bir Makro Oluşturup
TamEkran
yapı seçip Yine İlk Formunuzun Açıldığında olayına Makroyu Kaydetmeyi

Denediniz mi?

Aklıma gelenler bunlar...

 

[Fuat Şirin]

yok hocam bilgisayarın çözünürlüğüne göre tam ekran yapmak istiyorum
yaptığım programı 7" bir pcde de kullanıyorum

22 " pcde de
onun için gerekli

lütfen çok acil yardım saygılar

 

[PLTNAZR]

Ekran Çözünürlüğü

Elimde Bir örnek var onu Kendinize göre uyarlayınız...

 

[Fuat Şirin]

hocam bunu vb6 da soruyorum
ve ekran çözünürlüğünü değiştirsin istemiyorum

o pcdeki ekran çözünürlüğü neyse ona göre form şekillensin içindeki nesnelerde

7" ekranım 320*288 üstünü desteklemiyor zaten

 

[modalı]

Sayın Fuat Şirin,

Bu iş biraz karışık:

1. Global değişkenleri tutacağınız bir modül ekleyin.

Kodlar:

Private List() As Control
Private curr_obj As Object
Private iHeight As Integer
Private iWidth As Integer
Private x_size As Double
Private y_size As Double

2. Başka bir modüle şu kodları ekleyin:

Private Type Control
    Index As Integer
    Name As String
    Left As Integer
    Top As Integer
    width As Integer
    height As Integer
End Type

Şimdi formun boyutunu ayarlayan fonksiyon kodları:

Public Sub ResizeForm(frm As Form)
    'Set the forms height
    frm.height = Screen.height / 2
    'Set the forms width
    frm.width = Screen.width / 2
    'Resize all of the controls
    'based on the forms new size
    ResizeControls frm
End Sub

Formdaki kontrollerin boyutunu ayarlayan fonksiyon:

Public Sub ResizeControls(frm As Form)
Dim i As Integer
'   Get ratio of initial form size to current form size
x_size = frm.height / iHeight
y_size = frm.width / iWidth

'Loop though all the objects on the form
'Based on the upper bound of the # of controls
For i = 0 To UBound(List)
    'Grad each control individually
    For Each curr_obj In frm
        'Check to make sure its the right control
        If curr_obj.TabIndex = List(i).Index Then
            'Then resize the control
             With curr_obj
                .Left = List(i).Left * y_size
                .width = List(i).width * y_size
                .height = List(i).height * x_size
                .Top = List(i).Top * x_size
             End With
        End If
    'Get the next control
    Next curr_obj
Next i
End Sub

Formdaki kontrollerin yerini ayarlayan fonksiyon:

Public Sub GetLocation(frm As Form)
Dim i As Integer
'   Load the current positions of each object into a user defined type array.
'   This information will be used to rescale them in the Resize function.

'Loop through each control
For Each curr_obj In frm
'Resize the Array by 1, and preserve
'the original objects in the array
    ReDim Preserve List(i)
    With List(i)
        .Name = curr_obj
        .Index = curr_obj.TabIndex
        .Left = curr_obj.Left
        .Top = curr_obj.Top
        .width = curr_obj.width
        .height = curr_obj.height
    End With
    i = i + 1
Next curr_obj
    
'   This is what the object sizes will be compared to on rescaling.
    iHeight = frm.height
    iWidth = frm.width
End Sub

Formdaki yazı boyutunu ayarlayan fonksiyon.

Public Function SetFontSize() As Integer
    'Make sure x_size is greater than 0
    If Int(x_size) > 0 Then
    'Set the font size
        SetFontSize = Int(x_size * 8)
    End If
End Function

3. Gelelim boyutunu ayarlayacağımız forma:

Private Sub Form_Load()
    GetLocation Me
    CenterForm Me
    ResizeForm Me
    
    lblInstructions.Font = SetFontSize()
End Sub

ancak tüm kontrollerin yazı boyutunu yukarıdaki şekilde ayarlamanız gerekir.

Kolay gelsin

 

[Fuat Şirin]

off bune

Hocam Tek Tek Ölçüp Yapsam Daha kolaymış

Hocam Çok Saolun

El Terminalinda Kullanıyorum Sıkıntı Oluyor
Ondan Bu yolu Seçtim Saygılar Çok Saolun Hocam

 

[Fuat Şirin]

GetLocation Me
CenterForm Me
ResizeForm Me

hocam bu kısımda hata veriyor neden olabilir acaba

 

[modalı]

Sayın Fuat Şirin,

CenterForm Me yi silip deneyin. Çünkü öyle bir fonksiyon tanımlanmış değil.


İyi çalışmalar

 

[oktaykarauzun]

Sayın Modalı;
Vermiş olduğunuz kodları kullanmaya çalıştım, ama yapamadım. örnekte bulunan formu kullanmış olduğum bilgisayarın ekran çözünürlüğü 1280x1024 olduğu için problem olmuyor, ama farklı ekran çözünürlüğüne sahip bilgisayarlarda kullandığım zaman problem oluyor, sizin vermiş olduğunuz kodlar tam bana göre ama, olmadı. örnek üzerinde uygulama yapabilir misiniz. tşkler

 

[oktaykarauzun]

Sayın Modalı,
Yine ben, üsteki mesaja cevap verememişsiniz, galiba gözünüzden kaçtı, bakabilir misiniz?