Progress bar Verticaal maken

Status
Niet open voor verdere reacties.
B

Bertran

Gebruiker
Lid geworden
9 dec 2012
Berichten
37
Hallo Allemaal.

Nog net geen 70 jaar jong maar toch begonnen met vb2010.

Starter zo niet beginneling dus.

Ik heb progress bars gemaakt maar die zou ik graag verticaal willen laten werken.
Dit is me tot nu toe niet gelukt.

Wie kan mij uitleggen of dit kan en of hoe dat moet.

Nog een vraagje.

Is er een boek over de verschillende items en hun instellingen van vb2010 , bijvoorbeeld wat margin 0;0;0;0
doet en zo.

Bij voorbaat dank.
Bertran
 
Ik had laatst dezelfde vraag, dus heb als bijlage de werkende verticale progressbar.
Bekijk bijlage VPB.zip

EDIT: Bijlage maar in .zip gedaan...

Wat betreft wat bijvoorbeeld margin doet; margin is om de positie van een object/text te defineren, de 4 nullen staan voor X en Y linksboven en X en Y rechtsonder om zo een vierkant figuur te krijgen waarmee een absolute positie kan worden vastgestelt, of hier boeken over zijn weet ik niet (neem aan van wel, kan er zo gauw even geen vinden), maar online zijn er talloze tutorials te vinden waarin stap voor stap wordt uitgelegd wat iets doet.
 
Laatst bewerkt:
Kijk, hartstikke bedankt.
Hier kan ik mee verder.

Maar vergeet niet JoZ1 ik ben net een weekje bezig en moet al die begrippen ete etc nog leren.

Nogmaals dank beide en fijne dagen.

Bertran.
 
@Bertran: Als je er slechts een week mee bezig bent, kan ik me het inderdaad voorstellen. :)

Veel succes met het leren van VB.
Als je nog vragen hebt, hoor ik het graag!
 
Prachtig.

Ik heb het grafisch aan de praat, morgen hang ik er een waarde aan en kijkt of het werkt.
Ben met meet en regel techniek bezig, wil waarden opslaan naar disk etc etc.

Helaas blijft de shape niet bewaard in de toolbox maar dat is bijzaak

Gr Bertran
 
Het zip bestand kan ik wel uitpakken, maar ik krijg het project niet geladen.
Ik heb inmiddels al een Vprogressbar maar ben zeer benieuwd naar die van jou.

Ik zal waarschijnlijk zonder mijn beginners geluk wel weer wat verkeerd doen:eek:
Weet jij wat ?

Gr Bertran
 
Laatst bewerkt door een moderator:
Het is na wat proberen gelukt om de Vprogessbar aan de praat te krijgen, Visual basic is erg wennen als je 20 jaar geleden
in Basic programmeerde.
Leuk om te doen, ik werk nu met de Velleman edu05 en heb de K8055n besteld.
Ik zoek eigenlijk een board wat na het laden van de software stand a lone kan werken zodat hij van de usb af kan.
Dat zal wel bestaan maar ik heb nog niet echt gezocht.
Gr Bertran
 
Laatst bewerkt door een moderator:
OK! Leuk.

Over die zip, het is eerst de bedoeling dat die wordt uitgepakt alvorens het project te openen.
Visual Studio heeft die bestanden nodig om het project te laden ;)

Als de vraag is opgelost, kunt u de vraag op opgelost zetten.
Uw startpost -> Rechtsonderaan -> Zet Status Opgelost.

Prettige kerstdagen!
 
Dat heb ik gedaan, maar als het project opstart krijg ik een bassis ( Form1) vorm te zien
Maar nogmaals ik kan ook iets verkeerd doen als beginner.
Andere opties werken nu naar behoren en zoals ik het graag gebruiken wil.

Ik werk nu nog even met de Velleman EDU05 maar wil naar de K8055n toe en of een board wat kan
blijven werken op eigen kracht c.q los van de usb.
Ik weet niet eens of dat bestaat bij Velleman dus moet me nog oriënteren.
Tot zover bedankt

Gr Bertran
 
Laatst bewerkt door een moderator:
@Bertran Zou je willen stoppen met het onnodig quoten van berichten. Heb nu al diversen reacties van je aangepast.
 
Sorry

Mijn oprechte verontschuldiging.
Op een Forum werken is/was mij volkomen vreemd.

Is de manier van beantwoorden zoals ik nu doe goed ?
Ik ben woord blind en ben Dislexties.
Dus probeer het goed te doen.

Gr Bertran
 
Bertran zei:
Dat heb ik gedaan, maar als het project opstart krijg ik een bassis ( Form1) vorm te zien
Klik om te vergroten...

Ik krijg het als volgt:
FyFzt.png


Na enig resizen is het al mooier:
r7YOC.png



Het makkelijke is dat je gewoon de volgende klasse kunt toevoegen:

[cpp]Public Class VerticalProgressBar
Inherits ProgressBar
Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams
Get
Dim cp As CreateParams = MyBase.CreateParams
cp.Style = cp.Style Or &H4
Return cp
End Get
End Property
End Class[/cpp]

Waarna (na builden of debuggen) het component in de ToolBox verschijnt.
ZkISG.png
 
Ik heb het gezien.
Allemaal beginners foutjes die ik maak, maar ik heb het aan de praat de Progressbar geeft mooi de meet waarden aan.En beter nog ze kloppen ook.
Nu nog kijken of de kleur aan te passen is, maar voorlopig laat ik het zo.

Gr Bertran
 
[cpp]Private Declare Auto Function SendMessage Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
''// this code let you change the forecolor
Private Sub PbSetForeColor(ByVal Pb As ProgressBar, ByVal NewColor As Int32)
SendMessage(Pb.Handle, &H409, 0, NewColor)
End Sub
''// this code will let you change the back color
Private Sub PbSetBackColor(ByVal Pb As ProgressBar, ByVal NewColor As Int32)
SendMessage(Pb.Handle, &H2001, 0, NewColor)
End Sub
Private Sub Use(ByVal pb As ProgressBar)
PbSetForeColor(pb, RGB(0, 255, 0))
PbSetBackColor(pb, RGB(0, 0, 0)) ''//background color
End Sub[/cpp]

Bron: http://social.msdn.microsoft.com/Forums/en/vbgeneral/thread/78dd6610-b9ad-4f80-9925-3727ab278e5d
 
Prachtig, je bent een kei.

Ik zie dat ik nog heel veel te leren heb,maar dat was juist de bedoeling.

Gr Bertran
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan