Свойства управления LinkLabel при использовании для HelpProvider - PullRequest
Новая
       49

Свойства управления LinkLabel при использовании для HelpProvider

0 голосов
/ 03 марта 2020

Я работаю с Visual Studio 2017, работаю в VB. Я ссылаюсь на файл .CHM из LinkLabel, который прекрасно работает со следующим кодом: 

Private Sub LinkLabel2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkLabel2.Click
    ' Create link to help file
    System.Windows.Forms.Help.ShowHelp(Me, "RPM_Help.chm", HelpNavigator.AssociateIndex)
End Sub

Я использую простое изображение, чтобы указать ссылку на файл .chm размером 32x32 пикселей, Я играл со свойствами LinkLabel2, но я просто не могу понять, как сделать весь ярлык пространством ссылок. Я обнаружил, что если на ярлыке нет свойства Text, курсор MouseOver не будет отображаться, но как мне сделать все изображение ярлыка ссылкой курсора?

1 Ответ

1 голос
/ 03 марта 2020

Как показано в приведенном ниже коде и изображении, это можно решить с помощью LinkLabel2.AutoSize = False и добавления всплывающей подсказки из общих элементов управления к форме в режиме конструктора.

Каждый элемент управления, например кнопки и текстовые поля, будет приобретите свойство ToolTip on toolTip1 при добавлении toolTip1 в представление конструктора. Вы можете получить доступ к этому свойству на панели свойств, чтобы задать подсказки. 

Public Class frmMain

  Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    LinkLabel2.BackColor = Color.CornflowerBlue
    LinkLabel2.AutoSize = False
    LinkLabel2.Width = 168
    LinkLabel2.Height = 40
    LinkLabel2.Text = ""
  End Sub

  Private Sub LinkLabel1_Click(sender As Object, e As EventArgs) Handles LinkLabel1.Click
    ' --- Open help file - Table of contents
    System.Windows.Forms.Help.ShowHelp(Me, "hlp/CHM-example.chm", HelpNavigator.TableOfContents)
  End Sub

  Private Sub LinkLabel2_Click(sender As Object, e As EventArgs) Handles LinkLabel2.Click
    ' --- Open help file - Index
    System.Windows.Forms.Help.ShowHelp(Me, "hlp/CHM-example.chm", HelpNavigator.Index)
  End Sub

  Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
    ' --- Open help file - Search
    System.Windows.Forms.Help.ShowHelp(Me, "hlp/CHM-example.chm", HelpNavigator.Find, "")
  End Sub    

  Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
    Me.Close()
  End Sub

End Class

Код соответствует изображенному изображению. Конечно, значения можно также установить через свойства, но они включены в FormLoad для документации.

Вы можете использовать простое событие PictureBox1_Click для своих нужд, как показано ниже (третий пункт в Поле «Показать справку»).

enter image description here

...