UserForm2 HerZaman UserForm1'in üstünde olsun

[Orion1]

Merhabalar.
UserForm1 ve UserForm2 var.
Önce UserForm1'i açıyorum.
Sonra Userform1'deki Command button ile userForm2'yi açıyorum.
Sonra Userform1'in üzerinde herhangi bir nesneye veya Userform1'e tıklayınca UserForm2 alta gidiyor.Yani UserForm1 Aktif olunca UserForm1 Alta gidiyor.
Userform2 Açık olduğu süre içersinde devamlı userform1'in üstünde olsun istiyorum.
Teşekkür ederim.İyi çalışmalar.
:hey:

 

[Orion1]

Merhabalar.
Dosyayı gönderdim.
Bir bakarsanız..!!!
:hey:

 

[Levent Menteşoğlu]

Her iki userformunda showmodal özelliğini true yapın.

 

[Orion1]

Her iki userformunda showmodal özelliğini true yapın.

Merhablaar.
Böyle yapıncada UserForm1'in üzerindeki Nesnelere ulaşamıyorum.
Örneğin Userform1'in üzerinde'ki textboxa veri giremiyorum.

 

[Levent Menteşoğlu]

Her zaman aktif olan userform üstte kalacaktır, bu durumda iki userformu üstüste değilde yanyana açılacak şekilde ayarlamanızı öneririm. Bunu top ve left ayarlarından yapabilirsiniz.

 

[Seyit Tiken]

Burda iki farklı mantık uygulanabilir. 1.Birinci userformu düğmeden kapatırken ikincisinin açılması; ikinciyi kapatırken birinci userformun açılması şeklinde. 2.Mantık : Properties > StartUpPosition'u manuel yapın. > Top.

 

[Seyit Tiken]

Son anda aklıma geldiği için söylemekte fayda var. Çift userform kullanma yerine Page nesnesini kullanabilirsiniz.

 

[Orion1]

Merhabalar.
Ben verileri Userform1Deki Userform'daki listbox'tan okuyorum.
Listboxta Kişi isimleri var.
Userfom1De yer olmadığı için UserForm2'yi oluşturdum.
UserForm2'de de Userform1'den listbox'tan seçtiğim kişilerin resmini gösteriyorum.
Userform2'yi ekranın sol üst köşesine çekip o şekilde de uygulama yapabilirim.
Ama kullanıcı userform2'yi userform1'in üzerine getirebilir.
Userfromların ShowModel özelliğini False yaptığım zaman o durumda Eğer kullanıcı UserForm2'yi userform1'in üzerine getirirse UserForm1'e tıklandığında Userform2 Alta gidiyor.
Onun için ben hep üstte olamasını istiyordum.Ama madem ki olmuyor.
O zaman UserForm2 Devamlı Ekranın sol üst köşesinde sabit kalsın. Sürüklenemesin.Böyle bir çözüm uygulayabilirmiyiz?
Teşekkür ederim.
İyi çalışmalar.
:hey:

 

[Levent Menteşoğlu]

O zaman UserForm2 Devamlı Ekranın sol üst köşesinde sabit kalsın. Sürüklenemesin.

Aşağıdaki kodları userformun kod sayfasına kopyalayın.

[vb:1:bb400e8756]Private Const MF_BYCOMMAND = &H0&
Private Const SC_MOVE = &HF010&
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long


Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
Dim hwnd As Long
Dim hMenu As Long
Dim ret As Long
Dim sClass As String
hwnd = FindWindow(sClass, Me.Caption)
hMenu = GetSystemMenu(hwnd, 0&)
ret = DeleteMenu(hMenu, SC_MOVE, MF_BYCOMMAND)
End Sub
[/vb:1:bb400e8756]

 

[Orion1]

Merhabalar.
Sayın: Leventm Hocam Teşekkür ederim.
İyi çalışmalar.
:hey: