Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB.NET: taulukon sisällön värin muuttaminen

Sivun loppuun

tomppeli [16.04.2009 21:43:54]

#

miten muutetaan taulukon sisällön väri joksikin toiseksi.Teen moni uloitteista taulukkoa ja nytten tuli tarvetta muuttaa sisällän väri toiseksi.Tämä helpottaisi minulle tuloksie katselua.Harrastan visual basikilla ohjelmointa.Käytössäni on visual studio 2005 ja siinä visual basic.
Apu olisi tarpeen.

vesimies [19.04.2009 14:53:55]

#

Tarkoitatko DataGridView-kontrollia? Siinä saa solun taustavärin muutettua säätämällä RowsDefaultCellStyle-ominaisuutta. (Ainakin VB2008:ssa)

Sam76 [20.04.2009 21:01:18]

#

Microsoftin sivuilta löytyy esimerkit jos käytät edellä mainittua DataGridView:iä

tomppeli [21.04.2009 22:05:39]

#

minulla on vaikka taulukon koe(1,1) sisältä tääläinen 0122/55 miten saan muutettua tämän 55 punaiseksi taikka koko sisältä 0122/55 punaiseksi

neau33 [23.04.2009 11:17:06]

#

Moikka tomppeli!

määrittelemällä taulukko objektiksi voidaan sinne pukata mitä vaan tietoa...

Imports System
Imports System.Drawing
Public Partial Class MainForm

   Private koe(1, 0) As Object

   Public Sub New()

      Me.InitializeComponent()

   End Sub

   Sub MainFormLoad(sender As Object, e As EventArgs)

      For i As Integer = 0 To 10
         For j As Integer = 0 To 1
            ReDim Preserve koe(1,i)
            If j = 1 Then
               Select Case i
                  'Case 0:
                  Case 1: koe(j, i) = Color.Red
                  'jne.
               End Select

            End If
         Next
      Next i
   End Sub

End Class

tomppeli [18.05.2009 14:47:37]

#

moi

nytten olisi tulostus ongelma kun yritän taulukosta tulostaa msgbox:silla
tulee tälläöinen herja
Operaattoria & ei ole määritetty kohteille merkkijono väri luku3 ja laji Color.

neau33 [20.05.2009 09:18:05]

#

Moikka tomppeli!

virittele vaikka näistä eväistä...

Sub MainFormLoad(sender As Object, e As EventArgs)
   '...
   For i As Integer = 0 To koe.GetUpperBound(1)
      If Not koe(1, i) Is Nothing Then
         Dim väri As String = "Väri"
         Dim luku As Integer = 3
         Dim strColor() As String = _
         Split(Koe(1, i).ToString,"[")
         MsgBox(väri & " " & luku.ToString & " " & _
         strColor(1).Replace("]", ""))
         strColor = Nothing
      End If
   Next
End Sub

neau33 [20.05.2009 10:57:17]

#

Moikka taas tomppeli!

tässä hieman lisävalaistusta...

'väännetty SharpDevelop 3.0:lla
Imports System
Imports System.Collections.Generic
Imports System.Drawing

Public Partial Class MainForm

   Private MyColors(1, 0) As Object

   Public Sub New()
      Me.InitializeComponent()
   End Sub

   Sub MainFormLoad(sender As Object, e As EventArgs)

      Dim ColorCollection As Object = GetColors()
      Dim i As Integer = -1

      Do
         i += 1
         Try
            ReDim Preserve MyColors(1, i)
            MyColors(0, i) = "väri" & Cstr(i)
            MyColors(1, i) = ColorCollection(i)
         Catch ex As Exception
            Exit Do
         End Try
      Loop

      ColorCollection = Nothing

      'For i = 0 To MyColors.GetUpperBound(1)
         'MsgBox(MyColors(0, i) _
         '& " = " & MyColors(1, i))
      'Next

      Try
         Me.BackColor = _
         Color.FromName(MyColors(1, 3))
      Catch ex As Exception
      End Try

   End Sub

   Private Function GetColors() As List(Of String)

      Dim colors As New List(Of String)()
      Dim colorNames As String() = _
      [Enum].GetNames(GetType(KnownColor))

      For Each colorName As String In colorNames
          Dim knownColor As KnownColor = _
          DirectCast([Enum].Parse( _
          GetType(KnownColor), colorName), KnownColor)
          If knownColor > KnownColor.Transparent Then
             colors.Add(colorName)
          End If
      Next

      Return colors

   End Function

End Class

Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta