simge durumuna getirmek

[sdegirmenci]

User formda resim göstermek

Değerli Üstadlar;
İsimlerin karşısına "telefon resmi" bulunan yere aranan kişinin resmini atmak mümkünmü .Birde Sayfa açıldığında Excel sayfası çıkmadan direkt User form açılabilirmi.Yardımlarınız için şmdiden teşekkür eder işlerinizde kolaylıklar dilerim.

 

[hsayar]

Dosyanız ektedir. Sn. Tankut Sazlının Class Modulünü ekledim ve userformun activeter olyaınıa da aşağıdaki satırları

Option Compare Text
Dim oFormChanger As New CFormChanger
Private Sub UserForm_activate()
Call Userform_EkOzellik(Me)
End Sub
Private Sub Userform_EkOzellik(Form As Object)
Set oFormChanger.Form = Form
With oFormChanger
    .Modal = False               'Modal?
    .ShowCaption = True          'True:Başlıklı, False:Başlıksız
    .ShowTaskBarIcon = True     'Görev çubuğunda olmasın: false; olsun; True
    .ShowCloseBtn = True         'Kapatma Butonu Aktifse: True, Pasifse; False
    .ShowMaximizeBtn = False      'Max Butonu Aktifse: True, Pasifse; False
    .ShowMinimizeBtn = True      'Min Butonu Aktifse: True, Pasifse; False
    .Sizeable = False            'Boyutlandırma Aktifse: True, Pasifse; False
    .SmallCaption = False        'küçük Başlık
    .ShowSysMenu = True          '????????????
    .IconPath = "C:\Documents and Settings\xx\Desktop\7.ico"  'icon yolu
'buraya bildiğini telefon iconu olan yol belirtir
    .ShowIcon = False           'ikon Gösterilsinmi ve burayı true yaparsanız iconuzda olur.
    If .SmallCaption = True Then Me.Height = Me.Height - 0.4     'küçük başlık seçilmişse userformu küçült
    If .ShowCloseBtn = False And .ShowMaximizeBtn = False And _
    .ShowMinimizeBtn = False And .ShowIcon = False Then   'Min,Max,Close Butonları ve icon gösterilmeyecekse
    '.IconPath = "" then
        .ShowCaption = False                              'başlıkta kaldırılsın.
    End If
End With
End Sub

 

[sdegirmenci]

Sayın hsayar,
İlginize çok teşekkür ederim,çok minnete geçti. sorumdaki ikinci probleme " Form üzerinde telefon resmi olan yere aranan kişinin resminin gelmesi " konusuna yardımcı olabilirseniz çok sevinirim.Çok teşekkür eder saygılar sunarım

 

[hsayar]

1 sorunuz için rica ederim.
2 sorunuz çözülürse bende istifade edeceğim askıda kalmış bir sorum var benimde bu hususta.. ancak Resim yoksa Boş kalacak veya bos.jpg gelecek.