UserForm'un başlık satırını ve x işaretini kaldırmak.

[Orion1]

Mrb.
UserForm'un başlık satırını ve x işaretini kaldırmak istiyorum.
Teşekkür ederim.
İyi çalışmalar.

 

[Tarkan VURAL]

Selam;
Forum içerisinde arattırma yaparsanız bu konuyla ilgili cevap daha önce verilmişti.

Arama kriteri olarak "Başlıksız" yazabilirsiniz.

Saygılarımla
Tarkan VURAL[/code]

 

[Orion1]

Selam;
Forum içerisinde arattırma yaparsanız bu konuyla ilgili cevap daha önce verilmişti.

Arama kriteri olarak "Başlıksız" yazabilirsiniz.

Saygılarımla
Tarkan VURAL[/code]

Mrb.
Teşekkür ederim.
İyi çalışmalar.

 

[Orion1]

Mrb.
Görev çubuğunu ve x işaretini kaldırmak için verdiğiniz linkteki Aşağıdaki kodları userformun kod sayfasına yapıştırdım. ama çalıştıramadım.
Public satırlarında Hata veriyor.Public satırlarını kaldırdığımda ise sub or Function bulunamadı diyor.Windows'um Win-98 acaba o sebeptenmi çalışmıyor
Teşekkür ederim.
İyi çalışmalar.

Formunuzun başlıksız olması için bu deklerasyonu modül sayfasına,
Kod:
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long


bu koduda userform kod sayfasına yerleştirin.
Kod:
Private Sub UserForm_Activate()
Dim lngFormHwnd As Long
Dim lngFormStyle As Long

If Application.Version < 9 Then
lngFormHwnd = FindWindow("THUNDERXFRAME", Me.Caption)
Else
lngFormHwnd = FindWindow("THUNDERDFRAME", Me.Caption)
End If
lngFormStyle = GetWindowLong(lngFormHwnd, (-16))
lngFormStyle = lngFormStyle And Not &H800000
SetWindowLong lngFormHwnd, (-16), lngFormStyle
DrawMenuBar lngFormHwnd
End Sub

 

[Haluk]

Ã?nerilen mesajda, "Public" ifadesi ile başlayan satırların UserForm modulüne değil, yeni eklenecek standart bir module yerleştirilmesi ifade edilmiş.

Eğer siz "Public" ifadesi ile başlayan satırları da UserForm modulüne yerleştirdiyseniz, sözkonusu "Public" ifadelerini, "Private" olarak değiştirin ve bir de öyle deneyin.

 

[Levent Menteşoğlu]

Birde aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=3665&highlight=userformun

 

[Orion1]

Ã?nerilen mesajda, "Public" ifadesi ile başlayan satırların UserForm modulüne değil, yeni eklenecek standart bir module yerleştirilmesi ifade edilmiş.

Eğer siz "Public" ifadesi ile başlayan satırları da UserForm modulüne yerleştirdiyseniz, sözkonusu "Public" ifadelerini, "Private" olarak değiştirin ve bir de öyle deneyin.

--------------------------------------------------
mrb.
Sn Raider'in önermesi ışığında Userform'un Kod sayfasına yapıştırdığım
Public yazan deyimleri Private olarak değiştirdim ve sonucu aldım.
Sn.Raider'e ,Sn.Tarkan'a ve Başka bir linkteki x başlık satırının kaldırılması konusunu anlatan linki öneren Sn.LeventM 'ye teşekkür ederim.
İyi çalışmalar.
:hey:

 

[Haluk]

Sn. Sezar,

Geri dönüş bilgisi için teşekkür ederiz.

İyi çalışmalar...

 

[northcyprus]

kodlar süper paylaşım için teşekürler