Create LinkLabels At Runtime and Configuring the LabelBox

[Terrance]

I have a problem I was hoping someone can help me with. My first problem is
moving a link label that is created at runtime to the of an arraylist on the
next line in the listbox. Currently, the Close link is showing up on the
first line and covering up the file names when the box is populated. Here is
the code:

Dim docArray As New ArrayList() 'create an arraylist to hld the documents.
Dim strDirectory = ConfigurationSe ttings.AppSetti ngs("cad_direct ory")

Dim objLinkClose As New System.Windows. Forms.LinkLabel 'create new linklabel
With objLinkClose
.Name = "lnkClose"
.Text = "Close"
End With

Dim strFile As String

For Each strFile In Directory.GetFi les(strDirector y) 'get the files
in the directory
If Path.GetExtensi on(strFile) = ".doc" Or
Path.GetExtensi on(strFile) = ".pdf" Then
Dim strTemp As String = Path.GetFileNam e(strFile)
docArray.Add(st rTemp)
End If
Next

'If no files are found then inform the user through the listbox.
If docArray.Count( ) = 0 Then
Dim strTmp As String = "No Files to Display.......! "
docArray.Add(st rTmp)
End If
lbdocs.DataSour ce = docArray
Me.lbdocs.Contr ols.Add(objLink Close)

Secondly, I need to make the file names that are returned linklabels also;
so that when a user clicks on one it opens up the file in WORD or PDF(that's
the plan so far). So, any help would greatly be appreciated.
--
TC

[DWS]

Terrance your off to a great start.

search for system.diagnost ics.process.sta rt in msdn library. When checking
the file extention add a .tolower to guarantee a match with odd case.
Path.GetExtensi on(strFile).tol ower = ".pdf"

Good Luck
DWS
"Terrance" wrote:

I have a problem I was hoping someone can help me with. My first problem is
moving a link label that is created at runtime to the of an arraylist on the
next line in the listbox. Currently, the Close link is showing up on the
first line and covering up the file names when the box is populated. Here is
the code:

Dim docArray As New ArrayList() 'create an arraylist to hld the documents.
Dim strDirectory = ConfigurationSe ttings.AppSetti ngs("cad_direct ory")

Dim objLinkClose As New System.Windows. Forms.LinkLabel 'create new linklabel
With objLinkClose
.Name = "lnkClose"
.Text = "Close"
End With

Dim strFile As String

For Each strFile In Directory.GetFi les(strDirector y) 'get the files
in the directory
If Path.GetExtensi on(strFile) = ".doc" Or
Path.GetExtensi on(strFile) = ".pdf" Then
Dim strTemp As String = Path.GetFileNam e(strFile)
docArray.Add(st rTemp)
End If
Next

'If no files are found then inform the user through the listbox.
If docArray.Count( ) = 0 Then
Dim strTmp As String = "No Files to Display.......! "
docArray.Add(st rTmp)
End If
lbdocs.DataSour ce = docArray
Me.lbdocs.Contr ols.Add(objLink Close)

Secondly, I need to make the file names that are returned linklabels also;
so that when a user clicks on one it opens up the file in WORD or PDF(that's
the plan so far). So, any help would greatly be appreciated.
--
TC