Advertisement
ASP_Volume3 Internet/ HTML #46331

Create links from labels!

Turns labels into links which when clicked, load the contents of the caption as the URL into a webbrowser.

AI

AI சுருக்கம்: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

மூலக் குறியீடு
original-source
Public Sub MakeLink(LabelName As Label, Operation As OpType, Optional FormName As Form)
  Dim Openpage As Integer
  
  Select Case Operation
  Case LinkMove
    LabelName.ForeColor = 255
    LabelName.FontUnderline = True
  Case Click
    Openpage = ShellExecute(FormName.hwnd, "Open", LabelName.Caption, "", App.Path, 1)
    LabelName.ForeColor = 8388736
    Clicked = True
  Case FormMove
    LabelName.FontUnderline = False
    If Not Clicked Then
      LabelName.ForeColor = 16711680
    Else
      LabelName.ForeColor = 8388736
    End If
  Case Startup
    LabelName.ForeColor = 16711680
  End Select
End Sub
அசல் கருத்துகள் (3)
வேபேக் மெஷினிலிருந்து (Wayback Machine) மீட்டெடுக்கப்பட்டது