text to hyperlink

[jhermiz]

I do some operations including a filecopy to move an excel document from one directory to the users choice. Once done I snatch this filepath so that the user knows where it is. I wanted it to be a hyperlink on my form, that is the path once clicked should go to this excel file.

I tried:

Me.txtLink = "#" & blah blah & "#"

makes this text box a link...in access...
what about in vb?

Jon

[laserman]

Do something like this but wher i have notepad put in your path

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub label1_Click()
 ShellExecute Me.hwnd, vbNullString, "notepad.exe", vbNullString, "C:\", SW_SHOWNORMAL
 
End Sub
 
Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
label1.ToolTipText = label1.Caption
End Sub

[jhermiz]

But this isnt a label..its a text box control...

Jon

[jhermiz]

Plus I want to give it the effect of a hyperlink (blue underlined)

Jon

[laserman]

Jon,

I must be missing something
Try putting something in your texbox and use some code I said. do it in the clickevent or kepress etc try this first.

Cheers

[jhermiz]

ya you're right sorry bout that...general dumb user error

Thanks,

Jon

[laserman]

What I use sometimes is a label with the caption underlined
do this in the font property box for the label or textbox this give you the appearence of a hyperlink

you can also change the color


Cheers

[jhermiz]

Ya got it ... just set the forecolor to blue and underlined the sucka...

Im beginning to understand this stuff a tad bit better.

Thanks to this forum and you laser

Jon

[jhermiz]

Ack laser the click event is not working. I decided to create a little hand so that when the mouse rolls over it it changes to the pointy hand..but I click the link and nothing happens..the click event doesnt even get fired.

Private Sub txtCalcSheetLink_Click()
On Error GoTo Err_Handler
'sub procedure that has a link in the
'text field to the euro calc sheet

ShellExecute Me.hwnd, vbNullString, Me.txtFilePath, vbNullString, Me.txtFileName.Text, SW_SHOWNORMAL

Done:
Exit Sub

Err_Handler:
MsgBox Err.Description, vbCritical, "Error #: " & Err.Number
Resume Done

End Sub

Private Sub txtCalcSheetLink_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
On Error Resume Next
If State = vbLeave Then
With txtCalcSheetLink
.Drag vbEndDrag
End With
End If
End Sub

Private Sub txtCalcSheetLink_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
Me.Image1.Visible = True
With txtCalcSheetLink
.DragIcon = Image1.Picture
.Drag vbBeginDrag
End With
End Sub


Jon

[laserman]

Have a look at the code you must have made an error in the click event

press f8 and step through the code then run it etc

IT worked before so revert to the old mouse icon first then
try again

if it works look where your going wrong

Sorry I have to go offline

Good luck

[Arc]

DO you have these API constants and calls in your form? Or in a module for that matter?

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

IF you put these in your form put them at the very top of the form above all other code. But remember it will only be available to that form. If you want it to be availiable to all forms then put it in a Module and change Private to Public.

[James Stanich]

VB Example- Hyperlink