Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Horisontell stapel

Postades av 2011-11-05 11:37:59 - Torbjörn Karlberg, i forum visual basic - allmänt, Tråden har 8 Kommentarer och lästs av 4356 personer

Hej!
Jag vill skapa en uppdelad stapel som beroende på data ändras horisontellt och varje record ska har en egen färg dvs den ska visa alla record i samma stapel med olika färger.

Har letat men kan inte hitta något och kommer inte på något bra själv heller.

Finns det någon färdig funktion i vb ?

/Tobbe


Svara

Sv: Horisontell stapel

Postades av 2011-11-05 13:57:31 - Sven Åke Persson

Lite svårt att förstå hur du menar . Men

Jag skulle bygga upp en horisontell array av tomma Label:s där dom har olika BackColor.
En Label för varje Record. Tror att det är det optimala.


Svara

Sv:Horisontell stapel

Postades av 2011-11-05 14:35:18 - Torbjörn Karlberg

Hej Sven!

Skulle gå med label men lite jobbig kod eftersom dom ska ändras i både längd och placering efter ett värde från recordet samt att nästa label sak lägga sig direkt efter med en längd beroende på värdet osv.


Tobbe



Svara

Sv: Horisontell stapel

Postades av 2011-11-05 15:49:04 - Sven Åke Persson

Vem har sagt att det skulle vara enkelt ?
Hade det varit enkelt kunde vilken djä... idiot som helst fixat det !!!

Du får tänka lite x y .


Svara

Sv:Horisontell stapel

Postades av 2011-11-06 15:14:14 - Martin Rex

Jag tycket att Svens förslag är lysande.
Även om det skulle finnas ett färdigt objekt, så måste ju färg och längd anges.

När det gäller en label har man ju dessutom möjligheten att förtydliga vad värdet representerar.


Svara

Sv: Horisontell stapel

Postades av 2011-11-07 16:03:50 - Sven Åke Persson

Någon ?
Hur är det nu när man skapar ett objekt in "fly" Dvs ökar på med tex Label(1) (2) osv.

New osv. har glömt. Så skall Torbjörns problem lösas.


Svara

Sv:Horisontell stapel

Postades av 2011-11-10 15:39:55 - Sven Åke Persson

Tror jag skall göra ett lite exempel.

Intressant att bolla matematik + x och widht och BackColor RGB och näste Label(x)


Svara

Sv: Horisontell stapel

Postades av 2011-11-12 13:45:29 - Sven Åke Persson

För att sätta dig på spår så kolla detta lilla exempel.
1: Lägg upp den första Label1 och sätt index till (0) Noll ,sätt också den färg/width du vill ha på den.
2: Ladda in nästa Label1 med index 1 se exempel. Sätt nya färgen och Left och Width.
3: Ladda in Label1(2) enl ovan osv. newX + width vs oldX
Kör i pixelmod. Tänk Left X i pixel som blir + width på Label1(0) osv.
<code>
Load Label1(1)
Label1(1).Visible = True 'default är dom Visible = False
Label1(1).BackColor = vbBlue 'Kombinera RGB värde som du vill
Label1(1).Left = 100 'här blir matte trixet X
</code>

Mycket jobb blir det , men du blir så djä... nöjd när det är klart.


Svara

Sv:Horisontell stapel

Postades av 2011-11-16 02:01:06 - Sven Åke Persson

Roade mig med att göra ett exempel som du kan haka på Torbjörn.
<code>
Option Explicit
Dim oldSpoint As Long
Dim newSpoint
Dim sWid As Long
Dim nWid As Long
Dim oldCol As Double
Dim newCol As Double
Dim ColArray(9) As Double

Private Sub Form_Load()
Randomize
Form1.ScaleMode = 3 'Pixel
Form1.Width = 13500
ColArray(0) = 0
ColArray(1) = 255
ColArray(2) = 65280
ColArray(3) = 65535
ColArray(4) = 16711680
ColArray(5) = 16711935
ColArray(6) = 16776960
ColArray(7) = 16777215
oldSpoint = 4
Label1(0).Left = oldSpoint
sWid = Int(Rnd * 100) + 20
Label1(0).Width = sWid
oldCol = Int(Rnd * 8)
Label1(0).BackColor = ColArray(oldCol)
oldSpoint = oldSpoint + sWid
End Sub

Private Sub Command1_Click()
Dim i As Long
i = 1
On Error Resume Next
Do Until i > 9
newCol = Int(Rnd * 8)
If newCol = oldCol Then
Else
Load Label1(i)
Label1(i).Visible = True
newSpoint = oldSpoint
Label1(i).Left = newSpoint
nWid = Int(Rnd * 100) + 20
Label1(i).Width = nWid
Label1(i).BackColor = ColArray(newCol)
Label1(i).Caption = i + 1
oldSpoint = oldSpoint + nWid + 1
oldCol = newCol
i = i + 1
End If
Loop
End Sub
</code>


Svara

Nyligen

  • 19:13 Международная перевозка грузов
  • 00:01 DL Van Tuning | Exclusive Body Kit
  • 12:08 Indian casino
  • 04:14 Vad finns det för kratomalternativ
  • 14:16 Indian online casino
  • 14:15 Indian online casino
  • 08:28 Butiksskyltar: Hur upplever utbude
  • 22:31 Slappna av

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 864
27 962
271 767
300
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies