[Çözüldü]  Label'ın Metne göre genişlemesi

Programınızda alanları adlandırmada kullanacağınız etiket nesnesi.

Cevap: Cevap: Label'ın Metne göre genişlemesi

İleti#21)  isoaltunay » 26 Mar 2018 19:47

feraz yazdı:Buraya kadar yapabildim.
Biraz daha uğraşssam kafayı tozutacağım :)
Tam olarak olmadı yinede paylaşayım.
Umarım çözülür benden bu kadar.

Kod: Tümünü seç
Const yukseklk As Integer = 396 'Label3 yukseklik
Const genslk As Integer = 666 'Label3 genislik

Private Sub TextBox1_Change()
On Error Resume Next
Dim k As Range
Me.Label3.Caption = Empty: Label2 = ""
If TextBox1.Text = "" Then Exit Sub

With Me.Label3
    .Font.Size = 12
    .AutoSize = True
    .WordWrap = True
    .Width = genslk
    .Height = yukseklk
   
    Set k = Sheets("Sheet1").Range("a2:a15").Find(TextBox1.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        .Caption = k.Offset(0, 1).Value
        Label2.Caption = k.Offset(0, 2).Value
        If .Height > yukseklk Then
           .Font.Size = 8
           .Width = genslk
           Exit Sub
        End If
    End If
     
End With

End Sub

Sağolasın feraz üstad gün boyu açmadığım yabancı site kalmadı tahminimce ilk kez bu şekilde birşey talep eden benim :) eline sağlık yine de bende araştırıyorum bulursam bi yerlerde paylaşıcam
Kullanıcı avatarı
isoaltunay
Siteye Alışmış
 
Kayıt: 19 Oca 2016 12:44
Meslek: yok
Yaş: 38
İleti: 307
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Label'ın Metne göre genişlemesi

İleti#22)  feraz » 26 Mar 2018 20:27

Rica ederim keşke olsaydı kodlar.

Aslında bu forumda çok yetenekli büyük üstadlar var heralde uyku modundalar :)

Bir görebilseler bu konuyu çözerler aslında eminim :)

Birde listbox felan demek lazım belki olabilir.Onda aşağı kaydırma çubuğu var.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5482
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Label'ın Metne göre genişlemesi

İleti#23)  isoaltunay » 27 Mar 2018 13:01

feraz yazdı:Rica ederim keşke olsaydı kodlar.

Aslında bu forumda çok yetenekli büyük üstadlar var heralde uyku modundalar :)

Bir görebilseler bu konuyu çözerler aslında eminim :)

Birde listbox felan demek lazım belki olabilir.Onda aşağı kaydırma çubuğu var.


Aşağıya kaydırmalı buldum fakat formu yazdırma olayı yapıyorum o zaman da işime yaramıyor aşağıda kalıyor veriler hep problem hep problem [komik]
Kullanıcı avatarı
isoaltunay
Siteye Alışmış
 
Kayıt: 19 Oca 2016 12:44
Meslek: yok
Yaş: 38
İleti: 307
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Label'ın Metne göre genişlemesi

İleti#24)  feraz » 29 Mar 2018 00:25

Birde Listview olarak deneyin bence.
100 satıra böldürdüm metinleri.Ben beğendim :)
Metin sığmazsa kaydırabilirsiniz metni.

Kod: Tümünü seç
Private Sub TextBox1_Change()
On Error Resume Next
Dim k As Range
Label1 = "": Label2 = ""

    If TextBox1.Text = "" Then
        Call lsvew
        Exit Sub
    End If

    Set k = Sheets("Sheet1").Range("a2:a15").Find(TextBox1.Text & "*", , xlValues, xlWhole)
   
    If Not k Is Nothing Then
         Call xxxx(k.Row)
         Label2.Caption = k.Offset(0, 2).Value
    Else
        Call lsvew
    End If

End Sub


Kod: Tümünü seç
Sub lsvew()

With ListView1
    .ListItems.Clear
    .ColumnHeaders.Clear
End With

End Sub


Kod: Tümünü seç
Sub xxxx(yy As Integer)

Dim Liste As ListItem, b As Integer, sayfaa As Worksheet
   
    Set sayfaa = Sheets("Sheet1")
    On Error Resume Next: Call lsvew
   
  With ListView1
    .View = lvwReport
    .Gridlines = False
    .Font.Size = 12
    .HideColumnHeaders = True
   
    .ColumnHeaders.Add , , "BASLIK", 650
   
    b = 100: a = Mid(sayfaa.Cells(yy, "B").Value, 1, b)
   
    For i = b + 1 To Len(sayfaa.Cells(yy, "B").Value) + b Step b
      Set Liste = .ListItems.Add(, , a)
      a = Mid(sayfaa.Cells(yy, "B").Value, i, b)
    Next
  End With

Set sayfaa = Nothing
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5482
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

Cevap: Label'ın Metne göre genişlemesi

İleti#25)  isoaltunay » 29 Mar 2018 12:03

Feraz üstad dünde bende baktım bayağı forumlarda yine yapmış olduğunuz gibi buldum aşağıya kaydırmalı var belirttiğim gibi formu printform yapıyorum o zaman aşağıda kalan veriler çıkmıyor emeğiniz için teşekkür ederim ilginiz içinde bu işte işimizi görmüyor. bugünümü de yine buna ayırıcam inşallah bulurum birşeyler artık inat ettim bende :)
Kullanıcı avatarı
isoaltunay
Siteye Alışmış
 
Kayıt: 19 Oca 2016 12:44
Meslek: yok
Yaş: 38
İleti: 307
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Label'ın Metne göre genişlemesi

İleti#26)  Ali ÖZ » 29 Mar 2018 12:07

Ben hala ne istediğinizi tam olarak anlayamadım. [ilginc]
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9536
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Label'ın Metne göre genişlemesi

İleti#27)  isoaltunay » 29 Mar 2018 13:08

Ali ÖZ yazdı:Ben hala ne istediğinizi tam olarak anlayamadım. [ilginc]

Ali üstadım ekte sunduğum veride label belli ölçülerde, excelden textbox ile veri çekiyorum karşılığına gelen ilgili veride label a düşüyor hücredeki veri uzun olunca doğal olarak sığmıyor bende diyorum ki label daki verim standart 12 punto ama sığmadığı zaman 10 yapsın yinede sığmıyorsa 8 yapsın anlayacağınız label a sığdırana kadar yazı puntosunu küçültsün
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
isoaltunay
Siteye Alışmış
 
Kayıt: 19 Oca 2016 12:44
Meslek: yok
Yaş: 38
İleti: 307
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Label'ın Metne göre genişlemesi

İleti#28)  Ali ÖZ » 29 Mar 2018 14:14

Ofisde rar dosyanızı açamıyorum,versiyon farkı var sanırım.Akşam bakarım.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9536
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Label'ın Metne göre genişlemesi

İleti#29)  isoaltunay » 29 Mar 2018 14:25

Ali ÖZ yazdı:Ofisde rar dosyanızı açamıyorum,versiyon farkı var sanırım.Akşam bakarım.

Zip olarak ekledim üstad
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
isoaltunay
Siteye Alışmış
 
Kayıt: 19 Oca 2016 12:44
Meslek: yok
Yaş: 38
İleti: 307
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Label'ın Metne göre genişlemesi

İleti#30)  Ali ÖZ » 29 Mar 2018 15:43

Label boyutuna göre seçenekleri arttırabilirsiniz.

Kod: Tümünü seç
Select Case Len(Label1.Caption)
      Case 1 To 300
           Label1.FontSize = 15
      Case 301 To 600
           Label1.FontSize = 10
      Case 601 To 900
           Label1.FontSize = 7
      Case 901 To 1200
           Label1.FontSize = 4
End Select
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9536
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Label'ın Metne göre genişlemesi

İleti#31)  isoaltunay » 29 Mar 2018 18:43

Ali ÖZ yazdı:Label boyutuna göre seçenekleri arttırabilirsiniz.

Kod: Tümünü seç
Select Case Len(Label1.Caption)
      Case 1 To 300
           Label1.FontSize = 15
      Case 301 To 600
           Label1.FontSize = 10
      Case 601 To 900
           Label1.FontSize = 7
      Case 901 To 1200
           Label1.FontSize = 4
End Select

Ali üstad eline sağlık tam istediğim buydu çok teşekkürler kaç gündür kaldırmadığımız taşın altı kalmadı :D
Kullanıcı avatarı
isoaltunay
Siteye Alışmış
 
Kayıt: 19 Oca 2016 12:44
Meslek: yok
Yaş: 38
İleti: 307
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Label'ın Metne göre genişlemesi

İleti#32)  feraz » 29 Mar 2018 22:25

Merhaba labelin örneğin height ini 30 yapıp dener misiniz?

Bende tam sığmadıda labele.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5482
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Label'ın Metne göre genişlemesi

İleti#33)  Ali ÖZ » 30 Mar 2018 09:49

feraz yazdı:Merhaba labelin örneğin height ini 30 yapıp dener misiniz?

Bende tam sığmadıda labele.



Zafer bey,
Ben mevcut labele göre yazdım.Boyuta göre kriterler değiştirilmelidir.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9536
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Cevap: Label'ın Metne göre genişlemesi

İleti#34)  Ali ÖZ » 30 Mar 2018 09:51

isoaltunay yazdı:
Ali ÖZ yazdı:Label boyutuna göre seçenekleri arttırabilirsiniz.

Kod: Tümünü seç
Select Case Len(Label1.Caption)
      Case 1 To 300
           Label1.FontSize = 15
      Case 301 To 600
           Label1.FontSize = 10
      Case 601 To 900
           Label1.FontSize = 7
      Case 901 To 1200
           Label1.FontSize = 4
End Select

Ali üstad eline sağlık tam istediğim buydu çok teşekkürler kaç gündür kaldırmadığımız taşın altı kalmadı :D


Rica ederim,iyi çalışmalar.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9536
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Önceki

Forum Label

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe