Я хочу установить строку текстовой ссылки в расширенном текстовом поле vb.net. Например, я хочу знать васRichTextBox
Слово хочу, я хочу установить ссылку.
Могу ли я это сделать? Если может, пожалуйста, помогите мне!
Спасибо, Sopolin
Я хочу установить строку текстовой ссылки в расширенном текстовом поле vb.net. Например, я хочу знать васRichTextBox
Слово хочу, я хочу установить ссылку.
Могу ли я это сделать? Если может, пожалуйста, помогите мне!
Спасибо, Sopolin
Это, как я хотел бы сделать это.
Dim linkLa As New LinkLabel
linkLa.LinkColor = Color.Red
Dim link As LinkLabel.Link = linkLa.Links.Add(0, 13, "http://www.stackoverflow.com")
linkLa.Text = "Stackoverflow"
AddHandler linkLa.LinkClicked, AddressOf Link_Clicked
richTextBox1.Controls.Add(linkLa)
Private Sub Link_Clicked(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show("clicked")
End Sub
Я принимаю ваш ответ, но я хочу показать адрес ссылки. – Sopolin
вы могли бы просто установить richTextBox1.DetectUrls = true, а затем просто введите свой адрес в виде обычного текста. Или измените linkLa.Text на адрес вместо текста. –
У меня есть ответ для вас. Это позволит вам указать целевой адрес ссылки в качестве всплывающей подсказки. (маленький всплывающий пузырь.) Кроме этого, это похоже на ответ Стэна Р..
Примечание: Я ставлю комментарии перед каждой строкой, так что легче следовать!
'define the text and link targets
Dim linktext As String = LinkTextbox.Text 'LinkTextbox is just the textbox where the user inputs the text of the link
Dim linktarget As String = LinkTargetTextbox.Text 'LinkTargetTextBox is just the textbox where the user inputs the target URL of the link
'Define the LinkLabel
Dim lnk As New LinkLabel
'if you want, you can set the different properties, like font or linkcolor, programmatically after defining the linklabel, for instance:
lnk.LinkColor = Color.Blue
'set tooltip
lnk.Tooltip = linktarget
'set the link target
Dim lk As LinkLabel.Link = lnk.Links.Add(0, 13, linktarget)
'set the link text
lnk.Text = linktext
'EventHandler
AddHandler lnk.LinkClicked, AddressOf LinkClicked
'Add the control to the richtextbox
RichTextBox1.Controls.Add(lnk)
'This is the Subroutine that the label will run when clicked (Make sure to put your "End Sub" before this, because it's not part of the button's subroutine)
Private Sub LinkClicked(ByVal sender As Object, ByVal e As EventArgs)
'send link to the browser
Process.Start(linktarget)
End Sub
Есть так много бесплатных редакторов есть просто проверить один из тех FCKeditor Google это – Nagu