inserer un texte avec point d\'insertion à déterminer

[sechanbask]

Bonjour,

je souhaite créer un texte issu d'un calcul sous VBA à l'endroit que j'aurai choisi. J'ai réussi à l'inserer en 0,0 mais pour le mettre au bout de mon pointeur pour l'insérer une fois "écrit" je bloque. Voici le code pour composer mon texte en 0,0

 

 

texte_soufflage = TextBox2.text

   
   corner(0) = 0#: corner(1) = 10#: corner(2) = 0#
   
   'largeur du max du texte
   width = 60
   
   
   text = texte_soufflage & " " & entree & "m3/h" & vbCrLf & resultat
       
   'Création du text multiligne
       Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)




Autre petite question : comment mettre dès l'ouverture de la form le curseur dans un textbox ?? 

j'ai fait comme j'avais l'habitude sous VB 6 j'ai cliqué sur la form, mais je n'obtiens  que l'événement UserForm_Click()... alors si quelque sait faire...

Private Sub UserForm_Click()
TextBox1.SetFocus
End Sub

 

J'ai même essayer de mettre TextBox1.SetFocus dans le module de lancement mais rien n'y fait...

 

[BIM G CO]

grrrr à chaque signet ne pas oublier sa fermeture !!!

 

[ / code ]

[sechanbask]

Veuillez m'excuser mais je suis débutant : ceinture jaune... par contre j'aimerais bien que vous m'aidiez pour mon problème de VB... merci par anticipation

[didier]

coucou,

 

quelques exemple avec les textes...

 

Sub TestPourSechanBask()

Dim ChaineTexte As String

ChaineTexte = "ceci est un test"

Dim Pins As Variant

Dim Txt As AcadText

 

Dim NouveauStyle As AcadTextStyle

Set NouveauStyle = ThisDrawing.TextStyles.Add("STYLEGRAS")

Pins = ThisDrawing.Utility.GetPoint(, vbCrLf & "Insertion du texte: ")

NouveauStyle.Height = 0.5

NouveauStyle.fontFile = "C:/windows/Fonts/arialnb.ttf"

 

Set Txt = ThisDrawing.ModelSpace.AddText(ChaineTexte, Pins, 1)

Txt.StyleName = "stylegras"

Txt.color = acRed

Txt.Update

 

End Sub

 

amicalement

[sechanbask]

Merci beaucoup didier, j'ai, grâce à toi, bientôt fini mon projet...

[sechanbask]

bonsoir,

Si ça interesse quelqu'un, j'ai trouvé comment initialiser un textbox avec le curseur prêt à écrire:

 

Private Sub UserForm_Activate()
TextBox1.SetFocus
End Sub