Private Type row_col row As Integer col As Integer End Type Private Const EM_LINEINDEX As Long = &HBB 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 Private Function mes_machins(ByRef oRtb As RichTextBox) As row_col mes_machins.row = oRtb.GetLineFromChar(oRtb.SelStart) + 1 mes_machins.col = oRtb.SelStart - SendMessage(oRtb.hwnd, EM_LINEINDEX, mes_machins.row - 1, ByVal 0) End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionLe chat est sorti du sac. Mossieux voulait briller en fournissant sa réponse à une de ses questions restée sans réponse. Même que Mossieux, dans grande compétence, se demandait si EhJoe savait c'est quoi la console de VB.
ToolStripStatusLabel1.Text = "Ligne: " & (RichTextBox1.GetLineFromCharIndex(RichTextBox1.SelectionStart()) + 1).ToString & ", Colonne: " & RichTextBox1.SelectionStart() - RichTextBox1.GetFirstCharIndexOfCurrentLine() + 1
Cela ira sans aucun doute beaucoup moins mal pour toi, ici, lorsque ==>>
- tu cesseras de prendre ce forum pour une vitrine de tes "progrès", en inondant ce forum de questions concernant des démarches fantaisistes, dont tu affirmes qu'elles vont conduire à du "génial" (qui ne vient bien évidemment jamais).
- tu cesseras d'intervenir inutilement dans les discussions des autres *
- tu observeras à l'égard des autres l'attitude que tu exiges que les autres observent à ton égard
- et surtout : lorsque tu commenceras à savoir de quoi tu parles, en consultant au besoin avec sérieux les rubriques MSDN qu'il t'est demandé de lire
En résumé : lorsque tu commenceras à te comporter comme un développeur et non comme un gamin.
Voilà ! Je te l'ai dit en toute amitié et surtout sincérité. A toi d'en faire ce que tu veux.
met les toi dans le... bien profond