fpSpread1.ActiveSheet.Columns[1].Width = 145; fpSpread1.ActiveSheet.Rows[1].Height = 45; FarPoint.Win.Spread.CellType.HyperLinkCellType hlnkcell = new FarPoint.Win.Spread.CellType.HyperLinkCellType(); hlnkcell.Text = "Click to See Our Web Site"; hlnkcell.Link = "http://spread.grapecity.com"; hlnkcell.LinkArea = new LinkArea(9, 16); hlnkcell.LinkColor = Color.DarkGreen; hlnkcell.VisitedLinkColor = Color.Chartreuse; fpSpread1.ActiveSheet.Cells[1, 1].CellType = hlnkcell; private void fpSpread1_HyperLinkClicked(object sender, FarPoint.Win.Spread.HyperLinkClickedEventArgs e) { listBox1.Items.Add(e.Column); listBox1.Items.Add(e.Row); listBox1.Items.Add(e.Link); }
fpSpread1.ActiveSheet.Columns(1).Width = 145 fpSpread1.ActiveSheet.Rows(1).Height = 45 Dim hlnkcell As New FarPoint.Win.Spread.CellType.HyperLinkCellType() hlnkcell.Text = "Click to See Our Web Site" hlnkcell.Link = "http://spread.grapecity.com" hlnkcell.LinkArea = New LinkArea(9, 16) hlnkcell.LinkColor = Color.DarkGreen hlnkcell.VisitedLinkColor = Color.Chartreuse fpSpread1.ActiveSheet.Cells(1, 1).CellType = hlnkcell Private Sub fpSpread1_HyperLinkClicked(sender As Object, e As FarPoint.Win.Spread.HyperLinkClickedEventArgs) Handles fpSpread1.HyperLinkClicked ListBox1.Items.Add(e.Column) ListBox1.Items.Add(e.Row) ListBox1.Items.Add(e.Link) End Sub