Aller au contenu


Photo

Cellule sur plusieurs lignes


  • Please log in to reply
7 replies to this topic

#1 patyom

patyom

    Grand(e) bavard(e)

  • Membres
  • PipPipPip
  • 364 Messages :
  • Sexe:Masculin
  • Localisation:Livernon (Lot)

Posté 01 octobre 2019 - 13:35

Bonjour,

 

Est-il possible d'afficher dans une listbox, une cellule sur plusieurs lignes ?

 

sur plusieurs lignes parce que le texte est trop long par rapport à la largeur de la colonne.

 

simuler un retour à la ligne quoi

 

A+         :zz-big-dali:


Ce message a été modifié par patyom - 01 octobre 2019 - 13:44 .

MacBook Pro - 13" - 6Go - 1 To
Emac 1GHz - 640 MB - 40 Go


#2 BorakLeRouge

BorakLeRouge

    Hamster d'or (dort ?)

  • Membres
  • PipPipPipPipPipPipPip
  • 3 981 Messages :
  • Configuration:Mac Mini Core i7 2019 - 16Go - 2x1To SSD
  • Sexe:Masculin
  • Localisation:Cormeilles en Parisis.rb
  • Passions:Macintosh, Photo, Haute-fidélité, Ski, Roller, Call of Duty, Tactical Ops, Counter Strike, Worms 1

Posté 01 octobre 2019 - 19:44

Ouh là.... je sèche :)


Je fais mes sauvegardes sur NSA-Cloud !

Au bout de 10 ans, le vieux MacPro vient de laisser sa place à un MacMini i7...


#3 zekiller28

zekiller28

    Admin qui mord

  • Administrateurs
  • PipPipPipPipPipPipPipPipPip
  • 10 685 Messages :
  • Configuration:Toutes sortes de Mac du PPC à l'Intel et toute sorte de MacOS X De Panther Client à Maverick.
  • Sexe:Masculin
  • Localisation:Saint-Hilarion (78)

Posté 08 octobre 2019 - 18:00

Heu…


Le site de ToolsX
Le site de ToolsXOptimizer

Apple Certified Mac Management Basics 10.12
Apple Certified Mac Management Basics 10.9 English
Apple Certified Mac Integration Basics 10.9 English
Apple Certified Associate Mac Integration 10.8
Apple Certified Mac Management Basics 10.8

#4 bonlieu

bonlieu

    Membre

  • Membres
  • Pip
  • 9 Messages :

Posté 08 octobre 2019 - 23:13

Heu…

 

Peut-être ceci :

 

 

ListBox1
____________
CellTextPaint :
  dim CellString as string
  CellString = me.Cell(row,column)
 
  g.DrawString CellString, 0,18, g.Width
 
  dim MyStringWidth as double
  MyStringWidth = g.StringWidth(CellString)
  if MyStringWidth < g.Width then
    me.DefaultRowHeight =-1
  else
    me.DefaultRowHeight =20
  end if
 
  me.CellType(row,column) =3' en mettant 2 , la ligne sera précédée d'un CheckBox.
  return true
_______________________________
Open :
  me.AddRow "Ligne numéro 1"
  me.AddRow "Ligne numéro 2"
  me.AddRow "Ligne numéro 3"
  me.AddRow "Ligne numéro 4"
  me.AddRow "Ligne numéro 5"
 
Ajouter d'autres lignes avec AddRow...

Ce message a été modifié par bonlieu - 08 octobre 2019 - 23:24 .


#5 bonlieu

bonlieu

    Membre

  • Membres
  • Pip
  • 9 Messages :

Posté 10 octobre 2019 - 01:11

Voici la correction de mon précédent message  car j'avais mal compris votre question. La hauteur de la cellule est de 280 pour que tout le texte tienne dedans.

 

1 projet

une fenêtre

ListBox1
Width 486
Height 316
DefaultRowHeight: 280
TextFont : System
TextSize : 20
_____________________________________
CellTextPaint
  dim CellString as string
  CellString = me.Cell(row,column)
 
  g.DrawString CellString, 0,18, g.Width
 
  dim MyStringWidth as double
  MyStringWidth = g.StringWidth(CellString)
  if MyStringWidth < g.Width then
    me.DefaultRowHeight =3
  else
    me.DefaultRowHeight =280
  end if
 
  me.CellType(row,column) =1
  return true
____________________________________
Open
  me.AddRow "Ecoute-moi, Capitaine de mon enfance,"+chr(13)_
  +"Faisons comme avant,"+chr(13)_
  +"Montons à bord de ma première barque"+chr(13)_
  +"Qui passait la mer quand j'avais dix ans."+chr(13)_
  +"Elle ne prend pas l'eau du songe,"+chr(13)_
  +"Et sent sûrement le goudron,"+chr(13)_
  +"Ecoute, ce n'est plus que dans mes souvenirs"+chr(13)_
  +"Que le bois est encor le bois, et le fer, dur,"+chr(13)_
  +"Depuis longtemps, Capitaine,"+chr(13)_
  +"Tout m'est nuage et j'en meurs"

 

____________________________

 

Tout le monde aura reconnu ce très beau poème (Le Rêve) de Supervielle.


Ce message a été modifié par bonlieu - 10 octobre 2019 - 01:25 .


#6 zekiller28

zekiller28

    Admin qui mord

  • Administrateurs
  • PipPipPipPipPipPipPipPipPip
  • 10 685 Messages :
  • Configuration:Toutes sortes de Mac du PPC à l'Intel et toute sorte de MacOS X De Panther Client à Maverick.
  • Sexe:Masculin
  • Localisation:Saint-Hilarion (78)

Posté 10 octobre 2019 - 15:07

Pas mal mais là tu rajoutes des retours chariot, je ne suis pas sûr que c'était la demande initiale.  :zz-big-blink:


Le site de ToolsX
Le site de ToolsXOptimizer

Apple Certified Mac Management Basics 10.12
Apple Certified Mac Management Basics 10.9 English
Apple Certified Mac Integration Basics 10.9 English
Apple Certified Associate Mac Integration 10.8
Apple Certified Mac Management Basics 10.8

#7 bonlieu

bonlieu

    Membre

  • Membres
  • Pip
  • 9 Messages :

Posté 10 octobre 2019 - 16:46

Pas mal mais là tu rajoutes des retours chariot, je ne suis pas sûr que c'était la demande initiale.  :zz-big-blink:

 

 

Et voilà ce que ça donne sans ch(13) :
CellTextPaint
_________________
dim CellString as string
  CellString = me.Cell(row,column)
 
  g.DrawString CellString, 0,18, g.Width
 
  dim MyStringWidth as double
  MyStringWidth = g.StringWidth(CellString)
  if MyStringWidth < g.Width then
    me.DefaultRowHeight =280
  end if
 
  me.CellType(row,column) =1
  return true
______________________________
Open
  me.AddRow "Ecoute-moi, Capitaine de mon enfance, Faisons comme avant, "_
  +"Montons à bord de ma première barque  Qui passait la mer quand j'avais dix ans "_
  +"Elle ne prend pas l'eau du songe, "_
  +"Et sent sûrement le goudron, "_
  +"Ecoute, ce n'est plus que dans mes souvenirs "_
  +"Que le bois est encor le bois, et le fer, dur,  "_
  +"Depuis longtemps, Capitaine, "_
  +"Tout m'est nuage et j'en meurs"


#8 zekiller28

zekiller28

    Admin qui mord

  • Administrateurs
  • PipPipPipPipPipPipPipPipPip
  • 10 685 Messages :
  • Configuration:Toutes sortes de Mac du PPC à l'Intel et toute sorte de MacOS X De Panther Client à Maverick.
  • Sexe:Masculin
  • Localisation:Saint-Hilarion (78)

Posté 13 octobre 2019 - 13:59

:zz-big-bien:


Le site de ToolsX
Le site de ToolsXOptimizer

Apple Certified Mac Management Basics 10.12
Apple Certified Mac Management Basics 10.9 English
Apple Certified Mac Integration Basics 10.9 English
Apple Certified Associate Mac Integration 10.8
Apple Certified Mac Management Basics 10.8




0 utilisateur(s) en train de lire ce sujet

0 membre(s), 0 invité(s), 0 utilisateur(s) anonyme(s)