|
|
|
Click here to copy the following block | <System.Runtime.InteropServices.DllImport("user32")> Shared Function _ GetWindowDC(ByVal hWnd As Integer) As Integer End Function
<System.Runtime.InteropServices.DllImport("shlwapi.dll")> Shared Function _ PathCompactPath(ByVal hDC As Integer, _ ByVal pathBuffer As System.Text.StringBuilder, _ ByVal dx As Integer) As Boolean End Function
Function CompactPathToControl(ByVal longPath As String, ByVal ctl As Control, _ Optional ByVal maxWidth As Long = -1) As String If maxWidth < 0 Then maxWidth = ctl.Width Dim compPath As New System.Text.StringBuilder(longPath) PathCompactPath(GetWindowDC(ctl.Handle.ToInt32()), compPath, maxWidth) Return compPath.ToString() End Function |
|
|
|
Submitted By :
Nayan Patel
(Member Since : 5/26/2004 12:23:06 PM)
|
|
|
Job Description :
He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting. |
View all (893) submissions by this author
(Birth Date : 7/14/1981 ) |
|
|