[Snippets] Formatage (CODE) corrompu en VB6...

Résolu

JeuDuTaquin Messages postés 251 Date d'inscription mardi 4 juillet 2017 Statut Membre Dernière intervention 31 mai 2023 - Modifié le 26 juil. 2019 à 20:47
Whismeril Messages postés 18417 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 5 juin 2023 - 29 juil. 2019 à 11:19

Salut à tous,

J'aimerai porter à votre connaissance une bizarrerie du formatage des codes VB6 dans les Snippets.

En effet, toutes les lignes sont chaînées, et semble être affichées sans retour chariot.

J'ai donc posé mon code sans le tagger [code] [\code]. (et c'est honteux!)

Suis-je le seul à avoir eu ce problème?
Ou ai-je loupé la bonne icone sur le formulaire de saisie?

Merci d'avance pour votre retour d'expérience sur l'utilisation des 'Snippets' en VB.

1 réponse

Réponse 1 / 1

Whismeril Messages postés 18417 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 5 juin 2023 624
26 juil. 2019 à 21:31

Bonsoir

peux tu montrer un exemple?

JeuDuTaquin Messages postés 251 Date d'inscription mardi 4 juillet 2017 Statut Membre Dernière intervention 31 mai 2023 7
26 juil. 2019 à 21:47

Salut Whismeril,
Désolé, je n'ai pas pris de capture écran, et je dois refaire un 'Snippet', et je ne pourrai pas le supprimer!
Attend ! je regarde avec le tag 'code' du forum…

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Boolean
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Debug.Print "key"
Form_KeyPress (KeyCode)

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
Debug.Print (KeyAscii)


With Form1
LineC.X1 = .Width / 2
LineC.Y1 = .Height / 2
LineC.X2 = (.Width / 2) + IIf(GetAsyncKeyState(37), 0, .Width / 2) - IIf(GetAsyncKeyState(39), 0, .Width / 2)
LineC.Y2 = (.Height / 2) + IIf(GetAsyncKeyState(38), 0, .Height / 2) - IIf(GetAsyncKeyState(40), 0, .Height / 2)
End With
DoEvents
Sleep 100
With Form1
LineC.X1 = .Width / 2
LineC.X2 = .Width / 2
LineC.Y1 = .Height / 2
LineC.Y2 = .Height / 2
End With
DoEvents
End Sub

Private Sub Form_Load()

LineC.BorderColor = vbRed
LineC.BorderWidth = 10

KeyPreview = True

With Form1
Line2.X1 = 0
Line2.Y1 = .Height / 2
Line2.X2 = .Width
Line2.Y2 = .Height / 2

Line1.X1 = .Width / 2
Line1.Y1 = 0
Line1.X2 = .Width / 2
Line1.Y2 = .Height

LineC.X1 = .Width / 2
LineC.X2 = .Width / 2
LineC.Y1 = .Height / 2
LineC.Y2 = .Height / 2
End With
End Sub

Je valide le message...

JeuDuTaquin Messages postés 251 Date d'inscription mardi 4 juillet 2017 Statut Membre Dernière intervention 31 mai 2023 7 > JeuDuTaquin Messages postés 251 Date d'inscription mardi 4 juillet 2017 Statut Membre Dernière intervention 31 mai 2023
26 juil. 2019 à 21:49

Ici, ça fonctionne…
Le formatage n'est pas le même.

Je modifie mon 'Snippet'...

[edit1]
Regarde en fin de 'snippet', je l'ai 'mis en code'
ici; https://codes-sources.commentcamarche.net/source/102431-vb5-6-tester-une-combinaison-de-touches
[\edit1]

[edit2]
Testé sur Firefox, Chorme et IE.
Ce n'est pas un problème de script.
[\edit2]

JeuDuTaquin Messages postés 251 Date d'inscription mardi 4 juillet 2017 Statut Membre Dernière intervention 31 mai 2023 7
27 juil. 2019 à 00:33

Merci Whismeril, pour le déplacement du message, car effectivement, le problème est plus large que le VB6...
Mais, cela ne gène en rien la création de messages 'Snippets', mais par méconnaissance du problème, l'utilisateur doit éditer et modifier ses messages.

Whismeril Messages postés 18417 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 5 juin 2023 624
27 juil. 2019 à 09:29

Bonjour

Quand c’est tout gris, cela veut dire que tu n’as pas précisé le langage dans la balise.
Voir ce petit tuto
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

Votre réponse