Report Control - HyperLink With Attachment Icon

Print Page | Close Window

HyperLink With Attachment Icon

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Report Control
Forum Description: Topics Related to Codejock Report Control
URL: http://forum.codejock.com/forum_posts.asp?TID=18180
Printed Date: 15 November 2024 at 9:20pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: HyperLink With Attachment Icon

Posted By: SHAN
Subject: HyperLink With Attachment Icon
Date Posted: 07 April 2011 at 7:19am

Hi,

Is that Possible to have Hyperlink with Column Icon...? It works with Text Only...?

Anyone Please help...!

-------------
Product: Xtreme SuitePro (ActiveX) version 15.0.2
Platform: Windows 7 Professional
Language: Visual Basic 6.0

Replies:

Posted By: jpbro
Date Posted: 07 April 2011 at 8:08am

You can do just about anything using markup ;)

Here's an example: http://forum.codejock.com/forum_posts.asp?TID=14983&PID=52962&title=markup-user-interface-ideas#52962

You should be able to modify the switch UI class example to just be a button that fires a clicked event where you can open a file.

-------------
Product: Xtreme SuitePro (ActiveX) version 16.2.6
Platform: Windows XP - SP3

Language: Visual Basic 6.0 SP6

Posted By: jpbro
Date Posted: 07 April 2011 at 8:17am

Actually, you could just use Markup with the Hyperlink tag.

Something like this:


Option Explicit

Public Sub ClickedAttachment(po_Sender As Object, po_Args As Object)
   MsgBox "Open File: " & Me.ReportControl1.FocusedRow.Record.Item(0).Value
End Sub

Private Sub Form_Load()
   With Me.ReportControl1
      .EnableMarkup = True
      .MarkupContext.SetHandler Me
      
      With .Columns.Add(.Columns.Count, "Test", 100, True)
   
      End With
      
      With .Records.Add
         With .AddItem("C:\SomeFile.txt")
            .Caption = "<TextBlock><Hyperlink Click='ClickedAttachment'><Image Source='file://C:\Five\Icons\Attach.png'/></Hyperlink></TextBlock>"
         End With
      End With
      
      .Populate
   End With
End Sub

-------------
Product: Xtreme SuitePro (ActiveX) version 16.2.6
Platform: Windows XP - SP3

Language: Visual Basic 6.0 SP6