Avatar billede martin_moth Mester
19. februar 2004 - 19:17 Der er 5 kommentarer og
1 løsning

bold font i kalender

Super simpelt:

Jeg sætter alle dage, hvortil der er en begivenhed i MyCalender.xml, til at have rød baggrund:

  Sub DayRender(source As Object, e As DayRenderEventArgs)
    dim myCalender=New DataSet
    myCalender.ReadXml(MapPath("MyCalendar.xml"))
    Dim MyTable As DataTable
    MyTable = New DataTable
    MyTable = myCalender.Tables(0)
    Dim objRow As DataRow
      For Each objRow In MyTable.Rows
      If objRow(2) = e.Day.Date Then
        e.Cell.BackColor = System.Drawing.Color.Red
      End If
      Next
  End Sub

Jeg vil også gerne gøre fonten fed og en anden farve. Hvordan?
Og kan man sætte et "tooltip" på dagen også?
Avatar billede thor.ostergaard Nybegynder
19. februar 2004 - 19:32 #1
Ja, du sætter en label ind i cellen - og den kan du gøre med som du har lyst:

Dim AftaleLabel As New System.Web.UI.WebControls.Label()
AftaleLabel.Text = "Tekst"
e.Cell.Controls.Add(AftaleLabel)
Avatar billede martin_moth Mester
19. februar 2004 - 19:33 #2
Smart.

Så mangler jeg lige det allersimpleste: Fontfarve og bold
Avatar billede martin_moth Mester
19. februar 2004 - 19:40 #3
Og at få ovenstående til at virke...

Sub DayRender(source As Object, e As DayRenderEventArgs)
    Dim AftaleLabel As New System.Web.UI.WebControls.Label()
    AftaleLabel.Text = "Test"
    dim myCalender=New DataSet
    myCalender.ReadXml(MapPath("MyCalendar.xml"))
    Dim MyTable As DataTable
    MyTable = New DataTable
    MyTable = myCalender.Tables(0)
    Dim objRow As DataRow
      For Each objRow In MyTable.Rows
      If objRow(2) = e.Day.Date Then
        e.Cell.BackColor = System.Drawing.Color.Red
        e.Cell.Controls.Add(AftaleLabel)
      End If
      Next
  End Sub

Hmmm - der sker intet. Det jeg forestillede mig var, at der kom et tooltip når man kørte musen over den enkelte dag (som en <img src="bla.jpg" alt="ToolTipTekst"> i html)
Avatar billede martin_moth Mester
19. februar 2004 - 19:49 #4
NB: Der sker jo noget - den tilføjer en label.

Det jeg ønskede var en tooltip-tekst, samt at ændre fontens farve og gøre den fed.

How to do?
Avatar billede thor.ostergaard Nybegynder
19. februar 2004 - 19:57 #5
Har du prøvet med e.Cell.ToolTip = "Hej"
e.Cell.Forecolor
e.Cell.Font.Bold
Avatar billede martin_moth Mester
19. februar 2004 - 22:09 #6
Så enkelt

e.Cell.ToolTip = objRow(0)
e.Cell.Forecolor = System.Drawing.Color.white
e.Cell.Font.Bold = True

Tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester