Başlıksız ( TitleBar'sız ) UserForm

Kulanıcı arayüz formu

Başlıksız ( TitleBar'sız ) UserForm

İleti#1)  Tarkan VURAL » 25 Tem 2008 11:47

Kod: Tümünü seç
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Kod: Tümünü seç
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
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Başlıksız ( TitleBar' sız ) UserForm

İleti#2)  Abidin Özçelik » 27 Ağu 2008 15:24

Çok güzel... Teşekkürler
Kullanıcı avatarı
Abidin Özçelik
Siteye Alışmış
 
Adı Soyadı:ABİDİN ÖZÇELİK
Kayıt: 16 Haz 2008 11:47
Konum: Diyarbakır
Meslek: Eczacı
Yaş: 37
İleti: 361
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİYARBAKIR

Başlıksız ( TitleBar' sız ) UserForm

İleti#3)  hsayar » 04 Kas 2008 10:39

hsr_form.xla referanstan seçili iken
aşağıdaki kodlarda işinizi görür, isterseniz başlıklı ve şeffa bir userform elde edersiniz.
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Activate()                                                                        '##'
1 Call UFEkOz                   'Class Modülden Userforma mak,min, ico, şeffaf vs. ayarlarını yapar.
End Sub
Private Sub UFEkOz()
Dim UFT As hsr_UserformType
With UFT
Set .Form = Me
  .GstBas = [1 - Hayır]
  Call UF_EkOz_HSRXLA(UFT)
Set .Form = Nothing
End With
End Sub
Felaket Başa Gelmeden Evvel Önleyici ve Koruyucu Tedbirler Düşünmek Lazım.

Felaket Geldikten Sonra Dövünmenin Yararı Yoktur.

Mustafa Kemal ATATÜRK
Kullanıcı avatarı
hsayar
Site Dostu
 
Adı Soyadı:Hüseyin SAYAR
Kayıt: 18 Eyl 2008 11:30
Meslek: Çalışma Ekonomisti
Yaş: 39
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Cevap: Başlıksız ( TitleBar' sız ) UserForm

İleti#4)  Murat OSMA » 09 Ekm 2010 12:06

Başlıksız formda kayan yazı güzel olur sanki.
Form üzerine tıkladığınzda, formu kapatır.

Kod: Tümünü seç
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Const txt = "ExcelVBA.Net"
Const r = 80
Dim temp As Integer
Dim chk As Boolean


Kod: Tümünü seç
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
         Me.Label1.Caption = Space(80) + txt
    temp = r + Len(txt)
    chk = True
    Me.Label1.Enabled = True
    Trwklg_Timer
End Sub

Kod: Tümünü seç
Private Sub UserForm_Click()
Unload Me
End Sub


Kod: Tümünü seç
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    chk = False
End Sub


Kod: Tümünü seç
Private Sub Label2_MouseMove(ByVal Button As Integer, _
        ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    DoEvents
    With Label2
        If X < 0.1 * .Width Or X >= 0.7 * .Width _
                Or Y < 0.1 * .Height Or Y >= 0.7 * .Height Then
            .ForeColor = &HFF0000
        Else
            .ForeColor = &HFFC0C0
        End If
    End With
End Sub
Private Sub Label1_Click()
    rLink = "http://www.excelvba.net/"
   
ActiveWorkbook.FollowHyperlink Address:=rLink, NewWindow:=True
End Sub


Kod: Tümünü seç
Private Sub Label2_Click()
    adr = "excel@excelvba.net"
    'Email
    Subject = "&Subject= Merhaba"
    body = "&body=Çok güzel olmuş, ellerinize sağlık :)"
   
    ActiveWorkbook.FollowHyperlink Address:="mailto:" & _
            adr & Subject & body, NewWindow:=True
End Sub

Kod: Tümünü seç
Private Sub Trwklg_Timer()
    Do While chk
        temp = temp - 1
        Me.Label1.Caption = Right(Me.Label1.Caption, temp)
        Sleep 30
        DoEvents
        If Label1.Caption = "" Then chk = False: UserForm_Activate
    Loop
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14305
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Başlıksız ( TitleBar' sız ) UserForm

İleti#5)  Murat OSMA » 05 Şub 2011 13:43

TaskBar'sız & FullScreen da yapalım...
Ekran koruyucu modunda görünsün... ;;_)

Resim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14305
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Başlıksız ( TitleBar' sız ) UserForm

İleti#6)  Tarkan VURAL » 05 Şub 2011 13:58

Güzel olmuş, hayal gücüne sağlık. :D --)(
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Başlıksız ( TitleBar' sız ) UserForm

İleti#7)  Murat OSMA » 05 Şub 2011 13:59

:D Beğendiğine sevindim abicim. [op]
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14305
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Başlıksız ( TitleBar'sız ) UserForm

İleti#8)  mervin » 12 Ekm 2011 18:55

Teşekkürler
Kullanıcı avatarı
mervin
 
Adı Soyadı:mervin erin
Kayıt: 12 Ekm 2011 18:46
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Başlıksız ( TitleBar'sız ) UserForm

İleti#9)  ybagdadi » 18 Oca 2012 19:00

Merhabalar,
Basliksiz_Gorev_Cubuksuz_Tam_Ekran_UserForm.xls dosyasını bilgisayarımda çalıştırdığımda makronun en üstündeki satırlar kırmızı renge bürünüyor. Bu satırları aşağıya da kopyaladım. Ayrıca Tarkan beyin örneğini denediğimde 64-bit uyarısı alıyorum. Bu problemleri aşmama yardımcı olursanız sevinirim. Selamlar...

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long[/b][/b]
Kullanıcı avatarı
ybagdadi
Yeni Başlamış
 
Adı Soyadı:yılmaz bağdadi
Kayıt: 18 Tem 2009 18:29
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Başlıksız ( TitleBar'sız ) UserForm

İleti#10)  Erkan Akayay » 18 Oca 2012 19:21

Sorularınızı düzgün bir Türkçe ile, detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 13:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 48
İleti: 3912
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ümraniye


Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe